error(num): remaining occurrences removed from tests
[scilab.git] / scilab / modules / core / tests / nonreg_tests / bug_9686.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2011 - INRIA - Serge Steer
4 // Copyright (C) 2018 - Samuel GOUGEON
5 //
6 //  This file is distributed under the same license as the Scilab package.
7 // =============================================================================
8 //
9 // <-- Non-regression test for bug 9686 -->
10 //
11 // <-- CLI SHELL MODE -->
12 // <-- NO CHECK REF -->
13 // 
14 // <-- Bugzilla URL -->
15 // http://bugzilla.scilab.org/9686
16 //
17 // <-- Short Description -->
18 // error in an if expression inside a try makes Scilab froze
19 a=%f;b=%f;
20 try
21   if error("test") then
22     a=%t;
23   end
24 catch
25   b=%t;
26 end
27 assert_checktrue(~a&b);
28
29 a=%f;b=%f;
30 try
31   while error("test") then
32     a=%t;
33   end
34 catch
35   b=%t;
36 end
37 assert_checktrue(~a&b);
38
39 a=%f;b=%f;
40 try
41   select error("test")
42   case %t
43   else  
44     a=%t;
45   end
46 catch
47   b=%t;
48 end
49 assert_checktrue(~a&b);
50
51 a=%f;b=%f;
52 try
53   select %t 
54   case  error("test") then
55     a=%t;
56   end
57 catch
58   b=%t;
59 end
60 assert_checktrue(~a&b);
61
62
63 a=%f;b=%f;
64 try
65   if %t then
66     error("test")
67     a=%t;  
68   end
69 catch
70   b=%t;
71 end
72 assert_checktrue(~a&b);
73
74
75 a=%f;b=%f;
76 try
77   while %t then
78     error("test")
79     a=%t;  
80   end
81 catch
82   b=%t;
83 end
84 assert_checktrue(~a&b);