scilab/modules/core/tests/nonreg_tests/bug_2072.dia.ref

   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 // <-- Non-regression test for bug 2072 -->
   8 //
   9 // <-- Bugzilla URL -->
  10 // http://bugzilla.scilab.org/show_bug.cgi?id=2072
  11 //
  12 // <-- Short Description -->
  13 //   incorrect clause uncorrectly handled under errcatch
  14 // <-- CLI SHELL MODE -->
  15 mkdir(TMPDIR,"b2072");
  16 txt=["function test()"
  17 "if 1 ~=1 then"
  18 "   a=3;"
  19 "end"
  20 "else"
  21 "   a=7;"
  22 "end"
  23 "endfunction"];
  24 mputl(txt,TMPDIR+"/b2072/test.sci");
  25 txt=["function testOK()"
  26 "a=3;"
  27 "   end"
  28 "endfunction   "];
  29 mputl(txt,TMPDIR+"/b2072/testOK.sci");
  30 if execstr("exec(TMPDIR+''/b2072/test.sci'');","errcatch")==0 then bugmes();quit;end
  31 if execstr("exec(TMPDIR+''/b2072/testOK.sci'');","errcatch")==0 then bugmes();quit;end