fix core tests
[scilab.git] / scilab / modules / core / tests / nonreg_tests / bug_564.dia.ref
1 //<-- CLI SHELL MODE -->
2 // =============================================================================
3 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4 // Copyright (C) 2005-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
5 //
6 //  This file is distributed under the same license as the Scilab package.
7 // =============================================================================
8 // <-- Non-regression test for bug 564 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=564
12 //
13 // <-- Short Description -->
14 //    CVS version of Scilab:
15 //    using break when it is not called for creates confusing
16 //    error messages. 
17 //    In the following code the breaks are useless, they should do
18 //    nothing
19 //    but they create uncomprehensible error messages (this code
20 //    is included
21 //    in a macro which is execed)
22 //      if ok then 
23 //          scs_m.objs(k)=XX
24 //          disp(1)
25 //          edited=%t;
26 //          disp(2)
27 //          needcompile=4
28 //          disp(3)
29 //          Cmenu='Replot';
30 //          disp(4),disp(Cmenu)
31 //          break
32 //        else
33 //          Cmenu='Open/Set' 
34 // ...
35 // Non-regression test file for bug 564
36 function foo()
37         if ok then
38  
39                 disp(1);
40                 edited=%t;
41                 disp(2);
42                 needcompile=4
43                 disp(3);
44                 Cmenu='Replot';
45                 disp(4);,disp(Cmenu);
46                 break
47         else
48                 Cmenu='Open/Set'
49                 break
50         end
51 endfunction
52 ok = %T;
53 foo();
54    1.
55    2.
56    3.
57    4.
58   "Replot"
59 exec(foo);
60    1.
61    2.
62  needcompile  = 
63    4.
64    3.
65    4.
66   "Replot"