[core] trycatch test fixed 35/20735/3
Antoine ELIAS [Thu, 24 Jan 2019 16:56:59 +0000 (17:56 +0100)]
Change-Id: I3a35642dd917268d86b6eaea80df82a68c8743ea

scilab/modules/core/tests/unit_tests/trycatch.dia.ref
scilab/modules/core/tests/unit_tests/trycatch.tst

index a4882da..4293593 100644 (file)
 //interactive mode
 clear a b
 try
-  a=1;
+    a=1;
 catch
-  b=2+1;
+    b=2+1;
 end
-if exists('a')==0|exists('b')==1 then bugmes();quit;end
+if exists("a")==0|exists("b")==1 then bugmes();quit;end
 if a<>1 then bugmes();quit;end
 clear a b
 try  a=1+1;
 catch
-  b=2;
+    b=2;
 end
-if exists('a')==0|exists('b')==1 then bugmes();quit;end
+if exists("a")==0|exists("b")==1 then bugmes();quit;end
 if a<>2 then bugmes();quit;end
 clear a b
 try  a=1;
 catch  b=2;
 end
-if exists('a')==0|exists('b')==1 then bugmes();quit;end
+if exists("a")==0|exists("b")==1 then bugmes();quit;end
 if a<>1 then bugmes();quit;end
 clear a b
 try  a=1;catch  b=2;end
-if exists('a')==0|exists('b')==1 then bugmes();quit;end
+if exists("a")==0|exists("b")==1 then bugmes();quit;end
 if a<>1 then bugmes();quit;end
 clear a b
 try,  a=1;catch,  b=2;end
-if exists('a')==0|exists('b')==1 then bugmes();quit;end
+if exists("a")==0|exists("b")==1 then bugmes();quit;end
 if a<>1 then bugmes();quit;end
 clear a b xxxx
 try
-  a=xxxx;
+    a=xxxx;
 catch
-  b=2;
+    b=2;
 end
-if exists('a')==1|exists('b')==0 then bugmes();quit;end
+if exists("a")==1|exists("b")==0 then bugmes();quit;end
 if b<>2 then bugmes();quit;end
 clear a b xxxx
 try   a=xxxx;
 catch
-  b=2;
+    b=2;
 end
-if exists('a')==1|exists('b')==0 then bugmes();quit;end
+if exists("a")==1|exists("b")==0 then bugmes();quit;end
 if b<>2 then bugmes();quit;end
 clear a b xxxx
 try
-  a=xxxx;
+    a=xxxx;
 catch b=2;
 end
-if exists('a')==1|exists('b')==0 then bugmes();quit;end
+if exists("a")==1|exists("b")==0 then bugmes();quit;end
 if b<>2 then bugmes();quit;end
 clear a b xxxx
 try   a=xxxx;
 catch b=2;
 end
-if exists('a')==1|exists('b')==0 then bugmes();quit;end
+if exists("a")==1|exists("b")==0 then bugmes();quit;end
 if b<>2 then bugmes();quit;end
 clear a b xxxx
 try   a=xxxx;catch b=2;end
-if exists('a')==1|exists('b')==0 then bugmes();quit;end
+if exists("a")==1|exists("b")==0 then bugmes();quit;end
 if b<>2 then bugmes();quit;end
 clear a b xxxx
-if execstr('try a=xxxx catch b=2;end','errcatch')<>276 then bugmes();quit;end
-if exists('a')==1|exists('b')==1 then bugmes();quit;end
+if execstr("try a=xxxx catch b=2;end","errcatch")<>0 then bugmes();quit;end
+if exists("a")==1|exists("b")==0 then bugmes();quit;end
 clear a b xxxx
-if execstr('try a=1 catch b=2;end','errcatch')<>276 then bugmes();quit;end
-if exists('a')==1|exists('b')==1 then bugmes();quit;end
+if execstr("try a=1 catch b=2;end","errcatch")<>0 then bugmes();quit;end
+if exists("a")==0|exists("b")==1 then bugmes();quit;end
 clear a b xxxx
 try,  a=xxxx;catch, b=2;end
-if exists('a')==1|exists('b')==0 then bugmes();quit;end
+if exists("a")==1|exists("b")==0 then bugmes();quit;end
 if b<>2 then bugmes();quit;end
 clear a  xxxx
-try,  a=xxxx;catch;end
-if exists('a')==1 then bugmes();quit;end
+try a=xxxx;catch end
+if exists("a")==1 then bugmes();quit;end
 clear a  xxxx
 try,  a=xxxx;end
-if exists('a')==1 then bugmes();quit;end
+if exists("a")==1 then bugmes();quit;end
 clear a b xxxx
-try;catch, b=2;end
-if exists('b')==1 then bugmes();quit;end
-try,end
+if execstr("try;catch, b=2;end", "errcatch") == 0 then bugmes();quit;end
+if exists("b")==1 then bugmes();quit;end
+if execstr("try,end", "errcatch") == 0 then bugmes();quit;end
 clear a b xxxx
 u=1;try,  a=xxxx;catch, b=2;end
-if exists('a')==1|exists('b')==0 then bugmes();quit;end
+if exists("a")==1|exists("b")==0 then bugmes();quit;end
 if b<>2 then bugmes();quit;end
 clear a b xxxx
-try, if %t then  a=xxxx,end;catch, b=2;end
-if exists('a')==1|exists('b')==0 then bugmes();quit;end
+try, if %t then  a=xxxx;end;catch, b=2;end
+if exists("a")==1|exists("b")==0 then bugmes();quit;end
 if b<>2 then bugmes();quit;end
 //nested try catch
 clear a b xxxx
 try
-  a=xxxx;
+    a=xxxx;
 catch
-  try
-    b=xxx,
-  catch
-    b=2;
-  end;
-  b=b+1;
+    try
+        b=xxx,
+    catch
+        b=2;
+    end;
+    b=b+1;
 end
-if exists('a')==1|exists('b')==0 then bugmes();quit;end
+if exists("a")==1|exists("b")==0 then bugmes();quit;end
 if b<>3 then bugmes();quit;end
 clear a b xxxx
 try   a=xxxx;catch try b=xxx,catch b=2;end;end
-if exists('a')==1|exists('b')==0 then bugmes();quit;end
+if exists("a")==1|exists("b")==0 then bugmes();quit;end
 if b<>2 then bugmes();quit;end
 clear a b xxxx
-try a=2;try a=xxxx; catch a=a+1,end;catch;b=2;end
- a  =
-    3.  
-if exists('a')==0|exists('b')==1 then bugmes();quit;end
+try a=2;try a=xxxx; catch a=a+1; end;catch;b=2;end
+if exists("a")==0|exists("b")==1 then bugmes();quit;end
 if a<>3 then bugmes();quit;end
 clear a b xxxx
-try a=2;try a=xxxx; catch a=a+1,end;b=2;end
- a  =
-    3.  
-if exists('a')==0|exists('b')==0 then bugmes();quit;end
+try a=2;try a=xxxx; catch a=a+1; end;b=2;end
+if exists("a")==0|exists("b")==0 then bugmes();quit;end
 if a<>3|b<>2 then bugmes();quit;end
 //catch in  functions
 funcprot(0);
 clear a b
-deff('r=test()',[
-    'try'
-    '  a=1;'
-    'catch '
-    '  b=2+1;'
-    'end'
-    'r=exists(''a'')==0|exists(''b'')==1 '
-    'r=r|a<>1'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try  a=1;'
-    'catch '
-    '  b=2;'
-    'end'
-    'r=exists(''a'')==0|exists(''b'')==1'
-    'r=r|a<>1'],'n')
+deff("r=test()",[
+"try"
+"  a=1;"
+"catch "
+"  b=2+1;"
+"end"
+"r=exists(''a'')==0|exists(''b'')==1 "
+"r=r|a<>1"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try  a=1;"
+"catch "
+"  b=2;"
+"end"
+"r=exists(''a'')==0|exists(''b'')==1"
+"r=r|a<>1"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try  a=1;"
+"catch  b=2;"
+"end"
+"r=exists(''a'')==0|exists(''b'')==1"
+"r=r|a<>1"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try  a=1;catch  b=2;end"
+"r=exists(''a'')==0|exists(''b'')==1"
+"r=r|a<>1"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try,  a=1;catch,  b=2;end"
+"r=exists(''a'')==0|exists(''b'')==1"
+"r=r|a<>1"])
 if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try  a=1;'
-    'catch  b=2;'
-    'end'
-    'r=exists(''a'')==0|exists(''b'')==1'
-    'r=r|a<>1'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try  a=1;catch  b=2;end'
-    'r=exists(''a'')==0|exists(''b'')==1'
-    'r=r|a<>1'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try,  a=1;catch,  b=2;end'
-    'r=exists(''a'')==0|exists(''b'')==1'
-    'r=r|a<>1'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
 clear a b xxxx
-deff('r=test()',[
-    'try'
-    '  a=xxxx;'
-    'catch '
-    '  b=2;'
-    'end'
-    'r=exists(''a'')==1|exists(''b'')==0'
-    'r=r|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try a=xxxx;'
-    'catch '
-    '  b=2;'
-    'end'
-    'r=exists(''a'')==1|exists(''b'')==0'
-    'r=r|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try'
-    '  a=xxxx;'
-    'catch b=2;'
-    'end'
-    'r=exists(''a'')==1|exists(''b'')==0'
-    'r=r|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try a=xxxx;'
-    'catch b=2;'
-    'end'
-    'r=exists(''a'')==1|exists(''b'')==0'
-    'r=r|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try a=xxxx;catch b=2;end'
-    'r=exists(''a'')==1|exists(''b'')==0'
-    'r=r|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'if execstr(''try a=xxxx catch b=2;end'',''errcatch'')<>276 then bugmes();quit;end'
-    'r=exists(''a'')==1|exists(''b'')==1 '],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try a=xxxx catch b=2;end'
-    'r=exists(''a'')==1|exists(''b'')==0'
-    'r=r|b<>2'],'n')
-if execstr('test()','errcatch')<>276 then bugmes();quit;end
-deff('r=test()',[
-    'if execstr(''try a=1 catch b=2;end'',''errcatch'')<>276 then bugmes();quit;end'
-    'r=exists(''a'')==1|exists(''b'')==1 '],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try a=1, catch b=2;end'
-    'r=exists(''a'')==0|exists(''b'')==1'
-    'r=r|a<>1'],'n')
-if execstr('r=test()','errcatch')<>0 then bugmes();quit;end
-if r then bugmes();quit;end
-comp(test)
-if execstr('r=test()','errcatch')<>0 then bugmes();quit;end
+deff("r=test()",[
+"try"
+"  a=xxxx;"
+"catch "
+"  b=2;"
+"end"
+"r=exists(''a'')==1|exists(''b'')==0"
+"r=r|b<>2"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try a=xxxx;"
+"catch "
+"  b=2;"
+"end"
+"r=exists(''a'')==1|exists(''b'')==0"
+"r=r|b<>2"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try"
+"  a=xxxx;"
+"catch b=2;"
+"end"
+"r=exists(''a'')==1|exists(''b'')==0"
+"r=r|b<>2"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try a=xxxx;"
+"catch b=2;"
+"end"
+"r=exists(''a'')==1|exists(''b'')==0"
+"r=r|b<>2"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try a=xxxx;catch b=2;end"
+"r=exists(''a'')==1|exists(''b'')==0"
+"r=r|b<>2"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"if execstr(''try a=xxxx catch b=2;end'',''errcatch'')<>0 then bugmes();quit;end"
+"r=exists(''a'')==1|exists(''b'')==0 "])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try a=xxxx catch b=2;end"
+"r=exists(''a'')==1|exists(''b'')==0"
+"r=r|b<>2"])
+if execstr("test()","errcatch")<>0 then bugmes();quit;end
+deff("r=test()",[
+"if execstr(''try a=1 catch b=2;end'',''errcatch'')<>0 then bugmes();quit;end"
+"r=exists(''a'')==0|exists(''b'')==1 "])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try a=1, catch b=2;end"
+"r=exists(''a'')==0|exists(''b'')==1"
+"r=r|a<>1"])
+if execstr("r=test()","errcatch")<>0 then bugmes();quit;end
 if r then bugmes();quit;end
-deff('r=test()',[
-    'try b=xxxx, catch a=1;end'
-    'r=exists(''a'')==0|exists(''b'')==1'
-    'r=r|a<>1'],'n')
-if execstr('r=test()','errcatch')<>0 then bugmes();quit;end
+deff("r=test()",[
+"try b=xxxx, catch a=1;end"
+"r=exists(''a'')==0|exists(''b'')==1"
+"r=r|a<>1"])
+if execstr("r=test()","errcatch")<>0 then bugmes();quit;end
 if r then bugmes();quit;end
-comp(test)
-if execstr('r=test()','errcatch')<>0 then bugmes();quit;end
-if r then bugmes();quit;end
-deff('r=test()',[
-    'try a=1 catch b=2;end'
-    'r=exists(''a'')==1|exists(''b'')==0'
-    'r=r|b<>2'],'n')
-if execstr('test()','errcatch')<>276 then bugmes();quit;end
-deff('r=test()',[
-    'try,  a=xxxx;catch, b=2;end'
-    'r=exists(''a'')==1|exists(''b'')==0'
-    'r=r|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try,  a=xxxx;catch;end'
-    'r=exists(''a'')==1'],'n')
+deff("r=test()",[
+"try a=1 catch b=2;end"
+"r=exists(''a'')==0|exists(''b'')==1"
+"r=r|a<>1"])
+if execstr("test()","errcatch")<>0 then bugmes();quit;end
+deff("r=test()",[
+"try,  a=xxxx;catch, b=2;end"
+"r=exists(''a'')==1|exists(''b'')==0"
+"r=r|b<>2"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try,  a=xxxx;catch end"
+"r=exists(''a'')==1"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try,  a=1;end"
+"r=exists(''a'')==0"
+"r=r|a<>1"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try,  a=xxxx;end"
+"r=exists(''a'')==1"])
+if test() then bugmes();quit;end
+if execstr("deff(""r=test()"",[""try;catch, b=2;end"" ""r=exists(""""b"""")==1""])" ,"errcatch") == 0 then bugmes();quit;end
+if execstr("deff(""r=test()"",[""try;end"" ""r=%f""])", "errcatch") == 0 then bugmes();quit;end
+deff("r=test()",[
+"try, if %t then  a=xxxx,end;catch, b=2;end"
+"r=exists(''a'')==1|exists(''b'')==0"
+"r=r|b<>2"])
 if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try,  a=1;end'
-    'r=exists(''a'')==0'
-    'r=r|a<>1'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try,  a=xxxx;end'
-    'r=exists(''a'')==1'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try;catch, b=2;end'
-    'r=exists(''b'')==1'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try;end'
-    'r=%f'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try, if %t then  a=xxxx,end;catch, b=2;end'
-    'r=exists(''a'')==1|exists(''b'')==0'
-    'r=r|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
 //nested try catch
-deff('r=test()',[
-    'try   '
-    '  a=xxxx;'
-    'catch '
-    '  try '
-    '    b=xxx,'
-    '  catch '
-    '    b=2;'
-    '  end;'
-    '  b=b+1;'
-    'end'
-    'r=exists(''a'')==1|exists(''b'')==0'
-    'r=r|b<>3'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try   a=xxxx;catch try b=xxx,catch b=2;end;end'
-    'r=exists(''a'')==1|exists(''b'')==0'
-    'r=r|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('test()',['try a=2; try a=xxxx; catch a=a+1,end; catch;b=2;end'])
-fun2string(test)
+deff("r=test()",[
+"try   "
+"  a=xxxx;"
+"catch "
+"  try "
+"    b=xxx,"
+"  catch "
+"    b=2;"
+"  end;"
+"  b=b+1;"
+"end"
+"r=exists(''a'')==1|exists(''b'')==0"
+"r=r|b<>3"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try   a=xxxx;catch try b=xxx,catch b=2;end;end"
+"r=exists(''a'')==1|exists(''b'')==0"
+"r=r|b<>2"])
+if test() then bugmes();quit;end
+deff("test()",["try a=2; try a=xxxx; catch a=a+1,end; catch;b=2;end"])
+tree2code(macr2tree(test))
  ans  =
-!function []=ans()                                                  !
-!                                                                   !
-!  try  a = 2;try  a = xxxx;catch  a = a + 1,end,catch  b = 2;end,  !
-!                                                                   !
-!endfunction                                                        !
-deff('r=test()',[
-    'try a=2;try a=xxxx+33; catch a=a+1,end;catch;b=2;end'
-    'r=exists(''a'')==0|exists(''b'')==1'
-    'r=r|a<>3'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try a=2;try a=xxxx; catch a=a+1,end;b=2;end'
-    'r=exists(''a'')==0|exists(''b'')==0'
-    'r=r|a<>3|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try a=2;if %t then try a=xxxx; catch a=a+1,end;end;b=2;end'
-    'r=exists(''a'')==0|exists(''b'')==0'
-    'r=r|a<>3|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try a=2;if %t then try a=xxxx; catch a=a+1,end;b=2;end;end'
-    'r=exists(''a'')==0|exists(''b'')==0'
-    'r=r|a<>3|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try a=2;try a=xxxx; catch if %t then a=a+1,end,end;b=2;end'
-    'r=exists(''a'')==0|exists(''b'')==0'
-    'r=r|a<>3|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'if %t then try a=2;try a=xxxx; catch a=a+1,end;b=2;end;end'
-    'r=exists(''a'')==0|exists(''b'')==0'
-    'r=r|a<>3|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'try a=2;try a=xxxx; catch for k=1:2,a=a+1,end,end;b=2;end'
-    'r=exists(''a'')==0|exists(''b'')==0'
-    'r=r|a<>4|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'for k=1:3,try a=2;if %t then try a=xxxx; catch a=a+1,end;end;b=2;end,end'
-    'r=exists(''a'')==0|exists(''b'')==0'
-    'r=r|a<>3|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'for k=1:3,try a=2;if %t then try a=xxxx; catch for k=1:2,a=a+1,end,end;end;b=2;end,end'
-    'r=exists(''a'')==0|exists(''b'')==0'
-    'r=r|a<>4|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('r=test()',[
-    'b=0;while b==0,try a=2;if %t then try a=xxxx; catch a=a+1,end;end;b=2;end,end'
-    'r=exists(''a'')==0|exists(''b'')==0'
-    'r=r|a<>3|b<>2'],'n')
-if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-deff('b=test1()',[
-    '  try '
-    '    b=xxx,'
-    '  catch '
-    '    b=2;'
-    '  end;'],'n')
-deff('r=test()',[
-    'try'
-    '  a=xxxx;'
-    'catch'
-    '  b=test1()'
-    '  b=b+1'
-    'end'
-    'r=exists(''b'')==0'
-    'r=r|b<>3'],'n')
+!function test()  !
+!                 !
+!try              !
+!                 !
+!  a = 2;  try    !
+!                 !
+!    a = xxxx;    !
+!                 !
+!  catch          !
+!                 !
+!    a = a+1      !
+!                 !
+!  end;           !
+!                 !
+!catch            !
+!                 !
+!  b = 2;         !
+!                 !
+!end;             !
+!                 !
+!endfunction      !
+!                 !
+!                 !
+deff("r=test()",[
+"try a=2;try a=xxxx+33; catch a=a+1,end;catch;b=2;end"
+"r=exists(''a'')==0|exists(''b'')==1"
+"r=r|a<>3"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try a=2;try a=xxxx; catch a=a+1,end;b=2;end"
+"r=exists(''a'')==0|exists(''b'')==0"
+"r=r|a<>3|b<>2"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try a=2;if %t then try a=xxxx; catch a=a+1,end;end;b=2;end"
+"r=exists(''a'')==0|exists(''b'')==0"
+"r=r|a<>3|b<>2"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try a=2;if %t then try a=xxxx; catch a=a+1,end;b=2;end;end"
+"r=exists(''a'')==0|exists(''b'')==0"
+"r=r|a<>3|b<>2"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try a=2;try a=xxxx; catch if %t then a=a+1,end,end;b=2;end"
+"r=exists(''a'')==0|exists(''b'')==0"
+"r=r|a<>3|b<>2"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"if %t then try a=2;try a=xxxx; catch a=a+1,end;b=2;end;end"
+"r=exists(''a'')==0|exists(''b'')==0"
+"r=r|a<>3|b<>2"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"try a=2;try a=xxxx; catch for k=1:2,a=a+1,end,end;b=2;end"
+"r=exists(''a'')==0|exists(''b'')==0"
+"r=r|a<>4|b<>2"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"for k=1:3,try a=2;if %t then try a=xxxx; catch a=a+1,end;end;b=2;end,end"
+"r=exists(''a'')==0|exists(''b'')==0"
+"r=r|a<>3|b<>2"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"for k=1:3,try a=2;if %t then try a=xxxx; catch for k=1:2,a=a+1,end,end;end;b=2;end,end"
+"r=exists(''a'')==0|exists(''b'')==0"
+"r=r|a<>4|b<>2"])
+if test() then bugmes();quit;end
+deff("r=test()",[
+"b=0;while b==0,try a=2;if %t then try a=xxxx; catch a=a+1,end;end;b=2;end,end"
+"r=exists(''a'')==0|exists(''b'')==0"
+"r=r|a<>3|b<>2"])
+if test() then bugmes();quit;end
+deff("b=test1()",[
+"  try "
+"    b=xxx,"
+"  catch "
+"    b=2;"
+"  end;"])
+deff("r=test()",[
+"try"
+"  a=xxxx;"
+"catch"
+"  b=test1()"
+"  b=b+1"
+"end"
+"r=exists(''b'')==0"
+"r=r|b<>3"])
 if test() then bugmes();quit;end
-comp(test);if test() then bugmes();quit;end
-comp(test1);if test() then bugmes();quit;end
index 8896412..44b62cc 100644 (file)
@@ -4,7 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-// <-- NOT FIXED -->
+
 //interactive mode
 clear a b
 try
@@ -96,7 +96,7 @@ if exists("a")==1|exists("b")==0 then pause,end
 if b<>2 then pause,end
 
 clear a  xxxx
-try,  a=xxxx;catch;end
+try a=xxxx;catch end
 if exists("a")==1 then pause,end
 
 clear a  xxxx
@@ -115,7 +115,7 @@ if exists("a")==1|exists("b")==0 then pause,end
 if b<>2 then pause,end
 
 clear a b xxxx
-try, if %t then  a=xxxx,end;catch, b=2;end
+try, if %t then  a=xxxx;end;catch, b=2;end
 if exists("a")==1|exists("b")==0 then pause,end
 if b<>2 then pause,end
 
@@ -141,13 +141,13 @@ if b<>2 then pause,end
 
 
 clear a b xxxx
-try a=2;try a=xxxx; catch a=a+1,end;catch;b=2;end
+try a=2;try a=xxxx; catch a=a+1; end;catch;b=2;end
 if exists("a")==0|exists("b")==1 then pause,end
 if a<>3 then pause,end
 
 
 clear a b xxxx
-try a=2;try a=xxxx; catch a=a+1,end;b=2;end
+try a=2;try a=xxxx; catch a=a+1; end;b=2;end
 if exists("a")==0|exists("b")==0 then pause,end
 if a<>3|b<>2 then pause,end
 
@@ -161,7 +161,7 @@ deff("r=test()",[
 "  b=2+1;"
 "end"
 "r=exists(''a'')==0|exists(''b'')==1 "
-"r=r|a<>1"],"n")
+"r=r|a<>1"])
 if test() then pause,end
 
 deff("r=test()",[
@@ -170,7 +170,7 @@ deff("r=test()",[
 "  b=2;"
 "end"
 "r=exists(''a'')==0|exists(''b'')==1"
-"r=r|a<>1"],"n")
+"r=r|a<>1"])
 if test() then pause,end
 
 deff("r=test()",[
@@ -178,19 +178,19 @@ deff("r=test()",[
 "catch  b=2;"
 "end"
 "r=exists(''a'')==0|exists(''b'')==1"
-"r=r|a<>1"],"n")
+"r=r|a<>1"])
 if test() then pause,end
 
 deff("r=test()",[
 "try  a=1;catch  b=2;end"
 "r=exists(''a'')==0|exists(''b'')==1"
-"r=r|a<>1"],"n")
+"r=r|a<>1"])
 if test() then pause,end
 
 deff("r=test()",[
 "try,  a=1;catch,  b=2;end"
 "r=exists(''a'')==0|exists(''b'')==1"
-"r=r|a<>1"],"n")
+"r=r|a<>1"])
 if test() then pause,end
 
 clear a b xxxx
@@ -201,7 +201,7 @@ deff("r=test()",[
 "  b=2;"
 "end"
 "r=exists(''a'')==1|exists(''b'')==0"
-"r=r|b<>2"],"n")
+"r=r|b<>2"])
 if test() then pause,end
 
 deff("r=test()",[
@@ -210,7 +210,7 @@ deff("r=test()",[
 "  b=2;"
 "end"
 "r=exists(''a'')==1|exists(''b'')==0"
-"r=r|b<>2"],"n")
+"r=r|b<>2"])
 if test() then pause,end
 
 deff("r=test()",[
@@ -219,7 +219,7 @@ deff("r=test()",[
 "catch b=2;"
 "end"
 "r=exists(''a'')==1|exists(''b'')==0"
-"r=r|b<>2"],"n")
+"r=r|b<>2"])
 if test() then pause,end
 
 deff("r=test()",[
@@ -227,49 +227,49 @@ deff("r=test()",[
 "catch b=2;"
 "end"
 "r=exists(''a'')==1|exists(''b'')==0"
-"r=r|b<>2"],"n")
+"r=r|b<>2"])
 if test() then pause,end
 
 deff("r=test()",[
 "try a=xxxx;catch b=2;end"
 "r=exists(''a'')==1|exists(''b'')==0"
-"r=r|b<>2"],"n")
+"r=r|b<>2"])
 if test() then pause,end
 
 deff("r=test()",[
 "if execstr(''try a=xxxx catch b=2;end'',''errcatch'')<>0 then pause,end"
-"r=exists(''a'')==1|exists(''b'')==0 "],"n")
+"r=exists(''a'')==1|exists(''b'')==0 "])
 if test() then pause,end
 
 deff("r=test()",[
 "try a=xxxx catch b=2;end"
 "r=exists(''a'')==1|exists(''b'')==0"
-"r=r|b<>2"],"n")
+"r=r|b<>2"])
 if execstr("test()","errcatch")<>0 then pause,end
 
 deff("r=test()",[
 "if execstr(''try a=1 catch b=2;end'',''errcatch'')<>0 then pause,end"
-"r=exists(''a'')==0|exists(''b'')==1 "],"n")
+"r=exists(''a'')==0|exists(''b'')==1 "])
 if test() then pause,end
 
 deff("r=test()",[
 "try a=1, catch b=2;end"
 "r=exists(''a'')==0|exists(''b'')==1"
-"r=r|a<>1"],"n")
+"r=r|a<>1"])
 if execstr("r=test()","errcatch")<>0 then pause,end
 if r then pause,end
 
 deff("r=test()",[
 "try b=xxxx, catch a=1;end"
 "r=exists(''a'')==0|exists(''b'')==1"
-"r=r|a<>1"],"n")
+"r=r|a<>1"])
 if execstr("r=test()","errcatch")<>0 then pause,end
 if r then pause,end
 
 deff("r=test()",[
 "try a=1 catch b=2;end"
 "r=exists(''a'')==0|exists(''b'')==1"
-"r=r|a<>1"],"n")
+"r=r|a<>1"])
 if execstr("test()","errcatch")<>0 then pause,end
 
 
@@ -277,24 +277,24 @@ if execstr("test()","errcatch")<>0 then pause,end
 deff("r=test()",[
 "try,  a=xxxx;catch, b=2;end"
 "r=exists(''a'')==1|exists(''b'')==0"
-"r=r|b<>2"],"n")
+"r=r|b<>2"])
 if test() then pause,end
 
 deff("r=test()",[
-"try,  a=xxxx;catch;end"
-"r=exists(''a'')==1"],"n")
+"try,  a=xxxx;catch end"
+"r=exists(''a'')==1"])
 if test() then pause,end
 
 deff("r=test()",[
 "try,  a=1;end"
 "r=exists(''a'')==0"
-"r=r|a<>1"],"n")
+"r=r|a<>1"])
 if test() then pause,end
 
 
 deff("r=test()",[
 "try,  a=xxxx;end"
-"r=exists(''a'')==1"],"n")
+"r=exists(''a'')==1"])
 if test() then pause,end
 
 
@@ -305,7 +305,7 @@ if execstr("deff(""r=test()"",[""try;end"" ""r=%f""])", "errcatch") == 0 then pa
 deff("r=test()",[
 "try, if %t then  a=xxxx,end;catch, b=2;end"
 "r=exists(''a'')==1|exists(''b'')==0"
-"r=r|b<>2"],"n")
+"r=r|b<>2"])
 if test() then pause,end
 
 //nested try catch
@@ -321,71 +321,71 @@ deff("r=test()",[
 "  b=b+1;"
 "end"
 "r=exists(''a'')==1|exists(''b'')==0"
-"r=r|b<>3"],"n")
+"r=r|b<>3"])
 if test() then pause,end
 
 deff("r=test()",[
 "try   a=xxxx;catch try b=xxx,catch b=2;end;end"
 "r=exists(''a'')==1|exists(''b'')==0"
-"r=r|b<>2"],"n")
+"r=r|b<>2"])
 if test() then pause,end
 
 deff("test()",["try a=2; try a=xxxx; catch a=a+1,end; catch;b=2;end"])
-macr2tree(tree2code(test))
+tree2code(macr2tree(test))
 
 deff("r=test()",[
 "try a=2;try a=xxxx+33; catch a=a+1,end;catch;b=2;end"
 "r=exists(''a'')==0|exists(''b'')==1"
-"r=r|a<>3"],"n")
+"r=r|a<>3"])
 if test() then pause,end
 
 
 deff("r=test()",[
 "try a=2;try a=xxxx; catch a=a+1,end;b=2;end"
 "r=exists(''a'')==0|exists(''b'')==0"
-"r=r|a<>3|b<>2"],"n")
+"r=r|a<>3|b<>2"])
 if test() then pause,end
 
 deff("r=test()",[
 "try a=2;if %t then try a=xxxx; catch a=a+1,end;end;b=2;end"
 "r=exists(''a'')==0|exists(''b'')==0"
-"r=r|a<>3|b<>2"],"n")
+"r=r|a<>3|b<>2"])
 if test() then pause,end
 
 deff("r=test()",[
 "try a=2;if %t then try a=xxxx; catch a=a+1,end;b=2;end;end"
 "r=exists(''a'')==0|exists(''b'')==0"
-"r=r|a<>3|b<>2"],"n")
+"r=r|a<>3|b<>2"])
 if test() then pause,end
 
 deff("r=test()",[
 "try a=2;try a=xxxx; catch if %t then a=a+1,end,end;b=2;end"
 "r=exists(''a'')==0|exists(''b'')==0"
-"r=r|a<>3|b<>2"],"n")
+"r=r|a<>3|b<>2"])
 if test() then pause,end
 
 deff("r=test()",[
 "if %t then try a=2;try a=xxxx; catch a=a+1,end;b=2;end;end"
 "r=exists(''a'')==0|exists(''b'')==0"
-"r=r|a<>3|b<>2"],"n")
+"r=r|a<>3|b<>2"])
 if test() then pause,end
 
 deff("r=test()",[
 "try a=2;try a=xxxx; catch for k=1:2,a=a+1,end,end;b=2;end"
 "r=exists(''a'')==0|exists(''b'')==0"
-"r=r|a<>4|b<>2"],"n")
+"r=r|a<>4|b<>2"])
 if test() then pause,end
 
 deff("r=test()",[
 "for k=1:3,try a=2;if %t then try a=xxxx; catch a=a+1,end;end;b=2;end,end"
 "r=exists(''a'')==0|exists(''b'')==0"
-"r=r|a<>3|b<>2"],"n")
+"r=r|a<>3|b<>2"])
 if test() then pause,end
 
 deff("r=test()",[
 "for k=1:3,try a=2;if %t then try a=xxxx; catch for k=1:2,a=a+1,end,end;end;b=2;end,end"
 "r=exists(''a'')==0|exists(''b'')==0"
-"r=r|a<>4|b<>2"],"n")
+"r=r|a<>4|b<>2"])
 if test() then pause,end
 
 
@@ -393,7 +393,7 @@ if test() then pause,end
 deff("r=test()",[
 "b=0;while b==0,try a=2;if %t then try a=xxxx; catch a=a+1,end;end;b=2;end,end"
 "r=exists(''a'')==0|exists(''b'')==0"
-"r=r|a<>3|b<>2"],"n")
+"r=r|a<>3|b<>2"])
 if test() then pause,end
 
 
@@ -402,7 +402,7 @@ deff("b=test1()",[
 "    b=xxx,"
 "  catch "
 "    b=2;"
-"  end;"],"n")
+"  end;"])
 
 deff("r=test()",[
 "try"
@@ -412,6 +412,6 @@ deff("r=test()",[
 "  b=b+1"
 "end"
 "r=exists(''b'')==0"
-"r=r|b<>3"],"n")
+"r=r|b<>3"])
 if test() then pause,end