[core] tests updated or deleted 03/17703/12
Cedric Delamarre [Tue, 19 Jan 2016 17:45:29 +0000 (18:45 +0100)]
test_run core bug_1619
test_run core bug_2611
test_run core bug_414
test_run core bug_6891
test_run core bug_9659

test_run core clear
test_run core parse
test_run core scal_vect_mat

Change-Id: I84a853a06ad4f5f659f10f1a975b69499123951e

48 files changed:
scilab/modules/core/tests/nonreg_tests/bug_10544.dia.ref [deleted file]
scilab/modules/core/tests/nonreg_tests/bug_10544.tst [deleted file]
scilab/modules/core/tests/nonreg_tests/bug_10861.dia.ref [deleted file]
scilab/modules/core/tests/nonreg_tests/bug_10861.tst [deleted file]
scilab/modules/core/tests/nonreg_tests/bug_1200.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_1597.dia.ref [deleted file]
scilab/modules/core/tests/nonreg_tests/bug_1597.tst [deleted file]
scilab/modules/core/tests/nonreg_tests/bug_1619.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_1619.tst
scilab/modules/core/tests/nonreg_tests/bug_2611.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_2611.tst
scilab/modules/core/tests/nonreg_tests/bug_2618.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_300.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_3006.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_3818.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_414.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_4599.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_474.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_553.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_564.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_6730.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_6830.c [deleted file]
scilab/modules/core/tests/nonreg_tests/bug_6830.dia.ref [deleted file]
scilab/modules/core/tests/nonreg_tests/bug_6830.tst [deleted file]
scilab/modules/core/tests/nonreg_tests/bug_797.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_883.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_9659.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_9659.tst
scilab/modules/core/tests/unit_tests/basic_operations.dia.ref
scilab/modules/core/tests/unit_tests/breakpoints.dia.ref [deleted file]
scilab/modules/core/tests/unit_tests/breakpoints.tst [deleted file]
scilab/modules/core/tests/unit_tests/breakpoints_i.tst [deleted file]
scilab/modules/core/tests/unit_tests/clear.dia.ref
scilab/modules/core/tests/unit_tests/clear.tst
scilab/modules/core/tests/unit_tests/colon.dia.ref
scilab/modules/core/tests/unit_tests/comment.dia.ref
scilab/modules/core/tests/unit_tests/debug.dia.ref [deleted file]
scilab/modules/core/tests/unit_tests/debug.tst [deleted file]
scilab/modules/core/tests/unit_tests/display.dia.ref
scilab/modules/core/tests/unit_tests/elem.dia.ref
scilab/modules/core/tests/unit_tests/exists.dia.ref
scilab/modules/core/tests/unit_tests/format.dia.ref
scilab/modules/core/tests/unit_tests/macro.dia.ref
scilab/modules/core/tests/unit_tests/mode.dia.ref
scilab/modules/core/tests/unit_tests/parse.dia.ref
scilab/modules/core/tests/unit_tests/scal_vect_mat.dia.ref
scilab/modules/core/tests/unit_tests/scal_vect_mat.tst
scilab/modules/core/tests/unit_tests/warning.dia.ref

diff --git a/scilab/modules/core/tests/nonreg_tests/bug_10544.dia.ref b/scilab/modules/core/tests/nonreg_tests/bug_10544.dia.ref
deleted file mode 100644 (file)
index c27b31c..0000000
+++ /dev/null
@@ -1,60 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2012 - DIGITEO - Allan CORNET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Non-regression test for bug 10544 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=10544
-//
-// <-- Short Description -->
-// debug did not return the previous value when called with an argument.
-//
-A = debug(0);
- debug 0
-assert_checkequal(A, 0);
-B = debug(1);
- debug 1
-assert_checkequal(B, 0);
-        [cnonan , cnumb] = mythrownan(computed)
-        [enonan , enumb] = mythrownan(expected)
-        if ( and(enonan == cnonan) & and(enumb == cnumb) ) then
-            flag = %t
-        else
-            flag = %f
-        end
-return!
-        //
-        //
-        // Copyright (C) 2000 - INRIA - Carlos Klimann
-        // Copyright (C) 2010 - 2011 - DIGITEO - Michael Baudin
-        //This  function  returns  in  vector  nonan  the  values
-        //(ignoring the NANs) of a  vector or matrix x and in the
-        //corresponding places of vector  numb the indexes of the
-        //value.
-        //
-        //For  a  vector  or matrix  x,  [nonan,numb]=thrownan(x)
-        //considers x, whatever his dimensions are, like a linear
-        //vector (columns  first).
-        //
-        //
-        [lhs,rhs]=argn(0)
-        if ( rhs<>1 ) then
-            error(msprintf(gettext("%s: Wrong number of input argumen...
-t: %d expected.\n"),"thrownan",1))
-        end
-        numb=find(bool2s(~isnan(x)))
-        nonan=x(~isnan(x))
-return!
-C = debug(0);
- debug 0
-assert_checkequal(C, 1);
diff --git a/scilab/modules/core/tests/nonreg_tests/bug_10544.tst b/scilab/modules/core/tests/nonreg_tests/bug_10544.tst
deleted file mode 100644 (file)
index d48dfba..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2012 - DIGITEO - Allan CORNET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Non-regression test for bug 10544 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=10544
-//
-// <-- Short Description -->
-// debug did not return the previous value when called with an argument.
-//
-
-A = debug(0);
-assert_checkequal(A, 0);
-
-B = debug(1);
-assert_checkequal(B, 0);
-
-C = debug(0);
-assert_checkequal(C, 1);
diff --git a/scilab/modules/core/tests/nonreg_tests/bug_10861.dia.ref b/scilab/modules/core/tests/nonreg_tests/bug_10861.dia.ref
deleted file mode 100644 (file)
index 3e7e344..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2012 - DIGITEO - Allan CORNET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Non-regression test for bug 10861 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=10861
-//
-// <-- Short Description -->
-//
-// debug([]) returns a wrong error message
-msgerr = msprintf(gettext("%s: Wrong size for argument #%d: Real scalar expected.\n"), "debug", 1);
-assert_checkerror("debug([])", msgerr);
-assert_checkerror: Assertion failed: expected error message = "debug: Wrong size for argument #1: Real scalar expected." while computed error message = "Undefined variable: debug".
-at line   126 of function assert_checkerror ( SCI/modules/development_tools/macros/assert/assert_checkerror.sci line 135 )
-at line    33 of executed file TMPDIR/bug_10861.tst
-
diff --git a/scilab/modules/core/tests/nonreg_tests/bug_10861.tst b/scilab/modules/core/tests/nonreg_tests/bug_10861.tst
deleted file mode 100644 (file)
index 55679be..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2012 - DIGITEO - Allan CORNET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Non-regression test for bug 10861 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=10861
-//
-// <-- Short Description -->
-//
-// debug([]) returns a wrong error message
-
-msgerr = msprintf(gettext("%s: Wrong size for argument #%d: Real scalar expected.\n"), "debug", 1);
-assert_checkerror("debug([])", msgerr);
diff --git a/scilab/modules/core/tests/nonreg_tests/bug_1597.dia.ref b/scilab/modules/core/tests/nonreg_tests/bug_1597.dia.ref
deleted file mode 100644 (file)
index 4f83a7b..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2005-2008 - INRIA - Serge Steer
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- Non-regression test for bug 1597 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=1597
-//
-// <-- Short Description -->
-// Parser incorrect behaviour. The parser neither handles correctly syntax like
-//  gce().children; sin(1)(1), nor produces an error
-function r=foo,r=1:3,endfunction
-if execstr('foo().a','errcatch')<>250 then bugmes();quit;end
-if execstr('foo()(1)','errcatch')<>250 then bugmes();quit;end
-if execstr('who().a','errcatch')<>250 then bugmes();quit;end
-if execstr('who()(1)','errcatch')<>250 then bugmes();quit;end
-if execstr('sin(1:3).a','errcatch')<>250 then bugmes();quit;end
-if execstr('sin(1:3)(1)','errcatch')<>250 then bugmes();quit;end
-function r=foo1(a),r=1,endfunction
-if execstr('foo1(2).a','errcatch')<>250 then bugmes();quit;end
-if execstr('foo(2)(1)','errcatch')<>250 then bugmes();quit;end
diff --git a/scilab/modules/core/tests/nonreg_tests/bug_1597.tst b/scilab/modules/core/tests/nonreg_tests/bug_1597.tst
deleted file mode 100644 (file)
index db47d12..0000000
+++ /dev/null
@@ -1,30 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2005-2008 - INRIA - Serge Steer
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- Non-regression test for bug 1597 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=1597
-//
-// <-- Short Description -->
-// Parser incorrect behaviour. The parser neither handles correctly syntax like 
-//  gce().children; sin(1)(1), nor produces an error
-
-function r=foo,r=1:3,endfunction
-if execstr('foo().a','errcatch')<>250 then pause,end
-if execstr('foo()(1)','errcatch')<>250 then pause,end
-
-if execstr('who().a','errcatch')<>250 then pause,end
-if execstr('who()(1)','errcatch')<>250 then pause,end
-
-if execstr('sin(1:3).a','errcatch')<>250 then pause,end
-if execstr('sin(1:3)(1)','errcatch')<>250 then pause,end
-
-
-function r=foo1(a),r=1,endfunction
-if execstr('foo1(2).a','errcatch')<>250 then pause,end
-if execstr('foo(2)(1)','errcatch')<>250 then pause,end
index 098a5df..55ae74f 100644 (file)
@@ -1,3 +1,9 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
 // <-- Non-regression test for bug 1619 -->
 //
 // <-- Bugzilla URL -->
 //    macr2tree doesn't like functions compiled for profiling. It hates them
 //    so much,
 //    that causes spectacular crashes of scilab.
-// Copyright INRIA
-// Scilab Project - Serge Steer
-// Copyright INRIA 2006
-// Date : 2 octobre 2006
-deff('x=foo(n)',['if n==0 then'
-                 '  x=[]'
-                 'else'
-                 '  x=0'
-                 '  for k=1:n'
-                 '    s=svd(rand(n+10,n+10))'
-                 '    x=x+s(1)'
-                 '  end'
-                 'end'],'p')
-if execstr('T=macr2tree(foo)','errcatch') <> 0 then bugmes();quit;end
+deff("x=foo(n)",["if n==0 then"
+"  x=[]"
+"else"
+"  x=0"
+"  for k=1:n"
+"    s=svd(rand(n+10,n+10))"
+"    x=x+s(1)"
+"  end"
+"end"])
+if execstr("T=macr2tree(foo)","errcatch") <> 0 then bugmes();quit;end
 clear foo;
 function y=foo(),y=sin(33)+1;endfunction
 foo(); //execution creates a deleted op in the pseudo code of foo
-if execstr('macr2tree(foo)','errcatch') <> 0 then bugmes();quit;end
+if execstr("macr2tree(foo)","errcatch") <> 0 then bugmes();quit;end
index 4e671f5..28c6d14 100644 (file)
 // http://bugzilla.scilab.org/show_bug.cgi?id=1619
 //
 // <-- Short Description -->
-//    macr2tree doesn't like functions compiled for profiling. It hates them 
+//    macr2tree doesn't like functions compiled for profiling. It hates them
 //    so much,
 //    that causes spectacular crashes of scilab.
 
-deff('x=foo(n)',['if n==0 then'
-                 '  x=[]'
-                 'else'
-                 '  x=0'
-                 '  for k=1:n'
-                 '    s=svd(rand(n+10,n+10))'
-                 '    x=x+s(1)'
-                 '  end'
-                 'end'],'p')
-if execstr('T=macr2tree(foo)','errcatch') <> 0 then pause,end
+deff("x=foo(n)",["if n==0 then"
+"  x=[]"
+"else"
+"  x=0"
+"  for k=1:n"
+"    s=svd(rand(n+10,n+10))"
+"    x=x+s(1)"
+"  end"
+"end"])
+if execstr("T=macr2tree(foo)","errcatch") <> 0 then pause,end
 clear foo;
 
 function y=foo(),y=sin(33)+1;endfunction
 foo(); //execution creates a deleted op in the pseudo code of foo
-if execstr('macr2tree(foo)','errcatch') <> 0 then pause,end
+if execstr("macr2tree(foo)","errcatch") <> 0 then pause,end
index de1d5a5..b26f9c1 100644 (file)
 // <-- ENGLISH IMPOSED -->
 funcprot(0);
 function r=test()
-  r=%f
-  try
-    for j=1:3, error('test',1001); end
-  catch
-    r=%t
-  end
+    r=%f
+    try
+        for j=1:3, error("test",1001); end
+    catch
+        r=%t
+    end
 endfunction
 if ~test() then bugmes();quit;end
-if lasterror()<>'test' then bugmes();quit;end
-deff('r=test()',['r=%f'
-'try'
-'    for j=1:3, error(''test'',1001); end,'
-'catch'
-'    r=%t'
-'end'],'n')
+if lasterror()<>"test" then bugmes();quit;end
+deff("r=test()",["r=%f"
+"try"
+"    for j=1:3, error(''test'',1001); end,"
+"catch"
+"    r=%t"
+"end"])
 if ~test() then bugmes();quit;end
-if lasterror()<>'test' then bugmes();quit;end
+if lasterror()<>"test" then bugmes();quit;end
index c705fc7..896e079 100644 (file)
 funcprot(0);
 
 function r=test()
-  r=%f
-  try
-    for j=1:3, error('test',1001); end
-  catch
-    r=%t
-  end
+    r=%f
+    try
+        for j=1:3, error("test",1001); end
+    catch
+        r=%t
+    end
 endfunction
 if ~test() then pause,end
-if lasterror()<>'test' then pause,end
+if lasterror()<>"test" then pause,end
 
 
-deff('r=test()',['r=%f'
-'try'
-'    for j=1:3, error(''test'',1001); end,'
-'catch'
-'    r=%t'
-'end'],'n')
+deff("r=test()",["r=%f"
+"try"
+"    for j=1:3, error(''test'',1001); end,"
+"catch"
+"    r=%t"
+"end"])
 if ~test() then pause,end
-if lasterror()<>'test' then pause,end
+if lasterror()<>"test" then pause,end
 
index 7da60ae..8b51a61 100644 (file)
@@ -20,7 +20,7 @@ try
 catch
     r=%t
 end
- r  =
+ r  = 
 if ~r then bugmes();quit;end
 [str,n]=lasterror();
 if n == 0 then bugmes();quit;end
@@ -33,7 +33,7 @@ try
 catch
     r=%t
 end
- r  =
+ r  = 
 if ~r then bugmes();quit;end
 [str,n]=lasterror();
 if n == 0 then bugmes();quit;end
index f137c2a..852c194 100644 (file)
 points=[
 1      -97.653 0.77379 1364.85 60.4167 -7.62437        1319.19 -106.531        298.002 113.749 -59.73  71.3467 1590.85 -94.3265        83.8749 966.287 -50.6249        354.009 1175.86 49.9465 67.9678 1589.85 0.70186 101.506 941.23  75.8925 107.056 918.362 -143.865        219.11  23.8894 -60.5478        242.837 458.224 -50.1608        355.739 30.9651 -34.6623        124.572 1330.14 62.1976 359.302 17.8162 -18.2352        136.112 1029.3  -20.3797        189.211 971.398 -102.847        -279.752        110.603 -65.2832        -83.2655        1589.44 -90.6861        -90.8717        966.307 -72.7284        -362.391        1180.1  44.1326 -88.0078        1588.44 24.0691 -105.18 966.212 81.1965 -102.425        919.556 -130.435        -207.833        13.458  -75.3469        -226.814        456.206 -38.7496        -341.018        35.2857 -54.6712        -131.958        1336.98 71.1977 -354.482        35.2572 2.80353 -143.47 1050.4  -1.46634        -192.402        989.221 -93.7311        1.74179 1041.43 97.694  -6.5736 1230.67 -121.324        2.42329 1240.01]
  points  = 
-         column 1 to 6
-    1.  - 97.653    0.77379    1364.85    60.4167  - 7.62437
-         column 7 to 12
-    1319.19  - 106.531    298.002    113.749  - 59.73    71.3467
-         column 13 to 18
-    1590.85  - 94.3265    83.8749    966.287  - 50.6249    354.009
-         column 19 to 24
-    1175.86    49.9465    67.9678    1589.85    0.70186    101.506
-         column 25 to 30
-    941.23    75.8925    107.056    918.362  - 143.865    219.11
-         column 31 to 36
-    23.8894  - 60.5478    242.837    458.224  - 50.1608    355.739
-         column 37 to 42
-    30.9651  - 34.6623    124.572    1330.14    62.1976    359.302
-         column 43 to 48
-    17.8162  - 18.2352    136.112    1029.3  - 20.3797    189.211
-         column 49 to 54
-    971.398  - 102.847  - 279.752    110.603  - 65.2832  - 83.2655
-         column 55 to 60
-    1589.44  - 90.6861  - 90.8717    966.307  - 72.7284  - 362.391
-         column 61 to 66
-    1180.1    44.1326  - 88.0078    1588.44    24.0691  - 105.18
-         column 67 to 72
-    966.212    81.1965  - 102.425    919.556  - 130.435  - 207.833
-         column 73 to 78
-    13.458  - 75.3469  - 226.814    456.206  - 38.7496  - 341.018
-         column 79 to 84
-    35.2857  - 54.6712  - 131.958    1336.98    71.1977  - 354.482
-         column 85 to 90
-    35.2572    2.80353  - 143.47    1050.4  - 1.46634  - 192.402
-         column 91 to 96
-    989.221  - 93.7311    1.74179    1041.43    97.694  - 6.5736
-         column 97 to 100
-    1230.67  - 121.324    2.42329    1240.01
+         column 1 to 7
+   1.  -97.653   0.77379   1364.85   60.4167  -7.62437   1319.19
+         column 8 to 14
+  -106.531   298.002   113.749  -59.73   71.3467   1590.85  -94.3265
+         column 15 to 20
+   83.8749   966.287  -50.6249   354.009   1175.86   49.9465
+         column 21 to 27
+   67.9678   1589.85   0.70186   101.506   941.23   75.8925   107.056
+         column 28 to 34
+   918.362  -143.865   219.11   23.8894  -60.5478   242.837   458.224
+         column 35 to 40
+  -50.1608   355.739   30.9651  -34.6623   124.572   1330.14
+         column 41 to 47
+   62.1976   359.302   17.8162  -18.2352   136.112   1029.3  -20.3797
+         column 48 to 53
+   189.211   971.398  -102.847  -279.752   110.603  -65.2832
+         column 54 to 59
+  -83.2655   1589.44  -90.6861  -90.8717   966.307  -72.7284
+         column 60 to 66
+  -362.391   1180.1   44.1326  -88.0078   1588.44   24.0691  -105.18
+         column 67 to 73
+   966.212   81.1965  -102.425   919.556  -130.435  -207.833   13.458
+         column 74 to 79
+  -75.3469  -226.814   456.206  -38.7496  -341.018   35.2857
+         column 80 to 85
+  -54.6712  -131.958   1336.98   71.1977  -354.482   35.2572
+         column 86 to 92
+   2.80353  -143.47   1050.4  -1.46634  -192.402   989.221  -93.7311
+         column 93 to 99
+   1.74179   1041.43   97.694  -6.5736   1230.67  -121.324   2.42329
+         column 100
+   1240.01
 if size(points) <> [ 1 , 100] then bugmes();quit;end
index 4e86579..0691711 100644 (file)
@@ -10,7 +10,7 @@
 // http://bugzilla.scilab.org/show_bug.cgi?id=3006
 //
 // <-- Short Description -->
-// submatrix assignment impossible when the matrix is indexed with a boolean array of falses
+// submatrix assignment impossible when the matrix is indexed with a boolean array of falses  
 //test with handle matrix
 a=[gcf() gca();gca() gcf()];a_ref=a;
 a(1,[%f %f])=[];
index 41a79a3..e0b4bcf 100644 (file)
@@ -22,8 +22,8 @@ try
 catch
     ok=%t;
 end
-k  = 
+ k  = 
   F
-k  = 
+ k  = 
   T
 if ok then bugmes();quit;end
index b63df6d..ad616c2 100644 (file)
@@ -33,22 +33,16 @@ for ll=69:73,lines(0,ll),t,end
 t=(1:13);
 for ll=69:6:90,lines(0,ll),t,end
  t  = 
-         column 1 to 10
-    1.    2.    3.    4.    5.    6.    7.    8.    9.    10.
-         column 11 to 13
-    11.    12.    13.
- t  = 
-         column 1 to 11
-    1.    2.    3.    4.    5.    6.    7.    8.    9.    10.    11.
-         column 12 to 13
-    12.    13.
- t  = 
          column 1 to 12
-    1.    2.    3.    4.    5.    6.    7.    8.    9.    10.    11.    12.
+   1.   2.   3.   4.   5.   6.   7.   8.   9.   10.   11.   12.
          column 13
-    13.
+   13.
+ t  = 
+   1.   2.   3.   4.   5.   6.   7.   8.   9.   10.   11.   12.   13.
+ t  = 
+   1.   2.   3.   4.   5.   6.   7.   8.   9.   10.   11.   12.   13.
  t  = 
-    1.    2.    3.    4.    5.    6.    7.    8.    9.    10.    11.    12.    13.
+   1.   2.   3.   4.   5.   6.   7.   8.   9.   10.   11.   12.   13.
 t=int32(1:23);
 for ll=55:2:65,lines(0,ll),t,end
  t  = 
index 2003914..f6d5287 100644 (file)
@@ -56,7 +56,7 @@ if n<>1 then bugmes();quit;end
 if M<>2 then bugmes();quit;end
 [foo1(),size(find(who('local')=='M'),'*')]
  ans  =
-    1.    1.
+   1.   1.
 //----------------------------------------
 function [n,M1]=foo2(),
   [n1,M1]=foo1(),
index 4daec9a..eff3fa6 100644 (file)
 //correct=%F
 a=matrix(1:9,3,3)
  a  = 
-    1.    4.    7.
-    2.    5.    8.
-    3.    6.    9.
+   1.   4.   7.
+   2.   5.   8.
+   3.   6.   9.
 [mia,kia]=min(a)
  kia  = 
-    1.    1.
+   1.   1.
  mia  = 
-    1.
+   1.
 [maa,kaa]=max(a)
  kaa  = 
-    3.    3.
+   3.   3.
  maa  = 
-    9.
+   9.
 b=int16(matrix(1:9,3,3))
  b  = 
   1  4  7
@@ -55,12 +55,12 @@ b=int16(matrix(1:9,3,3))
   3  6  9
 [mib,kib]=min(b)
  kib  = 
-    1.    1.
+   1.   1.
  mib  = 
   1
 [mab,kab]=max(b)
  kab  = 
-    3.    3.
+   3.   3.
  mab  = 
   9
 if mia<>mib     then bugmes();quit;end
index ea4af36..8664996 100644 (file)
@@ -34,6 +34,6 @@
 // ...
 n = 12;
 if execstr("for n=1:3; disp(n); end","errcatch") <> 0 then bugmes();quit;end
-    1.
-    2.
-    3.
+   1.
+   2.
+   3.
index 202611d..7d0cbda 100644 (file)
@@ -51,16 +51,16 @@ function foo()
 endfunction
 ok = %T;
 foo();
-    1.
-    2.
-    3.
-    4.
+   1.
+   2.
+   3.
+   4.
  Replot
 exec(foo);
-    1.
-    2.
+   1.
+   2.
  needcompile  = 
-    4.
-    3.
-    4.
+   4.
+   3.
+   4.
  Replot
index 07a54c6..c9910b3 100644 (file)
@@ -19,17 +19,17 @@ b=mlist(['foo','hello'],myfun);
 c=mlist(['foo','hello'],list('xxxx','yyyyy','zzzzz'));
 [x,y,z]=b.hello()
  z  = 
-    3.
+   3.
  y  = 
-    2.
+   2.
  x  = 
      ()
 if x<>list()|y<>2|z<>3 then bugmes();quit;end
 [x,y,z]=a.hello()
  z  = 
-    3.
+   3.
  y  = 
-    2.
+   2.
  x  = 
      ()
 if x<>list()|y<>2|z<>3 then bugmes();quit;end
diff --git a/scilab/modules/core/tests/nonreg_tests/bug_6830.c b/scilab/modules/core/tests/nonreg_tests/bug_6830.c
deleted file mode 100644 (file)
index b37b48a..0000000
+++ /dev/null
@@ -1,82 +0,0 @@
-//-------------------------------------------------------------------------------------
-/*
- * Scilab ( http://www.scilab.org/ )
- * Copyright (C) DIGITEO - Allan CORNET - 2009
- *
- * This file is released under the 3-clause BSD license. See COPYING-BSD.
- */
-#define __USE_DEPRECATED_STACK_FUNCTIONS__
-#include "stack-c.h"
-#include "Scierror.h"
-#include "localization.h"
-//-------------------------------------------------------------------------------------
-static int PutOneValueOnStack(double v);
-//-------------------------------------------------------------------------------------
-int sci_callscistring(char *fname)
-{
-    int m1 = 0, n1 = 0, l1 = 0;
-    double v1 = 0.;
-
-    int one = 1, l = 0;
-
-    int rm1 = 0, rn1 = 0, rl1 = 0;
-    double r = 0.;
-
-    int positionFirstElementOnStackForScilabFunction = 0;
-    int numberOfRhsOnScilabFunction = 0;
-    int numberOfLhsOnScilabFunction = 0;
-    int pointerOnScilabFunction = 0;
-    char *name = NULL;
-
-    CheckRhs(1, 1);
-    //CheckLhs(1,1);
-
-    if (GetType(1) != sci_strings)
-    {
-        Scierror(999, _("%s: Wrong type for input argument #%d: A scilab function expected.\n"), fname, 1);
-        return 0;
-    }
-
-    GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1);
-    name = cstk(l1);
-
-
-    // creates a variable (double) on stack @ Rhs + 1
-    CreateVar(Rhs + 1 , MATRIX_OF_DOUBLE_DATATYPE, &one, &one, &l);
-    *stk(l) = 3.0;
-
-    // creates a variable (double) on stack @ Rhs + 2
-    CreateVar(Rhs + 2 , MATRIX_OF_DOUBLE_DATATYPE, &one, &one, &l);
-    *stk(l) = 2.0;
-
-    positionFirstElementOnStackForScilabFunction = Rhs + 1 ;
-
-    numberOfRhsOnScilabFunction = 2;
-
-    numberOfLhsOnScilabFunction = 1;
-
-
-    C2F(scistring)(&positionFirstElementOnStackForScilabFunction, name,
-                   &numberOfLhsOnScilabFunction, &numberOfRhsOnScilabFunction,
-                   (unsigned long) strlen(name) );
-
-    // result r is now on first position on stack
-    GetRhsVar(Rhs + 1 , MATRIX_OF_DOUBLE_DATATYPE, &rm1, &rn1, &rl1);
-    r = *stk(rl1);
-    printf("r = %d\n", r);
-    PutOneValueOnStack(r);
-
-    return 0;
-}
-//-------------------------------------------------------------------------------------
-static int PutOneValueOnStack(double v)
-{
-    int m = 1, n = 1, l = 0;
-
-    CreateVar( Rhs + 1, MATRIX_OF_DOUBLE_DATATYPE, &m, &n, &l );
-    *stk(l) = v;
-    LhsVar(1) = Rhs + 1;
-    C2F(putlhsvar)();
-    return 0;
-}
-//-------------------------------------------------------------------------------------
diff --git a/scilab/modules/core/tests/nonreg_tests/bug_6830.dia.ref b/scilab/modules/core/tests/nonreg_tests/bug_6830.dia.ref
deleted file mode 100644 (file)
index 4ff5282..0000000
+++ /dev/null
@@ -1,67 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2010 - DIGITEO - Allan CORNET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- Non-regression test for bug 6830 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=6830
-//
-// <-- Short Description -->
-// C2F(scistring) in stack2.c was broken for macro names of exactly 2 characters.
-cd(TMPDIR);
-mkdir('bug_6830');
-cd('bug_6830'); 
-copyfile(SCI+'/modules/core/tests/nonreg_tests/bug_6830.c',TMPDIR + '/bug_6830/bug_6830.c');
-files=['bug_6830.c'];
-ilib_verbose(0);
-ilib_build('bug6830',['callscistring','sci_callscistring'],files,[]);
-exec('loader.sce');
-function r = scilabfoo(x,y)
-  disp("x =");
-  disp(x);
-  disp("y =");
-  disp(y);
-  r = x + y;
-  disp("r =");
-  disp(r);
-endfunction
-ierr = execstr("callscistring(''scilabfoo'')","errcatch");
- x =   
-    3.  
- y =   
-    2.  
- r =   
-    5.  
-if ierr <> 0 then bugmes();quit;end
-function r = fo(x,y)
-  disp("x =");
-  disp(x);
-  disp("y =");
-  disp(y);
-  r = x + y;
-  disp("r =");  
-  disp(r);
-endfunction
-ierr = execstr("callscistring(''fo'')","errcatch");
- x =   
-    3.  
- y =   
-    2.  
- r =   
-    5.  
-if ierr <> 0 then bugmes();quit;end
diff --git a/scilab/modules/core/tests/nonreg_tests/bug_6830.tst b/scilab/modules/core/tests/nonreg_tests/bug_6830.tst
deleted file mode 100644 (file)
index 9866da6..0000000
+++ /dev/null
@@ -1,49 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2010 - DIGITEO - Allan CORNET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- Non-regression test for bug 6830 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=6830
-//
-// <-- Short Description -->
-// C2F(scistring) in stack2.c was broken for macro names of exactly 2 characters.
-
-cd(TMPDIR);
-mkdir('bug_6830');
-cd('bug_6830'); 
-copyfile(SCI+'/modules/core/tests/nonreg_tests/bug_6830.c',TMPDIR + '/bug_6830/bug_6830.c');
-files=['bug_6830.c'];
-ilib_verbose(0);
-ilib_build('bug6830',['callscistring','sci_callscistring'],files,[]);
-exec('loader.sce');
-
-function r = scilabfoo(x,y)
-  disp("x =");
-  disp(x);
-  disp("y =");
-  disp(y);
-  r = x + y;
-  disp("r =");
-  disp(r);
-endfunction
-ierr = execstr("callscistring(''scilabfoo'')","errcatch");
-if ierr <> 0 then pause,end
-
-function r = fo(x,y)
-  disp("x =");
-  disp(x);
-  disp("y =");
-  disp(y);
-  r = x + y;
-  disp("r =");  
-  disp(r);
-endfunction
-
-ierr = execstr("callscistring(''fo'')","errcatch");
-if ierr <> 0 then pause,end
\ No newline at end of file
index b075d86..ad21003 100644 (file)
@@ -19,27 +19,27 @@ for i=2:25
  format(i);
  disp(b);
 end;
-    1.0    D+02
-    1.0   D+02
-    1.0  D+02
-    200.
-    200.
-    200.
-    200.
-    200.
-    200.
-    200.
-    200.
-    200.
-    200.
-    200.
-    200.
-    200.
-    200.
-    199.99999999999997
-    199.999999999999972
-    199.9999999999999716
-    199.9999999999999716
-    199.999999999999971578
-    199.9999999999999715783
-    199.9999999999999715783
+   1.0    D+02
+   1.0   D+02
+   1.0  D+02
+   200.
+   200.
+   200.
+   200.
+   200.
+   200.
+   200.
+   200.
+   200.
+   200.
+   200.
+   200.
+   200.
+   200.
+   199.99999999999997
+   199.999999999999972
+   199.9999999999999716
+   199.9999999999999716
+   199.999999999999971578
+   199.9999999999999715783
+   199.9999999999999715783
index 295fafb..aa7016a 100644 (file)
@@ -8,20 +8,20 @@
 // <-- Non-regression test for bug 9659 -->
 //
 // <-- CLI SHELL MODE -->
-// 
+//
 // <-- Bugzilla URL -->
 // http://bugzilla.scilab.org/show_bug.cgi?id=9659
 //
 // <-- Short Description -->
 // "error(246)" returned a bad message for overloading.
-// assert_checkerror does not manage multiline error, see bug 9572 
-if execstr("sin(""z"")","errcatch") <> 246 then bugmes();quit;end
+// assert_checkerror does not manage multiline error, see bug 9572
+if execstr("sin(""z"")","errcatch") == 0 then bugmes();quit;end
 msgerror = gettext("Function not defined for given argument type(s),\n");
 msgerror = strsubst(msgerror, "\n", "");
 msgerror = [msgerror; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%c_sin")];
 msg = lasterror();
 if ~and(msg == msgerror) then bugmes();quit;end
-if execstr("sin(int8(12))","errcatch") <> 246 then bugmes();quit;end
+if execstr("sin(int8(12))","errcatch") == 0 then bugmes();quit;end
 msgerror = gettext("Function not defined for given argument type(s),\n");
 msgerror = strsubst(msgerror, "\n", "");
 msgerror = [msgerror; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%i_sin")];
index 7d7e102..6c88eb7 100644 (file)
@@ -8,15 +8,15 @@
 // <-- Non-regression test for bug 9659 -->
 //
 // <-- CLI SHELL MODE -->
-// 
+//
 // <-- Bugzilla URL -->
 // http://bugzilla.scilab.org/show_bug.cgi?id=9659
 //
 // <-- Short Description -->
 // "error(246)" returned a bad message for overloading.
 
-// assert_checkerror does not manage multiline error, see bug 9572 
-if execstr("sin(""z"")","errcatch") <> 246 then pause, end
+// assert_checkerror does not manage multiline error, see bug 9572
+if execstr("sin(""z"")","errcatch") == 0 then pause, end
 
 msgerror = gettext("Function not defined for given argument type(s),\n");
 msgerror = strsubst(msgerror, "\n", "");
@@ -24,7 +24,7 @@ msgerror = [msgerror; msprintf(gettext("  check arguments or define function %s
 msg = lasterror();
 if ~and(msg == msgerror) then pause, end
 
-if execstr("sin(int8(12))","errcatch") <> 246 then pause, end
+if execstr("sin(int8(12))","errcatch") == 0 then pause, end
 msgerror = gettext("Function not defined for given argument type(s),\n");
 msgerror = strsubst(msgerror, "\n", "");
 msgerror = [msgerror; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%i_sin")];
index 32864d2..fa0ebc8 100644 (file)
@@ -26,39 +26,39 @@ e1(1,3)=1;
 p='apcdefghijklmnopqrstuvwxyz0123456789';
 // test de stackg
 a,b,c,d,e1,f,g,h,o,p
-a  = 
-    1.
-b  = 
-    1.    3.    3.
-c  = 
-    1.    2.    3.
-    4.    5.    6.
-d  = 
-    1.    2.
-    3.    4.
-e1  = 
-    1.    2.     1.     4. 
-    5.    6.     7.     8. 
-    9.    10.    11.    12.
-f  = 
-  - 1.  - 2.  - 3.
-    0.    0.    0.
-  - 4.  - 5.  - 6.
-    0.    0.    0.
-  - 7.  - 8.  - 9.
-g  = 
-    i     2.    3.
-    1.    i     3.
-    1.    2.    i 
-h  = 
-    i     1.    2.    i     3.
-o  = 
-    1.
-  - i
-  - i
-    2.
-    3.
-p  = 
+ a  = 
+   1.
+ b  = 
+   1.   3.   3.
+ c  = 
+   1.   2.   3.
+   4.   5.   6.
+ d  = 
+   1.   2.
+   3.   4.
+ e1  = 
+   1.   2.    1.    4. 
+   5.   6.    7.    8. 
+   9.   10.   11.   12.
+ f  = 
+  -1.  -2.  -3.
+   0.   0.   0.
+  -4.  -5.  -6.
+   0.   0.   0.
+  -7.  -8.  -9.
+ g  = 
+   i     2.    3. 
+   1.    i     3. 
+   1.    2.    i  
+ h  = 
+   i    1.   2.   i    3.
+ o  = 
+   1.
+  -i
+  -i
+   2.
+   3.
+ p  = 
  apcdefghijklmnopqrstuvwxyz0123456789
 assert_checkequal(b(2),3);
 assert_checkequal(e1(1,3),1);
@@ -138,29 +138,29 @@ assert_checkequal(ones(3,2),[1,1;1,1;1,1]);
 //
 rand(a)
  ans  =
-    0.2113249    0.0002211    0.6653811    0.8497452
-    0.7560439    0.3303271    0.6283918    0.6857310
+   0.2113249   0.0002211   0.6653811   0.8497452
+   0.7560439   0.3303271   0.6283918   0.685731 
 rand(c)
  ans  =
          column 1 to 2
-    0.8782165 + 0.2312237i    0.5608486 + 0.8833888i
-    0.0683740 + 0.2164633i    0.6623569 + 0.6525135i
+   0.8782165 +0.2312237i     0.5608486 +0.8833888i  
+   0.068374 +0.2164633i      0.6623569 +0.6525135i  
          column 3 to 4
-    0.7263507 + 0.3076091i    0.5442573 + 0.2146008i
-    0.1985144 + 0.9329616i    0.2320748 + 0.3126420i
+   0.7263507 +0.3076091i     0.5442573 +0.2146008i  
+   0.1985144 +0.9329616i     0.2320748 +0.312642i   
 rand(3,3)
  ans  =
-    0.3616361    0.4826472    0.5015342
-    0.2922267    0.3321719    0.4368588
-    0.5664249    0.5935095    0.2693125
+   0.3616361   0.4826472   0.5015342
+   0.2922267   0.3321719   0.4368588
+   0.5664249   0.5935095   0.2693125
 rand(3,2)
  ans  =
-    0.6325745    0.0437334
-    0.4051954    0.4818509
-    0.9184708    0.2639556
+   0.6325745   0.0437334
+   0.4051954   0.4818509
+   0.9184708   0.2639556
 rand()
  ans  =
-    0.4148104
+   0.4148104
 rand('uniform')
 rand('normal')
 rand('seed',5)
@@ -168,115 +168,115 @@ rand('seed',0)
 //
 abs(c)
  ans  =
-    1.    2.    3.    4.
-    5.    6.    7.    8.
+   1.   2.   3.   4.
+   5.   6.   7.   8.
 abs(a)
  ans  =
-    1.    2.    3.    4.
-    5.    6.    7.    8.
+   1.   2.   3.   4.
+   5.   6.   7.   8.
 //
 real(c)
  ans  =
-    0.    2.    3.    4.
-    5.    6.    7.    8.
+   0.   2.   3.   4.
+   5.   6.   7.   8.
 imag(c)
  ans  =
-    1.    0.    0.    0.
-    0.    0.    0.    0.
+   1.   0.   0.   0.
+   0.   0.   0.   0.
 real(a)
  ans  =
-    1.    2.    3.    4.
-    5.    6.    7.    8.
+   1.   2.   3.   4.
+   5.   6.   7.   8.
 imag(a)
  ans  =
-    0.    0.    0.    0.
-    0.    0.    0.    0.
+   0.   0.   0.   0.
+   0.   0.   0.   0.
 //
 round(rand(3,3))
  ans  =
-  - 1.    1.    1.
-    1.    1.    2.
-    1.    0.    1.
+  -1.   1.   1.
+   1.   1.   2.
+   1.   0.   1.
 //
 conj(a)
  ans  =
-    1.    2.    3.    4.
-    5.    6.    7.    8.
+   1.   2.   3.   4.
+   5.   6.   7.   8.
 conj(c)
  ans  =
-  - i     2.    3.    4.
-    5.    6.    7.    8.
+  -i     2.   3.   4.
+   5.    6.   7.   8.
 //
 size(a)
  ans  =
-    2.    4.
+   2.   4.
 [m,n]=size(a)
  n  = 
-    4.
+   4.
  m  = 
-    2.
+   2.
 //
 triu(a)
  ans  =
-    1.    2.    3.    4.
-    0.    6.    7.    8.
+   1.   2.   3.   4.
+   0.   6.   7.   8.
 tril(a)
  ans  =
-    1.    0.    0.    0.
-    5.    6.    0.    0.
+   1.   0.   0.   0.
+   5.   6.   0.   0.
 triu(a,1)
  ans  =
-    0.    2.    3.    4.
-    0.    0.    7.    8.
+   0.   2.   3.   4.
+   0.   0.   7.   8.
 triu(a,-1)
  ans  =
-    1.    2.    3.    4.
-    5.    6.    7.    8.
+   1.   2.   3.   4.
+   5.   6.   7.   8.
 tril(a,1)
  ans  =
-    1.    2.    0.    0.
-    5.    6.    7.    0.
+   1.   2.   0.   0.
+   5.   6.   7.   0.
 tril(a,-1)
  ans  =
-    0.    0.    0.    0.
-    5.    0.    0.    0.
+   0.   0.   0.   0.
+   5.   0.   0.   0.
 triu(c)
  ans  =
-    i     2.    3.    4.
-    0.    6.    7.    8.
+   i     2.   3.   4.
+   0.    6.   7.   8.
 tril(c)
  ans  =
-    i     0.    0.    0.
-    5.    6.    0.    0.
+   i     0.   0.   0.
+   5.    6.   0.   0.
 triu(c,1)
  ans  =
-    0.    2.    3.    4.
-    0.    0.    7.    8.
+   0.   2.   3.   4.
+   0.   0.   7.   8.
 triu(c,10)
  ans  =
-    0.    0.    0.    0.
-    0.    0.    0.    0.
+   0.   0.   0.   0.
+   0.   0.   0.   0.
 triu(c,-1)
  ans  =
-    i     2.    3.    4.
-    5.    6.    7.    8.
+   i     2.   3.   4.
+   5.    6.   7.   8.
 triu(c,-10)
  ans  =
-    i     2.    3.    4.
-    5.    6.    7.    8.
+   i     2.   3.   4.
+   5.    6.   7.   8.
 tril(c,1)
  ans  =
-    i     2.    0.    0.
-    5.    6.    7.    0.
+   i     2.   0.   0.
+   5.    6.   7.   0.
 tril(c,10)
  ans  =
-    i     2.    3.    4.
-    5.    6.    7.    8.
+   i     2.   3.   4.
+   5.    6.   7.   8.
 tril(c,-1)
  ans  =
-    0.    0.    0.    0.
-    5.    0.    0.    0.
+   0.   0.   0.   0.
+   5.   0.   0.   0.
 tril(c,-10)
  ans  =
-    0.    0.    0.    0.
-    0.    0.    0.    0.
+   0.   0.   0.   0.
+   0.   0.   0.   0.
diff --git a/scilab/modules/core/tests/unit_tests/breakpoints.dia.ref b/scilab/modules/core/tests/unit_tests/breakpoints.dia.ref
deleted file mode 100644 (file)
index 68fd82d..0000000
+++ /dev/null
@@ -1,321 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 1988-2010 - INRIA - Serge Steer
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//<-- CLI SHELL MODE -->
-//
-// <-- ENGLISH IMPOSED -->
-//
-// Elementary setbpt tests with scalar line number argument
-// Order of the commands is important to guarantee
-// the full coverage of the tests
-delbpt(),dispbpt()   // should display no output
-if execstr("delbpt(""foo1"",0)","errcatch")<>9997 then bugmes();quit;end   // should spit error 9997
-if execstr("delbpt(""foo1"",-3)","errcatch")<>9997 then bugmes();quit;end   // should spit error 9997
-if execstr("delbpt(""foo1"",3.2)","errcatch")<>9997 then bugmes();quit;end   // should spit error 9997
-setbpt("foo1"),dispbpt()   // set at line 1 (default)
-Breakpoints of function : foo1                   
-
-         1
-setbpt("foo1",5),dispbpt()  // add another bpt to a macro that already has bpts, and that is the last one
-Breakpoints of function : foo1                   
-
-         1
-         5
-setbpt("foo2",5),setbpt("foo2",8),dispbpt()  // add bpts to a new macro (will always be placed at the end)
-Breakpoints of function : foo1                   
-
-         1
-         5
-Breakpoints of function : foo2                   
-
-         5
-         8
-setbpt("foo1",9),dispbpt()  // add another bpt to a macro that already has bpts, and that is NOT the last one
-Breakpoints of function : foo1                   
-
-         9
-         1
-         5
-Breakpoints of function : foo2                   
-
-         5
-         8
-setbpt("foo1",5),dispbpt()  // check duplicates removal - line 5 should appear only once in foo1
-Breakpoints of function : foo1                   
-
-         9
-         1
-         5
-Breakpoints of function : foo2                   
-
-         5
-         8
-setbpt("foo2",5),dispbpt()  // check duplicates removal - line 5 should appear only once in foo2
-Breakpoints of function : foo1                   
-
-         9
-         1
-         5
-Breakpoints of function : foo2                   
-
-         5
-         8
-// More complicated setbpt tests with vector line number argument
-// Order of the commands is important to guarantee
-// the full coverage of the tests
-delbpt(),dispbpt()   // should display no output
-if execstr("setbpt(""foo1"",[1,0,5]) ","errcatch")<>9997 then bugmes();quit;end   // should spit error 9997
-if execstr("setbpt(""foo1"",[-3,2,7]) ","errcatch")<>9997 then bugmes();quit;end   // should spit error 9997
-if execstr("setbpt(""foo1"",[1,3.2]) ","errcatch")<>9997 then bugmes();quit;end   // should spit error 9997
-setbpt("foo1",[8,9]),dispbpt()    // add 2 bpts at once to a new macro
-Breakpoints of function : foo1                   
-
-         8
-         9
-setbpt("foo1",5),setbpt("foo1",[2,3]),dispbpt()  // add further bpts to a macro that already has bpts, and that is the last one
-Breakpoints of function : foo1                   
-
-         8
-         9
-         5
-         2
-         3
-setbpt("foo2",[5,8]),setbpt("foo2",7),dispbpt()  // add bpts to a new macro (will always be placed at the end)
-Breakpoints of function : foo1                   
-
-         8
-         9
-         5
-         2
-         3
-Breakpoints of function : foo2                   
-
-         5
-         8
-         7
-setbpt("foo1",[10,15,20]),dispbpt()  // add bpts to a macro that already has bpts, and that is NOT the last one
-Breakpoints of function : foo1                   
-
-        10
-        15
-        20
-         8
-         9
-         5
-         2
-         3
-Breakpoints of function : foo2                   
-
-         5
-         8
-         7
-setbpt("foo1",[50,50,50,60,50,80,60]),dispbpt()  // check duplicates removal in vector input, not the last macro - lines 50 and 60 should appear only once in foo1
-Breakpoints of function : foo1                   
-
-        50
-        60
-        80
-        10
-        15
-        20
-         8
-         9
-         5
-         2
-         3
-Breakpoints of function : foo2                   
-
-         5
-         8
-         7
-setbpt("foo1",[9,5,8,100,3,2]),dispbpt()  // check duplicates removal wrt existing bpts, not the last macro - all lines should appear only once in foo1
-Breakpoints of function : foo1                   
-
-       100
-        50
-        60
-        80
-        10
-        15
-        20
-         8
-         9
-         5
-         2
-         3
-Breakpoints of function : foo2                   
-
-         5
-         8
-         7
-setbpt("foo2",[50,50,50,60,50,80,60]),dispbpt()  // check duplicates removal in vector input, last macro - lines 50 and 60 should appear only once in foo1
-Breakpoints of function : foo1                   
-
-       100
-        50
-        60
-        80
-        10
-        15
-        20
-         8
-         9
-         5
-         2
-         3
-Breakpoints of function : foo2                   
-
-         5
-         8
-         7
-        50
-        60
-        80
-setbpt("foo2",[9,5,8,100,7,2]),dispbpt()  // check duplicates removal wrt existing bpts, last macro - all lines should appear only once in foo2
-Breakpoints of function : foo1                   
-
-       100
-        50
-        60
-        80
-        10
-        15
-        20
-         8
-         9
-         5
-         2
-         3
-Breakpoints of function : foo2                   
-
-         5
-         8
-         7
-        50
-        60
-        80
-         9
-         2
-       100
-// Elementary delbpt tests with scalar line number argument
-// Order of the commands is important to guarantee
-// the full coverage of the tests
-delbpt(),dispbpt()   // should display no output
-if execstr("delbpt(""foo1"",0)","errcatch")<>9997 then bugmes();quit;end   // should spit error 9997
-if execstr("delbpt(""foo1"",-3)","errcatch")<>9997 then bugmes();quit;end   // should spit error 9997
-if execstr("delbpt(""foo1"",3.2)","errcatch")<>9997 then bugmes();quit;end   // should spit error 9997
-delbpt("foo1"),dispbpt()   // should display no output
-setbpt("foo1",[5,8,11]),delbpt("foo1"),dispbpt()   // should display no output
-setbpt("foo1",[5,8,11]),setbpt("foo2",[55,88,111]),delbpt("foo1"),dispbpt()   // should display the 3 bpts for foo2 only
-Breakpoints of function : foo2                   
-
-        55
-        88
-       111
-setbpt("foo1",[5,8,11]),setbpt("foo2",[55,88,111]),delbpt("foo2"),dispbpt()   // should display the 3 bpts for foo1 only
-Breakpoints of function : foo1                   
-
-         5
-         8
-        11
-delbpt()
-setbpt("foo1",5),delbpt("foo1",5),dispbpt()   // should display no output
-setbpt("foo1",[5,6,8]),delbpt("foo1",5),dispbpt()    // lines 6 and 8 should appear only
-Breakpoints of function : foo1                   
-
-         6
-         8
-setbpt("foo1",[5,10,11]),delbpt("foo1",10),dispbpt()    // lines 5, 6, 8 and 11 should appear only
-Breakpoints of function : foo1                   
-
-         6
-         8
-         5
-        11
-delbpt("foo1",11),dispbpt()    // lines 5, 6 and 8 should appear only
-Breakpoints of function : foo1                   
-
-         6
-         8
-         5
-setbpt("foo2",[20,21,22,23]),delbpt("foo1",6),dispbpt()    // lines 5 and 8 for foo1, and 20 to 23 for foo2
-Breakpoints of function : foo1                   
-
-         8
-         5
-Breakpoints of function : foo2                   
-
-        20
-        21
-        22
-        23
-delbpt("foo2",21),dispbpt()    // lines 5, and 8 for foo1, and 20, 22, 23 for foo2
-Breakpoints of function : foo1                   
-
-         8
-         5
-Breakpoints of function : foo2                   
-
-        20
-        22
-        23
-// More complicated delbpt tests with vector line number argument
-// Order of the commands is important to guarantee
-// the full coverage of the tests
-delbpt(),dispbpt()   // should display no output
-if execstr("delbpt(""foo1"",[1,0,5])","errcatch")<>9997 then bugmes();quit;end   // should spit error 9997
-if execstr("delbpt(""foo1"",[-3,2,7])","errcatch")<>9997 then bugmes();quit;end   // should spit error 9997
-if execstr("delbpt(""foo1"",[1,3.2])","errcatch")<>9997 then bugmes();quit;end   // should spit error 9997
-delbpt("foo1",[8,9]),dispbpt()   // should display no output
-setbpt("foo1",[5,6,8,9]),delbpt("foo1",[8,5]),dispbpt()    // lines 6 and 9 should appear only
-Breakpoints of function : foo1                   
-
-         6
-         9
-setbpt("foo1",[5,6,8,9]),delbpt("foo1",[8,5,8,8,6,5]),dispbpt()    // check duplicates removal in vector input - line 9 should appear only
-Breakpoints of function : foo1                   
-
-         9
-setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo1",[8,5,8,10]),dispbpt()    // not the last macro, check duplicates removal in vector input - lines 6 and 9 should appear for foo1, plus all the 5 bpts for foo2
-Breakpoints of function : foo1                   
-
-         9
-         6
-Breakpoints of function : foo2                   
-
-        10
-        12
-        14
-        16
-        18
-setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo1",[8,5,6,9]),dispbpt()    // remove all, not the last macro - should display no bpt for foo1, but all the 5 bpts for foo2
-Breakpoints of function : foo2                   
-
-        10
-        12
-        14
-        16
-        18
-setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo2",[14,18,10,20]),dispbpt()    // last macro - should display all the 4 bpts for foo1, but only lines 12 and 16 for foo2
-Breakpoints of function : foo2                   
-
-        12
-        16
-Breakpoints of function : foo1                   
-
-         5
-         6
-         8
-         9
-setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo2",[14,18,10,12,16]),dispbpt()    // remove all, last macro - should display all the 4 bpts for foo1, but no bpt for foo2
-Breakpoints of function : foo1                   
-
-         5
-         6
-         8
-         9
-// non regression test for bug 2474
-if execstr('for i=1;delbpt();end','errcatch')<>0 then bugmes();quit;end
diff --git a/scilab/modules/core/tests/unit_tests/breakpoints.tst b/scilab/modules/core/tests/unit_tests/breakpoints.tst
deleted file mode 100644 (file)
index adda67d..0000000
+++ /dev/null
@@ -1,79 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 1988-2010 - INRIA - Serge Steer
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//<-- CLI SHELL MODE -->
-//
-// <-- ENGLISH IMPOSED -->
-//
-// Elementary setbpt tests with scalar line number argument
-// Order of the commands is important to guarantee
-// the full coverage of the tests
-delbpt(),dispbpt()   // should display no output
-if execstr("delbpt(""foo1"",0)","errcatch")<>9997 then pause,end   // should spit error 9997
-if execstr("delbpt(""foo1"",-3)","errcatch")<>9997 then pause,end   // should spit error 9997
-if execstr("delbpt(""foo1"",3.2)","errcatch")<>9997 then pause,end   // should spit error 9997
-setbpt("foo1"),dispbpt()   // set at line 1 (default)
-setbpt("foo1",5),dispbpt()  // add another bpt to a macro that already has bpts, and that is the last one
-setbpt("foo2",5),setbpt("foo2",8),dispbpt()  // add bpts to a new macro (will always be placed at the end)
-setbpt("foo1",9),dispbpt()  // add another bpt to a macro that already has bpts, and that is NOT the last one
-setbpt("foo1",5),dispbpt()  // check duplicates removal - line 5 should appear only once in foo1
-setbpt("foo2",5),dispbpt()  // check duplicates removal - line 5 should appear only once in foo2
-
-// More complicated setbpt tests with vector line number argument
-// Order of the commands is important to guarantee
-// the full coverage of the tests
-delbpt(),dispbpt()   // should display no output
-if execstr("setbpt(""foo1"",[1,0,5]) ","errcatch")<>9997 then pause,end   // should spit error 9997
-if execstr("setbpt(""foo1"",[-3,2,7]) ","errcatch")<>9997 then pause,end   // should spit error 9997
-if execstr("setbpt(""foo1"",[1,3.2]) ","errcatch")<>9997 then pause,end   // should spit error 9997
-setbpt("foo1",[8,9]),dispbpt()    // add 2 bpts at once to a new macro
-setbpt("foo1",5),setbpt("foo1",[2,3]),dispbpt()  // add further bpts to a macro that already has bpts, and that is the last one
-setbpt("foo2",[5,8]),setbpt("foo2",7),dispbpt()  // add bpts to a new macro (will always be placed at the end)
-setbpt("foo1",[10,15,20]),dispbpt()  // add bpts to a macro that already has bpts, and that is NOT the last one
-setbpt("foo1",[50,50,50,60,50,80,60]),dispbpt()  // check duplicates removal in vector input, not the last macro - lines 50 and 60 should appear only once in foo1
-setbpt("foo1",[9,5,8,100,3,2]),dispbpt()  // check duplicates removal wrt existing bpts, not the last macro - all lines should appear only once in foo1
-setbpt("foo2",[50,50,50,60,50,80,60]),dispbpt()  // check duplicates removal in vector input, last macro - lines 50 and 60 should appear only once in foo1
-setbpt("foo2",[9,5,8,100,7,2]),dispbpt()  // check duplicates removal wrt existing bpts, last macro - all lines should appear only once in foo2
-
-
-// Elementary delbpt tests with scalar line number argument
-// Order of the commands is important to guarantee
-// the full coverage of the tests
-delbpt(),dispbpt()   // should display no output
-if execstr("delbpt(""foo1"",0)","errcatch")<>9997 then pause,end   // should spit error 9997
-if execstr("delbpt(""foo1"",-3)","errcatch")<>9997 then pause,end   // should spit error 9997
-if execstr("delbpt(""foo1"",3.2)","errcatch")<>9997 then pause,end   // should spit error 9997
-delbpt("foo1"),dispbpt()   // should display no output
-setbpt("foo1",[5,8,11]),delbpt("foo1"),dispbpt()   // should display no output
-setbpt("foo1",[5,8,11]),setbpt("foo2",[55,88,111]),delbpt("foo1"),dispbpt()   // should display the 3 bpts for foo2 only
-setbpt("foo1",[5,8,11]),setbpt("foo2",[55,88,111]),delbpt("foo2"),dispbpt()   // should display the 3 bpts for foo1 only
-delbpt()
-setbpt("foo1",5),delbpt("foo1",5),dispbpt()   // should display no output
-setbpt("foo1",[5,6,8]),delbpt("foo1",5),dispbpt()    // lines 6 and 8 should appear only
-setbpt("foo1",[5,10,11]),delbpt("foo1",10),dispbpt()    // lines 5, 6, 8 and 11 should appear only
-delbpt("foo1",11),dispbpt()    // lines 5, 6 and 8 should appear only
-setbpt("foo2",[20,21,22,23]),delbpt("foo1",6),dispbpt()    // lines 5 and 8 for foo1, and 20 to 23 for foo2
-delbpt("foo2",21),dispbpt()    // lines 5, and 8 for foo1, and 20, 22, 23 for foo2
-
-// More complicated delbpt tests with vector line number argument
-// Order of the commands is important to guarantee
-// the full coverage of the tests
-delbpt(),dispbpt()   // should display no output
-if execstr("delbpt(""foo1"",[1,0,5])","errcatch")<>9997 then pause,end   // should spit error 9997
-if execstr("delbpt(""foo1"",[-3,2,7])","errcatch")<>9997 then pause,end   // should spit error 9997
-if execstr("delbpt(""foo1"",[1,3.2])","errcatch")<>9997 then pause,end   // should spit error 9997
-delbpt("foo1",[8,9]),dispbpt()   // should display no output
-setbpt("foo1",[5,6,8,9]),delbpt("foo1",[8,5]),dispbpt()    // lines 6 and 9 should appear only
-setbpt("foo1",[5,6,8,9]),delbpt("foo1",[8,5,8,8,6,5]),dispbpt()    // check duplicates removal in vector input - line 9 should appear only
-setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo1",[8,5,8,10]),dispbpt()    // not the last macro, check duplicates removal in vector input - lines 6 and 9 should appear for foo1, plus all the 5 bpts for foo2
-setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo1",[8,5,6,9]),dispbpt()    // remove all, not the last macro - should display no bpt for foo1, but all the 5 bpts for foo2
-setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo2",[14,18,10,20]),dispbpt()    // last macro - should display all the 4 bpts for foo1, but only lines 12 and 16 for foo2
-setbpt("foo1",[5,6,8,9]),setbpt("foo2",[10,12,14,16,18]),delbpt("foo2",[14,18,10,12,16]),dispbpt()    // remove all, last macro - should display all the 4 bpts for foo1, but no bpt for foo2
-
-
-// non regression test for bug 2474
-if execstr('for i=1;delbpt();end','errcatch')<>0 then pause,end
-
diff --git a/scilab/modules/core/tests/unit_tests/breakpoints_i.tst b/scilab/modules/core/tests/unit_tests/breakpoints_i.tst
deleted file mode 100644 (file)
index 6507d69..0000000
+++ /dev/null
@@ -1,174 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 1988-2010 - INRIA - Serge Steer
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- INTERACTIVE TEST -->
-//<-- CLI SHELL MODE -->
-
-
-mode(-1)
-//
-// (setbpt delbpt).
-deff('[]=lig()',[
-'shlig(2),';
-'if 1>2 then,';
-'  shlig(4),';
-',';
-'  shlig(6)     ,'; // break-point
-',';
-'end,shlig(8)   ,'; // break-point
-'shlig(9),';
-'for k=1:3,';
-'  k;shlig(11)  ,'; // break-point
-'end,shlig(12)  ,'; // break-point
-',';
-'for l=1:10,';
-'  if l==5 then break,end,';
-'  l,';
-'end,shlig(17)  ,'; // break-point
-'shlig(18),';
-'select 2,';
-'case 1 then,';
-',';
-'case 2 then,';
-'  shlig(23)   ,'; // break-point
-'case 3 then,';
-'1,';
-'else,';
-'2,';
-'end,shlig(28) ,'; // break-point
-'shlig(29),';
-'select 0,';
-'case 1 then,';
-'1,';
-'case 2 then,';
-'2,';
-'case 3 then,';
-'3,';
-'else,';
-'  shlig(38)  ,'; // break-point
-'end,shlig(39),'; // break-point
-'shlig(40)    ,'; // break-point
-'i=0,';
-'while i<3,';
-'i=i+1,shlig(43) ,'; // break-point
-'end,shlig(44) ,'; //break-point
-'i=0;,';
-'while i<10,';
-'i=i+1,if i==2 then break,end,shlig(47),';
-'end,shlig(48) ,' //break-point
-],'n')
-deff('[]=shlig(n)','write(%io(2),''ligne ''+string(n))')
-
-//definition des points d'arrets
-setbpt('lig',6)
-setbpt('lig',8)
-setbpt('lig',11)
-setbpt('lig',12)
-setbpt('lig',17)
-setbpt('lig',23)
-setbpt('lig',28)
-setbpt('lig',38)
-setbpt('lig',39)
-setbpt('lig',40)
-setbpt('lig',43)
-setbpt('lig',44)
-setbpt('lig',48)
-write(%io(2),[
-'user should check the line number'])
-write(%io(2),[' ';'MACRO NOT COMPILED';'-----------------';' '])
-lig()
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-comp(lig)
-write(%io(2),[' ';'COMPILED MACRO';'-----------------';' '])
-lig()
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-resume
-
-delbpt('lig')
-clear lig shlig
-
-
-// first non regression test for bug 1894
-delbpt()
-function foo1()
-a=1;
-a=1;
-a=1;
-a=1;
-a=1;
-endfunction
-function foo2()
-a=2;
-a=2;
-a=2;
-a=2;
-a=2;
-endfunction
-setbpt("foo2",1)
-foo2()
-delbpt("foo2",1)
-dispbpt
-setbpt("foo1",[1:5]);setbpt("foo2",[1:5]);
-dispbpt
-// the following resume(0) must spit:
-// Stop after row     2 in function foo2 :
-// and not Stop after row     2 in function foo1 :
-resume
-abort
-
-// second non regression test for bug 1894
-delbpt()
-function foo1
-endfunction
-function foo2
-  function d=foo3()
-    disp("  Entering");
-    d=1
-    disp("  Leaving");
-  endfunction
-  disp("Before");
-  b=foo3();
-  disp("After");
-endfunction
-setbpt("foo2",[1:10]);
-foo2()
-delbpt("foo2",[1:10])
-setbpt("foo1",[1:2]);setbpt("foo2",[1:10]);setbpt("foo3",[1:5]);
-// the following resume must spit:
-// Stop after row     6 in function foo2 :
-// and not Stop after row     1 in function foo3 :
-resume
-
index d295bf0..71fa7e7 100644 (file)
@@ -62,11 +62,15 @@ test_clear();
 A = 3;
 assert_checkequal(isdef("A"), %t);
 assert_checkequal(A, 3);
-clear("SCI");
+ierr = execstr("clear SCI", "errcatch");
+msg_err = lasterror();
+msg_ref = msprintf(gettext("Redefining permanent variable.\n"));
+assert_checkequal (msg_err, msg_ref);
 assert_checktrue(isdef("SCI"));
 oldSCI = SCI;
-SCI = 14;
-clear("SCI");
+ierr = execstr("SCI = 14;", "errcatch");
+msg_err = lasterror();
+assert_checkequal (msg_err, msg_ref);
 assert_checktrue(isdef("SCI"));
 assert_checkequal(oldSCI, SCI);
 ierr = execstr("clear(1)", "errcatch");
index 7116721..207a942 100644 (file)
@@ -73,12 +73,17 @@ A = 3;
 assert_checkequal(isdef("A"), %t);
 assert_checkequal(A, 3);
 
-clear("SCI");
-assert_checktrue(isdef("SCI"));
+ierr = execstr("clear SCI", "errcatch");
+msg_err = lasterror();
+msg_ref = msprintf(gettext("Redefining permanent variable.\n"));
+assert_checkequal (msg_err, msg_ref);
 
+assert_checktrue(isdef("SCI"));
 oldSCI = SCI;
-SCI = 14;
-clear("SCI");
+ierr = execstr("SCI = 14;", "errcatch");
+msg_err = lasterror();
+assert_checkequal (msg_err, msg_ref);
+
 assert_checktrue(isdef("SCI"));
 assert_checkequal(oldSCI, SCI);
 
index 3c5c8bd..a94e810 100644 (file)
@@ -9,54 +9,54 @@
 // With start, stop integers
 computed=1:4
  computed  = 
-    1.    2.    3.    4.
+   1.   2.   3.   4.
 expected = [1 2 3 4]
  expected  = 
-    1.    2.    3.    4.
+   1.   2.   3.   4.
 if norm(expected-computed)>100*%eps then bugmes();quit;end
 // With start, step, stop integers
 computed=1:2:5
  computed  = 
-    1.    3.    5.
+   1.   3.   5.
 expected = [1 3 5]
  expected  = 
-    1.    3.    5.
+   1.   3.   5.
 if norm(expected-computed)>100*%eps then bugmes();quit;end
 // With start before stop
 computed=size(1:0)
  computed  = 
-    0.    0.
+   0.   0.
 expected = [0 0]
  expected  = 
-    0.    0.
+   0.   0.
 if expected<>computed then bugmes();quit;end
 // With start before stop, whatever the step
 computed=size(1:1:0)
  computed  = 
-    0.    0.
+   0.   0.
 expected = [0 0]
  expected  = 
-    0.    0.
+   0.   0.
 if expected<>computed then bugmes();quit;end
 // With start, step, stop reals
 a=(1-0.9)*50
  a  = 
-    5.
+   5.
 computed=(1:a)
  computed  = 
-    1.    2.    3.    4.    5.
+   1.   2.   3.   4.   5.
 expected = [1 2 3 4 5]
  expected  = 
-    1.    2.    3.    4.    5.
+   1.   2.   3.   4.   5.
 if norm(expected-computed)>100*%eps then bugmes();quit;end
 // With start, step, stop reals
 step=(1-0.9)*20
  step  = 
-    2.
+   2.
 computed=1:step:10
  computed  = 
-    1.    3.    5.    7.    9.
+   1.   3.   5.   7.   9.
 expected = [1 3 5 7 9]
  expected  = 
-    1.    3.    5.    7.    9.
+   1.   3.   5.   7.   9.
 if norm(expected-computed)>100*%eps then bugmes();quit;end
index 056b1a7..6c81d8e 100644 (file)
@@ -7,8 +7,8 @@
 //for version after 3.0 the comments are no more handled by a preprocessor,
 //but by the parser itself
 a=1//test
-a  =
-    1.
+ a  = 
+   1.
 if a<>1 then bugmes();quit;end
 a=2;//test
 if a<>2 then bugmes();quit;end
@@ -42,8 +42,8 @@ if %f //test
 else //test2 end
     a=4//test3 end
 end//endtest
-a  =
-    4.
+ a  = 
+   4.
 if a<>4 then bugmes();quit;end
 a=0;
 for k=1:10 //loop begin
@@ -59,8 +59,8 @@ for i=1
     a=1;
 end //
 a=0;k=0
-k  =
-    0.
+ k  = 
+   0.
 while %t //loop begin
     k=k+1; //ttttt
     if a> 10 then //
@@ -90,8 +90,8 @@ case 2 then //test end
 else //else
     a=0  //test zeor
 end //end
-a  =
-  - 1.
+ a  = 
+  -1.
 if a<>-1 then bugmes();quit;end
 // In execstr
 execstr("a=1//test")
@@ -346,17 +346,17 @@ function a=foo
 endfunction
 T=macr2tree(foo);
 [C,L]=getcommentsintree(T.statements)
-L  =
-    1.
-    3.
-    5.
-    6.
-    8.
-    9.
-    10.
-    11.
-    12.
-C  =
+ L  = 
+   1.
+   3.
+   5.
+   6.
+   8.
+   9.
+   10.
+   11.
+   12.
+ C  = 
 !initialization    !
 !                  !
 !ttttt ttttt       !
diff --git a/scilab/modules/core/tests/unit_tests/debug.dia.ref b/scilab/modules/core/tests/unit_tests/debug.dia.ref
deleted file mode 100644 (file)
index 3d63ac4..0000000
+++ /dev/null
@@ -1,80 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2012 - DIGITEO - Allan CORNET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-assert_checkequal(debug(), 0);
-assert_checkequal(debug(0), 0);
- debug 0
-assert_checkequal(debug(1), 0);
- debug 1
-        [cnonan , cnumb] = mythrownan(computed)
-        [enonan , enumb] = mythrownan(expected)
-        if ( and(enonan == cnonan) & and(enumb == cnumb) ) then
-            flag = %t
-        else
-            flag = %f
-        end
-return!
-        //
-        //
-        // Copyright (C) 2000 - INRIA - Carlos Klimann
-        // Copyright (C) 2010 - 2011 - DIGITEO - Michael Baudin
-        //This  function  returns  in  vector  nonan  the  values
-        //(ignoring the NANs) of a  vector or matrix x and in the
-        //corresponding places of vector  numb the indexes of the
-        //value.
-        //
-        //For  a  vector  or matrix  x,  [nonan,numb]=thrownan(x)
-        //considers x, whatever his dimensions are, like a linear
-        //vector (columns  first).
-        //
-        //
-        [lhs,rhs]=argn(0)
-        if ( rhs<>1 ) then
-            error(msprintf(gettext("%s: Wrong number of input argumen...
-t: %d expected.\n"),"thrownan",1))
-        end
-        numb=find(bool2s(~isnan(x)))
-        nonan=x(~isnan(x))
-return!
-assert_checkequal(debug(), 1);
-        [cnonan , cnumb] = mythrownan(computed)
-        [enonan , enumb] = mythrownan(expected)
-        if ( and(enonan == cnonan) & and(enumb == cnumb) ) then
-            flag = %t
-        else
-            flag = %f
-        end
-return!
-        //
-        //
-        // Copyright (C) 2000 - INRIA - Carlos Klimann
-        // Copyright (C) 2010 - 2011 - DIGITEO - Michael Baudin
-        //This  function  returns  in  vector  nonan  the  values
-        //(ignoring the NANs) of a  vector or matrix x and in the
-        //corresponding places of vector  numb the indexes of the
-        //value.
-        //
-        //For  a  vector  or matrix  x,  [nonan,numb]=thrownan(x)
-        //considers x, whatever his dimensions are, like a linear
-        //vector (columns  first).
-        //
-        //
-        [lhs,rhs]=argn(0)
-        if ( rhs<>1 ) then
-            error(msprintf(gettext("%s: Wrong number of input argumen...
-t: %d expected.\n"),"thrownan",1))
-        end
-        numb=find(bool2s(~isnan(x)))
-        nonan=x(~isnan(x))
-return!
diff --git a/scilab/modules/core/tests/unit_tests/debug.tst b/scilab/modules/core/tests/unit_tests/debug.tst
deleted file mode 100644 (file)
index c2f86e2..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2012 - DIGITEO - Allan CORNET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-assert_checkequal(debug(), 0);
-assert_checkequal(debug(0), 0);
-assert_checkequal(debug(1), 0);
-assert_checkequal(debug(), 1);
index 286906b..2a83d13 100644 (file)
@@ -9,22 +9,22 @@ format("v",10)
 //display of numbers
 x=2.6533333
  x  = 
-    2.6533333
+   2.6533333
 x=[2.6533333 -0.0002]
  x  = 
-    2.6533333  - 0.0002
+   2.6533333  -0.0002
 x'
  ans  =
-    2.6533333
-  - 0.0002
+   2.6533333
+  -0.0002
 x=[]
  x  = 
     []
 //display of polynomials
 z=poly(0,"z")
  z  = 
-     
-    z
+    
+   z
 num=[ (((((1)*z-2.6533333)*z+2.6887936)*z-1.2916784)*z+0.2911572)* ...
 z-0.0243497
 (((((1)*z-2.6533333)*z+2.6887936)*z-1.2916784)*z+0.2911572)* ...
@@ -32,16 +32,12 @@ z-0.0243497
 (((1)*z )*z )*z+1
 0]
  num  = 
-                                       2             3             4
-  - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z 
-               5
-            + z 
-                                       2             3             4
-  - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z 
-               5
-            + z 
-         3
-    1 + z 
+                                    2            3            4   5
+  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
+                                    2            3            4   5
+  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
+       3
+   1 +z 
      
    0
 den = [ ((((1)*z-1.536926)*z+0.8067352)*z-0.1682810)*z+0.0113508
@@ -49,88 +45,75 @@ den = [ ((((1)*z-1.536926)*z+0.8067352)*z-0.1682810)*z+0.0113508
 ((1)*z )*z
 1]
  den  = 
-                                      2            3    4
-    0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z 
-                                      2            3    4
-    0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z 
-     2
-    z 
-     
-    1
+                                   2           3   4
+   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z 
+                                   2           3   4
+   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z 
+    2
+   z 
+    
+   1
 num',den'
  ans  =
          column 1
-                                       2             3             4
-  - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z 
-               5
-            + z 
+                                    2            3            4   5
+  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
          column 2
-                                       2             3             4
-  - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z 
-               5
-            + z 
+                                    2            3            4   5
+  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
          column 3 to 4
-         3     
-    1 + z    0
+       3     
+   1 +z    0
  ans  =
          column 1
-                                      2            3    4
-    0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z 
+                                   2           3   4
+   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z 
          column 2 to 4
-                                      2            3    4     2     
-    0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z     z     1
+                                   2           3   4    2    
+   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z    z    1
 [num;den]
  ans  =
-                                       2             3             4
-  - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z 
-               5
-            + z 
-                                       2             3             4
-  - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z 
-               5
-            + z 
-         3
-    1 + z 
+                                    2            3            4   5
+  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
+                                    2            3            4   5
+  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
+       3
+   1 +z 
      
    0
-                                      2            3    4
-    0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z 
-                                      2            3    4
-    0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z 
-     2
-    z 
-     
-    1
+                                   2           3   4
+   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z 
+                                   2           3   4
+   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z 
+    2
+   z 
+    
+   1
 [num den]
  ans  =
          column 1
-                                       2             3             4    
-  - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z     
-               5                                                        
-            + z                                                         
-                                       2             3             4    
-  - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z     
-               5                                                        
-            + z                                                         
-         3                                                              
-    1 + z                                                               
-                                                                        
-   0                                                                    
+                                    2            3            4   5
+  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
+                                    2            3            4   5
+  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
+       3                                                           
+   1 +z                                                            
+                                                                   
+   0                                                               
          column 2
-                                      2            3    4
-    0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z 
-                                      2            3    4
-    0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z 
-     2                                                   
-    z                                                    
-                                                         
-    1                                                    
+                                   2           3   4
+   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z 
+                                   2           3   4
+   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z 
+    2                                               
+   z                                                
+                                                    
+   1                                                
 //display of polynomials
 z=poly(0,"z")
  z  = 
-     
-    z
+    
+   z
 n=1+z;d=n*n;n1=[n d];d1=[d d*d];n1=[n1 n1];d1=[d1 d1];
 n2=[n n*n;n*n n**4];d2=[n*n n**4;n n*n];den=d2(1,:);num=n2(2,:);
 p=poly(rand(5,1),"z");q=poly(rand(6,1),"z");
@@ -373,14 +356,14 @@ d = digits+digits+digits;
 n = "1234567890";
 // scalar
 n
-n  = 
+ n  = 
  1234567890
 n+n+n+n+n
  ans  =
  123456789012345678901234567890123456789012345678 
  90                                              
 d
-d  = 
+ d  = 
  abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv 
  wxyzabcdefghijklmnopqrstuvwxyz                  
 d+d+d+d
@@ -636,20 +619,20 @@ list()
 list(1,2,3)
  ans  =
        ans(1)
-    1.
+   1.
        ans(2)
-    2.
+   2.
        ans(3)
-    3.
+   3.
 list(list(1,list()),2)
  ans  =
        ans(1)
               ans(1)(1)
-    1.
+   1.
               ans(1)(2)
      ()
        ans(2)
-    2.
+   2.
 list(rlist(q,p),1.23)
  ans  =
        ans(1)
@@ -661,7 +644,7 @@ list(rlist(q,p),1.23)
                                        2            3            4   5  
    -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z   
        ans(2)
-    1.23
+   1.23
 // overloading of display
 1:$
  ans  =
@@ -669,7 +652,7 @@ list(rlist(q,p),1.23)
 list(1,1:$)
  ans  =
        ans(1)
-    1.
+   1.
        ans(2)
  1:1:$
 list(list(1:$))
@@ -681,10 +664,10 @@ list(list(1,$),list())
  ans  =
        ans(1)
               ans(1)(1)
-    1.
+   1.
               ans(1)(2)
-     
-    $
+    
+   $
        ans(2)
      ()
 // Tlist overloaded display
@@ -693,53 +676,53 @@ TL=tlist("x",1,2)
        TL(1)
  x
        TL(2)
-    1.
+   1.
        TL(3)
-    2.
+   2.
 deff("%x_p(x)","disp(x(3),x(2),''Mydisplay'')")
 TL
-TL  = 
+ TL  = 
  Mydisplay
-    1.
-    2.
+   1.
+   2.
 list(TL)
  ans  =
        ans(1)
  Mydisplay
-    1.
-    2.
+   1.
+   2.
 list(list(TL))
  ans  =
        ans(1)
               ans(1)(1)
  Mydisplay
-    1.
-    2.
+   1.
+   2.
 TL=tlist("x",1:$,2)
  TL  = 
  Mydisplay
  1:1:$
-    2.
+   2.
 list(TL)
  ans  =
        ans(1)
  Mydisplay
  1:1:$
-    2.
+   2.
 list(list(TL))
  ans  =
        ans(1)
               ans(1)(1)
  Mydisplay
  1:1:$
-    2.
+   2.
 TL(2)=TL
  TL  = 
  Mydisplay
  Mydisplay
  1:1:$
-    2.
-    2.
+   2.
+   2.
 // boolean
 %t
  ans  =
index 70bdbca..b787557 100644 (file)
@@ -7,55 +7,55 @@
 // =============================================================================
 a=-1
  a  = 
-  - 1.
+  -1.
 b=1+%i
  b  = 
-    1. + i  
+   1. +i  
 c=[]
  c  = 
     []
 abs(a)
  ans  =
-    1.
+   1.
 abs(b)
  ans  =
-    1.4142136
+   1.4142136
 abs(c)
  ans  =
     []
 real(a)
  ans  =
-  - 1.
+  -1.
 real(b)
  ans  =
-    1.
+   1.
 real(c)
  ans  =
     []
 imag(a)
  ans  =
-    0.
+   0.
 imag(b)
  ans  =
-    1.
+   1.
 imag(c)
  ans  =
     []
 conj(a)
  ans  =
-  - 1.
+  -1.
 conj(b)
  ans  =
-    1. - i
+   1. -i
 conj(c)
  ans  =
     []
 int(a)
  ans  =
-  - 1.
+  -1.
 int(b)
  ans  =
-    1. + i  
+   1. +i  
 int(c)
  ans  =
     []
index 613f8f6..3d02d4f 100644 (file)
@@ -1,3 +1,4 @@
+//<-- CLI SHELL MODE -->
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2008 - INRIA
index a7c8b66..862be2e 100644 (file)
@@ -13,27 +13,27 @@ fmt = format();
 format("v")
 sqrt(3)
  ans  =
-    1.7320508
+   1.7320508
 format(10)
 sqrt(3)
  ans  =
-    1.7320508
+   1.7320508
 format(12,"v")
 sqrt(3)
  ans  =
-    1.732050808
+   1.732050808
 format("v",15)
 sqrt(3)
  ans  =
-    1.732050807569
+   1.732050807569
 format("e")
 sqrt(3)
  ans  =
-    1.73205081D+00
+   1.73205081D+00
 format(10)
 sqrt(3)
  ans  =
-    1.732D+00
+   1.732D+00
 f = format();
 assert_checkequal(f, [0 10]);
 format(10,"v");
@@ -70,8 +70,8 @@ assert_checkequal(f, [0 10]);
 format("v", 10);
 16278*12286
  ans  =
-    2.000D+08
+   2.000D+08
 format(11);
 16278*12286
  ans  =
-    199991508.
+   199991508.
index 2b223b4..55c7ebd 100644 (file)
@@ -282,22 +282,22 @@ deff("[ydot]=simul(t,y,a)","ydot=a")
 a=2;
 //appel le plus imple
 y=ode(0,0,1:2,simul)
- y  =
-    2.    4.
+ y  = 
+   2.   4.
 if norm(y-[a 2*a]) >1000*%eps then bugmes();quit;end
 y=ode(0,0,1:2,simul)
- y  =
-    2.    4.
+ y  = 
+   2.   4.
 if norm(y-[a 2*a]) >1000*%eps then bugmes();quit;end
 //appel avec passage d'arguments supplementaires
 deff("[ydot]=simul(t,y,a)","ydot=a")
 y=ode(0,0,1:2,list(simul,a))
- y  =
-    2.    4.
+ y  = 
+   2.   4.
 if norm(y-[a 2*a]) >1000*%eps then bugmes();quit;end
 y=ode(0,0,1:2,list(simul,a))
- y  =
-    2.    4.
+ y  = 
+   2.   4.
 if norm(y-[a 2*a]) >1000*%eps then bugmes();quit;end
 //
 //non linear
@@ -342,7 +342,7 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 //resume in external
 deff("[ydot]=simul(t,y,a)","ydot=a,tt=resume([tt,t])")
 tt=[]
- tt  =
+ tt  = 
     []
 deff("[x]=calcul(n)",text)
 deff("[ydot]=simul(t,y,a)","ydot=a")
@@ -403,7 +403,7 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 //
 deff("[ydot]=simul(t,y,a)","ydot=b(a),tt=resume([tt,t])")
 tt=[]
- tt  =
+ tt  = 
     []
 deff("[x]=calcul(n)",text)
 deff("[ydot]=simul(t,y,a)","ydot=b(a)")
@@ -460,7 +460,7 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 //
 deff("[ydot]=simul(t,y,a)","ydot=b(a),tt=resume([tt,t])")
 tt=[]
- tt  =
+ tt  = 
     []
 deff("[x]=calcul(n)",text)
 deff("[ydot]=simul(t,y,a)","ydot=b(a)")
@@ -483,12 +483,12 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 text=["deff(''[x]=b(a)'',''if a==1 then x=1,else x=a,prod([1 1]),end''),"
 "b,"
 "x=b(n),"]
- text  =
+ text  = 
 !deff('[x]=b(a)','if a==1 then x=1,else x=a,prod([1 1]),end'),  !
-!                                                                   !
-!b,                                                                 !
-!                                                                   !
-!x=b(n),                                                            !
+!                                                               !
+!b,                                                             !
+!                                                               !
+!x=b(n),                                                        !
 deff("[x]=t8(n)",text')
 y=t8(10);
 if y<>10 then bugmes();quit;end
@@ -538,7 +538,7 @@ if cplist(hrn , rlist(z+1,z-1,[]))==0 then bugmes();quit;end
 //
 //
 text=["aa=1,if a==2 then aa=b(a),end"]
- text  =
+ text  = 
  aa=1,if a==2 then aa=b(a),end
 fic=file("open",TMPDIR+"/test_macro_exec","unknown");
 write(fic,text)
@@ -547,12 +547,12 @@ deff("[x]=b(a)","x=a,prod([1 1])")
 deff("[x]=t9(a)","exec(TMPDIR+''/test_macro_exec''),x=aa")
 y=t9(2)
 aa=1,if a==2 then aa=b(a),end
- aa  =
-    1.
- aa  =
-    2.
- y  =
-    2.
+ aa  = 
+   1.
+ aa  = 
+   2.
+ y  = 
+   2.
 if y<>2 then bugmes();quit;end
 ierr = execstr("file(""rewind"",fic);","errcatch");
 assert_checkequal(ierr, 999);
@@ -561,30 +561,30 @@ refMsg = msprintf(gettext("%s: Unknown file format.\n"), "file");
 assert_checkequal(errMsg, refMsg);
 y=t9(2)
 aa=1,if a==2 then aa=b(a),end
- aa  =
-    1.
- aa  =
-    2.
- y  =
-    2.
+ aa  = 
+   1.
+ aa  = 
+   2.
+ y  = 
+   2.
 if y<>2 then bugmes();quit;end
 //
 deff("[x]=t9(a)","exec(TMPDIR+''/test_macro_exec''),x=aa")
 y=t9(2)
 aa=1,if a==2 then aa=b(a),end
- aa  =
-    1.
- aa  =
-    2.
- y  =
-    2.
+ aa  = 
+   1.
+ aa  = 
+   2.
+ y  = 
+   2.
 if y<>2 then bugmes();quit;end
 y=t9(2)
 aa=1,if a==2 then aa=b(a),end
- aa  =
-    1.
- aa  =
-    2.
- y  =
-    2.
+ aa  = 
+   1.
+ aa  = 
+   2.
+ y  = 
+   2.
 if y<>2 then bugmes();quit;end
index 090808f..492913f 100644 (file)
@@ -31,214 +31,214 @@ mode(ref);
 exec mode : -1
 exec mode : 0
  a  = 
-    1.
+   1.
  b  = 
-    2.
+   2.
  c  = 
-    3.
+   3.
  d  = 
-    4.
+   4.
  e  = 
-    5.
+   5.
  f  = 
-    6.
+   6.
  g  = 
-    7.
+   7.
  h  = 
-    8.
+   8.
  i  = 
-    9.
+   9.
  j  = 
-    10.
+   10.
 printf("exec mode : %d\n", mode());
 exec mode : 1
 a = 1
  a  = 
-    1.
+   1.
 b = 2,c=3
  b  = 
-    2.
+   2.
  c  = 
-    3.
+   3.
 d = 4,if(1) e = 5
 end;
  d  = 
-    4.
+   4.
  e  = 
-    5.
+   5.
 f = 6,if(1)
     g = 7
 end;
  f  = 
-    6.
+   6.
  g  = 
-    7.
+   7.
 h = 8,if(1)
     i = 9
 end;j=10
  h  = 
-    8.
+   8.
  i  = 
-    9.
+   9.
  j  = 
-    10.
+   10.
 exec mode : 2
  a  = 
-    1.
+   1.
  b  = 
-    2.
+   2.
  c  = 
-    3.
+   3.
  d  = 
-    4.
+   4.
  e  = 
-    5.
+   5.
  f  = 
-    6.
+   6.
  g  = 
-    7.
+   7.
  h  = 
-    8.
+   8.
  i  = 
-    9.
+   9.
  j  = 
-    10.
+   10.
 printf("exec mode : %d\n", mode());
 exec mode : 3
 a = 1
  a  = 
-    1.
+   1.
 b = 2,c=3
  b  = 
-    2.
+   2.
  c  = 
-    3.
+   3.
 d = 4,if(1) e = 5
 end;
  d  = 
-    4.
+   4.
  e  = 
-    5.
+   5.
 f = 6,if(1)
     g = 7
 end;
  f  = 
-    6.
+   6.
  g  = 
-    7.
+   7.
 h = 8,if(1)
     i = 9
 end;j=10
  h  = 
-    8.
+   8.
  i  = 
-    9.
+   9.
  j  = 
-    10.
+   10.
 script mode : -1
 script mode : 0
  a  = 
-    1.
+   1.
  b  = 
-    2.
+   2.
  c  = 
-    3.
+   3.
  d  = 
-    4.
+   4.
  e  = 
-    5.
+   5.
  f  = 
-    6.
+   6.
  g  = 
-    7.
+   7.
  h  = 
-    8.
+   8.
  i  = 
-    9.
+   9.
  j  = 
-    10.
+   10.
 printf("script mode : %d\n", mode());
 script mode : 1
 a = 1
  a  = 
-    1.
+   1.
 b = 2,c=3
  b  = 
-    2.
+   2.
  c  = 
-    3.
+   3.
 d = 4,if(1) e = 5
 end;
  d  = 
-    4.
+   4.
  e  = 
-    5.
+   5.
 f = 6,if(1)
     g = 7
 end;
  f  = 
-    6.
+   6.
  g  = 
-    7.
+   7.
 h = 8,if(1)
     i = 9
 end;j=10
  h  = 
-    8.
+   8.
  i  = 
-    9.
+   9.
  j  = 
-    10.
+   10.
 script mode : 2
  a  = 
-    1.
+   1.
  b  = 
-    2.
+   2.
  c  = 
-    3.
+   3.
  d  = 
-    4.
+   4.
  e  = 
-    5.
+   5.
  f  = 
-    6.
+   6.
  g  = 
-    7.
+   7.
  h  = 
-    8.
+   8.
  i  = 
-    9.
+   9.
  j  = 
-    10.
+   10.
 printf("script mode : %d\n", mode());
 script mode : 3
 a = 1
  a  = 
-    1.
+   1.
 b = 2,c=3
  b  = 
-    2.
+   2.
  c  = 
-    3.
+   3.
 d = 4,if(1) e = 5
 end;
  d  = 
-    4.
+   4.
  e  = 
-    5.
+   5.
 f = 6,if(1)
     g = 7
 end;
  f  = 
-    6.
+   6.
  g  = 
-    7.
+   7.
 h = 8,if(1)
     i = 9
 end;j=10
  h  = 
-    8.
+   8.
  i  = 
-    9.
+   9.
  j  = 
-    10.
+   10.
index 6d19187..2dea36a 100644 (file)
@@ -8,31 +8,31 @@ funcprot(0);
 //syntax with no explicit lhs
 1
  ans  =
-    1.
+   1.
 -1
  ans  =
-  - 1.
+  -1.
 1+1
  ans  =
-    2.
+   2.
 1==2
  ans  =
   F
 [1 2 3]
  ans  =
-    1.    2.    3.
+   1.   2.   3.
 ans(1)
  ans  =
-    1.
+   1.
 [sin(3) 2 3]
  ans  =
-    0.14112    2.    3.
+   0.14112   2.   3.
 sin(3)
  ans  =
-    0.14112
+   0.14112
 ans
  ans  = 
-    0.14112
+   0.14112
 ans==1
  ans  =
   F
@@ -55,40 +55,40 @@ disp xxx
 //syntax with simple lhs
 a=1
  a  = 
-    1.
+   1.
 a=[1 2 3]
  a  = 
-    1.    2.    3.
+   1.   2.   3.
 a=[1 2 3
 4 5 6]
  a  = 
-    1.    2.    3.
-    4.    5.    6.
+   1.   2.   3.
+   4.   5.   6.
 a(2)=44
  a  = 
-    1.     2.    3.
-    44.    5.    6.
+   1.    2.   3.
+   44.   5.   6.
 clear c;c(5)=9
  c  = 
-    0.
-    0.
-    0.
-    0.
-    9.
+   0.
+   0.
+   0.
+   0.
+   9.
 [m,k]=max(1:3)
  k  = 
-    3.
+   3.
  m  = 
-    3.
+   3.
 [d1f d2f d3f d4f] = (1,2,3,4)
  d4f  = 
-    4.
+   4.
  d3f  = 
-    3.
+   3.
  d2f  = 
-    2.
+   2.
  d1f  = 
-    1.
+   1.
 //if 10<>3 then x=disp('abcd'),end
 if 10<>3 then disp("abcd"),end
  abcd
@@ -99,160 +99,160 @@ if (1==1) then "ok",end
  ans  =
  ok
 for k=1:2,disp(k),end
-    1.
-    2.
+   1.
+   2.
 function foo(k),disp(k),endfunction;
 for k=1:2,foo(k),end
-    1.
-    2.
+   1.
+   2.
 for k=1:2,(1+1),end
  ans  =
-    2.
+   2.
  ans  =
-    2.
+   2.
 for k=1:2,[m,k]=max(1:k),end
  k  = 
-    1.
+   1.
  m  = 
-    1.
+   1.
  k  = 
-    2.
+   2.
  m  = 
-    2.
+   2.
 for k=1:2,[1,2],end
  ans  =
-    1.    2.
+   1.   2.
  ans  =
-    1.    2.
+   1.   2.
 for k=1:3 k,end //matlab syntax
  k  = 
-    1.
+   1.
  k  = 
-    2.
+   2.
  k  = 
-    3.
+   3.
 //nouvelles syntaxes
 [a(1),b(2)]=(3,4)
  b  = 
-    0.
-    4.
+   0.
+   4.
  a  = 
-    3.     2.    3.
-    44.    5.    6.
+   3.    2.   3.
+   44.   5.   6.
 [a(1),x,b(2)]=(3,4,5)
  b  = 
-    0.
-    5.
+   0.
+   5.
  x  = 
-    4.
+   4.
  a  = 
-    3.     2.    3.
-    44.    5.    6.
+   3.    2.   3.
+   44.   5.   6.
 [a(1),b(1,2),x]=(3,4,5)
  x  = 
-    5.
+   5.
  b  = 
-    0.    4.
-    5.    0.
+   0.   4.
+   5.   0.
  a  = 
-    3.     2.    3.
-    44.    5.    6.
+   3.    2.   3.
+   44.   5.   6.
 I1=list(2,3);I2=list(1,2);
 clear x y;[x,y(I2(:))]=(11,12)
  y  = 
-    0.    12.
+   0.   12.
  x  = 
-    11.
+   11.
 clear x y;[x(I1(:)),y]=(11,12)
  y  = 
-    12.
+   12.
  x  = 
-    0.    0.    0. 
-    0.    0.    11.
+   0.   0.   0. 
+   0.   0.   11.
 clear x y;[x(I1(:)),y(I2(:))]=(11,12)
  y  = 
-    0.    12.
+   0.   12.
  x  = 
-    0.    0.    0. 
-    0.    0.    11.
+   0.   0.   0. 
+   0.   0.   11.
 str_l=list();str_l(1)=1;str_l(1)
  ans  =
-    1.
+   1.
 l=list(1,2,3);l(3)=null()
  l  = 
        l(1)
-    1.
+   1.
        l(2)
-    2.
+   2.
 function []=foo()
     [noeuds,triang]=resume(1,2)
 endfunction
 foo();disp([noeuds,triang])
-    1.    2.
+   1.   2.
 function [a]=foo(x)
     a=33
     [noeuds,triang]=resume(45,sin(2))
 endfunction
 foo(%t)
  ans  =
-    33.
+   33.
 function [a]=foo(x)
     a=33
     if x,  return,end
 endfunction
 foo(%t)
  ans  =
-    33.
+   33.
 foo();disp([noeuds,triang])
-    45.    0.9092974
+   45.   0.9092974
 deff("t1=foo()","t1(2)= 1");foo()
  ans  =
-    0.
-    1.
+   0.
+   1.
 deff("t1=foo()","t1=list();t1(1)= 44;");foo()
  ans  =
        ans(1)
-    44.
+   44.
 deff("[a,b,x]=foo()","[a(1),b(1,2),x]=(3,4,5);");[a,b,x]=foo()
  x  = 
-    5.
+   5.
  b  = 
-    0.    4.
+   0.   4.
  a  = 
-    3.
+   3.
 function [a,b,x]=foo(),u=5;[a(1),b(1,2),x]=(3,4,u),a(2)=44,endfunction
 [a,b,x]=foo()
  x  = 
-    5.
+   5.
  b  = 
-    0.    4.
+   0.   4.
  a  = 
-    3.
-    44.
+   3.
+   44.
 function [a,b,x]=foo(),[a,b,x]=(3,4,5),endfunction
 [a,b,x]=foo()
  x  = 
-    5.
+   5.
  b  = 
-    4.
+   4.
  a  = 
-    3.
+   3.
 function x=foo(),INDX=list(2,3); x(INDX(:))=11; endfunction
 foo()
  ans  =
-    0.    0.    0. 
-    0.    0.    11.
+   0.   0.   0. 
+   0.   0.   11.
 I1=list(2,3);I2=list(1,2);
 function foo(),[x(I1(:)),y(I2(:))]=(11,12);disp(x,y), endfunction
 foo()
-    0.    12.
-    0.    0.    0. 
-    0.    0.    11.
+   0.   12.
+   0.   0.   0. 
+   0.   0.   11.
 function l=foo(),l=list(1,2,3);l(3)=null();endfunction
 foo()
  ans  =
        ans(1)
-    1.
+   1.
        ans(2)
-    2.
+   2.
 funcprot(1);
index a379bc4..e15fdb0 100644 (file)
@@ -90,7 +90,6 @@ assert_checkfalse(1<>1);
 assert_checktrue(0<>1);
 assert_checkfalse("1"=="0");
 assert_checkfalse("1"<>"1");
-%s=poly(0,"s");
 assert_checkfalse(%s==0);
 assert_checkfalse(0==%s);
 assert_checktrue(%s==%s);
index 72d9a6b..5eae14b 100644 (file)
@@ -113,7 +113,6 @@ assert_checktrue(0<>1);
 assert_checkfalse("1"=="0");
 assert_checkfalse("1"<>"1");
 
-%s=poly(0,"s");
 assert_checkfalse(%s==0);
 assert_checkfalse(0==%s);
 assert_checktrue(%s==%s);
index 2d3f510..e290ef2 100644 (file)
@@ -24,7 +24,7 @@ catch
 end
 WARNING: this is a warning
 str //display str
-str  = 
+ str  = 
 !*** Execution stopped after a warning. ***                !
 !                                                          !
 !Set warning("on") to continue execution after a warning.  !
@@ -39,7 +39,7 @@ catch
 end
 WARNING: this is a warning
 str //display str
-str  = 
+ str  = 
  
 assert_checktrue(str == "");
 //Testing waring off mode
@@ -52,6 +52,6 @@ catch
 end
 WARNING: this is a warning
 str //display str
-str  = 
+ str  = 
  
 assert_checktrue(str == "");