exec and ecestr fixed about parsing error.
[scilab.git] / scilab / modules / core / tests / nonreg_tests / bug_2072.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2005-2008 - INRIA - Serge Steer
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- Non-regression test for bug 2072 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=2072
12 //
13 // <-- Short Description -->
14 //   incorrect clause uncorrectly handled under errcatch
15
16 // <-- CLI SHELL MODE -->
17
18 mkdir(TMPDIR,"b2072");
19
20 txt=["function test()"
21 "if 1 ~=1 then"
22 "   a=3;"
23 "end"
24 "else"
25 "   a=7;"
26 "end"
27 "endfunction"];
28 mputl(txt,TMPDIR+"/b2072/test.sci");
29 txt=["function testOK()"
30 "a=3;"
31 "   end"
32 "endfunction   "];
33 mputl(txt,TMPDIR+"/b2072/testOK.sci");
34
35 if execstr("exec(TMPDIR+''/b2072/test.sci'');","errcatch")==0 then pause,end
36 if execstr("exec(TMPDIR+''/b2072/testOK.sci'');","errcatch")==0 then pause,end
37