- split matsys.tst
Pierre Marechal [Tue, 15 Jul 2008 14:46:06 +0000 (14:46 +0000)]
- Clean some tests

41 files changed:
scilab/modules/core/tests/nonreg_tests/bug_2320.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/argn.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/argn.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/comp.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/comp.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/compiled_functions.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/compiled_functions.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/exists.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/exists.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/format.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/format.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/funcprot.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/funcprot.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/ieee.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/ieee.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/lines.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/lines.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/matsys.tst
scilab/modules/core/tests/unit_tests/mtlb_mode.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/mtlb_mode.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/newfun.dia.ref
scilab/modules/core/tests/unit_tests/newfun.tst
scilab/modules/core/tests/unit_tests/not_compiled_functions.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/not_compiled_functions.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/predef.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/sciargs.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/sciargs.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/stacksize.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/stacksize.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/timer.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/timer.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/type.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/type.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/typename.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/typename.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/where.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/where.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/whereis.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/whereis.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/who.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/who.tst [new file with mode: 0644]

diff --git a/scilab/modules/core/tests/nonreg_tests/bug_2320.dia.ref b/scilab/modules/core/tests/nonreg_tests/bug_2320.dia.ref
new file mode 100644 (file)
index 0000000..34a2609
--- /dev/null
@@ -0,0 +1,14 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 2320 -->
+//
+// UNC Path not managed
+if MSDOS then
+       if chdir('\\Machine\folder') == %t                       then bugmes();quit;end
+       if execstr("cd(''\\Machine\folder'')","errcatch") <> 998 then bugmes();quit;end
+end
+// =============================================================================
diff --git a/scilab/modules/core/tests/unit_tests/argn.dia.ref b/scilab/modules/core/tests/unit_tests/argn.dia.ref
new file mode 100644 (file)
index 0000000..806f800
--- /dev/null
@@ -0,0 +1,36 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//argn
+deff("[x,y]=foo(a,b)','[lhs,rhs]=argn(0);x=[lhs,rhs];y=-1')
+if or(foo(1)<>[1 1]) then bugmes();quit;end
+if or(foo(1,2)<>[1 2]) then bugmes();quit;end
+if or(foo()<>[1 0]) then bugmes();quit;end
+[x,y]=foo(1);if or(x<>[2 1]) then bugmes();quit;end
+[x,y]=foo(1,1);if or(x<>[2 2]) then bugmes();quit;end
+[x,y]=foo();if or(x<>[2 0]) then bugmes();quit;end
+deff('[x,y]=foo(a,b)','lhs=argn(0);x=lhs;y=-1')
+Warning : redefining function: foo                     . Use funcprot(0) to avoid this message
+
+if foo(1)<>1 then bugmes();quit;end
+if foo(1,2)<>1 then bugmes();quit;end
+[x,y]=foo(1);if x<>2 then bugmes();quit;end
+//
+deff('[x,y]=foo(a,b)','[lhs,rhs]=argn();x=[lhs,rhs];y=-1')
+Warning : redefining function: foo                     . Use funcprot(0) to avoid this message
+
+if or(foo(1)<>[1 1]) then bugmes();quit;end
+if or(foo(1,2)<>[1 2]) then bugmes();quit;end
+if or(foo()<>[1 0]) then bugmes();quit;end
+[x,y]=foo(1);if or(x<>[2 1]) then bugmes();quit;end
+[x,y]=foo(1,1);if or(x<>[2 2]) then bugmes();quit;end
+[x,y]=foo();if or(x<>[2 0]) then bugmes();quit;end
+deff('[x,y]=foo(a,b)','lhs=argn();x=lhs;y=-1')
+Warning : redefining function: foo                     . Use funcprot(0) to avoid this message
+
+if foo(1)<>1 then bugmes();quit;end
+if foo(1,2)<>1 then bugmes();quit;end
+[x,y]=foo(1);if x<>2 then bugmes();quit;end
diff --git a/scilab/modules/core/tests/unit_tests/argn.tst b/scilab/modules/core/tests/unit_tests/argn.tst
new file mode 100644 (file)
index 0000000..cb8b722
--- /dev/null
@@ -0,0 +1,32 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+//argn
+
+deff("[x,y]=foo(a,b)','[lhs,rhs]=argn(0);x=[lhs,rhs];y=-1')
+if or(foo(1)<>[1 1]) then pause,end
+if or(foo(1,2)<>[1 2]) then pause,end
+if or(foo()<>[1 0]) then pause,end
+[x,y]=foo(1);if or(x<>[2 1]) then pause,end
+[x,y]=foo(1,1);if or(x<>[2 2]) then pause,end
+[x,y]=foo();if or(x<>[2 0]) then pause,end
+deff('[x,y]=foo(a,b)','lhs=argn(0);x=lhs;y=-1')
+if foo(1)<>1 then pause,end
+if foo(1,2)<>1 then pause,end
+[x,y]=foo(1);if x<>2 then pause,end
+//
+deff('[x,y]=foo(a,b)','[lhs,rhs]=argn();x=[lhs,rhs];y=-1')
+if or(foo(1)<>[1 1]) then pause,end
+if or(foo(1,2)<>[1 2]) then pause,end
+if or(foo()<>[1 0]) then pause,end
+[x,y]=foo(1);if or(x<>[2 1]) then pause,end
+[x,y]=foo(1,1);if or(x<>[2 2]) then pause,end
+[x,y]=foo();if or(x<>[2 0]) then pause,end
+deff('[x,y]=foo(a,b)','lhs=argn();x=lhs;y=-1')
+if foo(1)<>1 then pause,end
+if foo(1,2)<>1 then pause,end
+[x,y]=foo(1);if x<>2 then pause,end
\ No newline at end of file
diff --git a/scilab/modules/core/tests/unit_tests/comp.dia.ref b/scilab/modules/core/tests/unit_tests/comp.dia.ref
new file mode 100644 (file)
index 0000000..835b243
--- /dev/null
@@ -0,0 +1,12 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// comp
+deff("[a]=foo()","a=1","n")
+comp(foo);
+Warning : redefining function: foo                     . Use funcprot(0) to avoid this message
+
+if foo()<>1 then bugmes();quit;end
diff --git a/scilab/modules/core/tests/unit_tests/comp.tst b/scilab/modules/core/tests/unit_tests/comp.tst
new file mode 100644 (file)
index 0000000..4aed4ee
--- /dev/null
@@ -0,0 +1,12 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// comp
+
+deff("[a]=foo()","a=1","n")
+comp(foo);
+if foo()<>1 then pause,end
diff --git a/scilab/modules/core/tests/unit_tests/compiled_functions.dia.ref b/scilab/modules/core/tests/unit_tests/compiled_functions.dia.ref
new file mode 100644 (file)
index 0000000..b31acd5
--- /dev/null
@@ -0,0 +1,31 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// compiled functions
+deff('y=foo(a)','x=a+1000,stacksize(x),y=stacksize();y=y(1)')
+a = stacksize();
+a = a(1);
+y = foo(a);
+if y<>a+1000 then bugmes();quit;end
+a=y;
+deff('y=toto()','a=stacksize();a=a(1);y=foo(a)')
+y=toto();
+if y<>a+1000 then bugmes();quit;end
+a=y;
+ y  =
+    5003000.  
+if y<>a+1000 then bugmes();quit;end
+a=y;
+//in a loop
+for k=1:3,
+  y=toto();
+  if y<>a+1000 then bugmes();quit;end
+  a=y;
+end
diff --git a/scilab/modules/core/tests/unit_tests/compiled_functions.tst b/scilab/modules/core/tests/unit_tests/compiled_functions.tst
new file mode 100644 (file)
index 0000000..478c73c
--- /dev/null
@@ -0,0 +1,31 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// compiled functions
+
+deff('y=foo(a)','x=a+1000,stacksize(x),y=stacksize();y=y(1)')
+
+a = stacksize();
+a = a(1);
+y = foo(a);
+
+if y<>a+1000 then pause,end
+a=y;
+deff('y=toto()','a=stacksize();a=a(1);y=foo(a)')
+y=toto();
+if y<>a+1000 then pause,end
+a=y;
+exec(toto)
+if y<>a+1000 then pause,end
+a=y;
+
+//in a loop
+for k=1:3,
+  y=toto();
+  if y<>a+1000 then pause,end
+  a=y;
+end
diff --git a/scilab/modules/core/tests/unit_tests/exists.dia.ref b/scilab/modules/core/tests/unit_tests/exists.dia.ref
new file mode 100644 (file)
index 0000000..95ed368
--- /dev/null
@@ -0,0 +1,14 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//exists
+a=1
+ a  =
+    1.  
+if exists('a')<>1 then bugmes();quit;end
+clear a
+if exists('a')<>0 then bugmes();quit;end
diff --git a/scilab/modules/core/tests/unit_tests/exists.tst b/scilab/modules/core/tests/unit_tests/exists.tst
new file mode 100644 (file)
index 0000000..3f59507
--- /dev/null
@@ -0,0 +1,13 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+//exists
+
+a=1
+if exists('a')<>1 then pause,end
+clear a
+if exists('a')<>0 then pause,end
diff --git a/scilab/modules/core/tests/unit_tests/format.dia.ref b/scilab/modules/core/tests/unit_tests/format.dia.ref
new file mode 100644 (file)
index 0000000..504cf7d
--- /dev/null
@@ -0,0 +1,41 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//format
+fmt=format();
+format('v')
+sqrt(3)
+ ans  =
+    1.7320508  
+format(10)
+sqrt(3)
+ ans  =
+    1.7320508  
+format(12,'v')
+sqrt(3)
+ ans  =
+    1.732050808  
+format('v',15)
+sqrt(3)
+ ans  =
+    1.732050807569  
+format('e')
+sqrt(3)
+ ans  =
+    1.73205081D+00  
+format(10)
+sqrt(3)
+ ans  =
+    1.732D+00  
+f=format();
+if or(f<>[0 10]) then bugmes();quit;end
+format(10,'v');
diff --git a/scilab/modules/core/tests/unit_tests/format.tst b/scilab/modules/core/tests/unit_tests/format.tst
new file mode 100644 (file)
index 0000000..309d29f
--- /dev/null
@@ -0,0 +1,25 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+//format
+
+fmt=format();
+format('v')
+sqrt(3)
+format(10)
+sqrt(3)
+format(12,'v')
+sqrt(3)
+format('v',15)
+sqrt(3)
+format('e')
+sqrt(3)
+format(10)
+sqrt(3)
+f=format();
+if or(f<>[0 10]) then pause,end
+format(10,'v');
diff --git a/scilab/modules/core/tests/unit_tests/funcprot.dia.ref b/scilab/modules/core/tests/unit_tests/funcprot.dia.ref
new file mode 100644 (file)
index 0000000..cec4156
--- /dev/null
@@ -0,0 +1,23 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//funcprot
+deff("foo()","a=1");
+funcprot(0);
+if funcprot() <> 0 then bugmes();quit;end
+if execstr("deff(""foo()"",""a=1"");","errcatch") <> 0 then bugmes();quit;end
+deff("foo()","a=2");
+funcprot(1);
+if funcprot() <> 1 then bugmes();quit;end
+if execstr("deff(""foo()"",""a=3"");","errcatch") <> 0 then bugmes();quit;end
+Warning : redefining function: foo                     . Use funcprot(0) to avoid this message
+
+deff("foo()","a=4")
+Warning : redefining function: foo                     . Use funcprot(0) to avoid this message
+
+funcprot(2);
+if funcprot() <> 2 then bugmes();quit;end
+if execstr("deff(""foo()"",""a=5"");","errcatch") == 0 then bugmes();quit;end
diff --git a/scilab/modules/core/tests/unit_tests/funcprot.tst b/scilab/modules/core/tests/unit_tests/funcprot.tst
new file mode 100644 (file)
index 0000000..1b275a9
--- /dev/null
@@ -0,0 +1,24 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+//funcprot
+
+deff("foo()","a=1");
+
+funcprot(0);
+if funcprot() <> 0 then pause,end
+if execstr("deff(""foo()"",""a=1"");","errcatch") <> 0 then pause,end
+deff("foo()","a=2");
+
+funcprot(1);
+if funcprot() <> 1 then pause,end
+if execstr("deff(""foo()"",""a=3"");","errcatch") <> 0 then pause,end
+deff("foo()","a=4")
+
+funcprot(2);
+if funcprot() <> 2 then pause,end
+if execstr("deff(""foo()"",""a=5"");","errcatch") == 0 then pause,end
diff --git a/scilab/modules/core/tests/unit_tests/ieee.dia.ref b/scilab/modules/core/tests/unit_tests/ieee.dia.ref
new file mode 100644 (file)
index 0000000..c308e18
--- /dev/null
@@ -0,0 +1,19 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//ieee
+ieee(2);
+if execstr("1/0","errcatch") <> 0 then bugmes();quit;end
+if 1/0<>%inf then bugmes();quit;end
+ieee(1);
+if execstr("1/0","errcatch") <> 0 then bugmes();quit;end
+Warning : division by zero...
+
+if 1/0<>%inf then bugmes();quit;end
+Warning : division by zero...
+
+ieee(0);
+if execstr("1/0","errcatch") == 0 then bugmes();quit;end
diff --git a/scilab/modules/core/tests/unit_tests/ieee.tst b/scilab/modules/core/tests/unit_tests/ieee.tst
new file mode 100644 (file)
index 0000000..a761e5d
--- /dev/null
@@ -0,0 +1,19 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+//ieee
+
+ieee(2);
+if execstr("1/0","errcatch") <> 0 then pause,end
+if 1/0<>%inf then pause,end
+
+ieee(1);
+if execstr("1/0","errcatch") <> 0 then pause,end
+if 1/0<>%inf then pause,end
+
+ieee(0);
+if execstr("1/0","errcatch") == 0 then pause,end
diff --git a/scilab/modules/core/tests/unit_tests/lines.dia.ref b/scilab/modules/core/tests/unit_tests/lines.dia.ref
new file mode 100644 (file)
index 0000000..0b78289
--- /dev/null
@@ -0,0 +1,14 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//lines
+ln  = lines();
+lines(30);
+ln1 = lines();
+if ln1(2)<>30 then bugmes();quit;end
+lines(45,70);
+ln1=lines();
+if or(ln1<>[70,45]) then bugmes();quit;end
diff --git a/scilab/modules/core/tests/unit_tests/lines.tst b/scilab/modules/core/tests/unit_tests/lines.tst
new file mode 100644 (file)
index 0000000..e86d9ea
--- /dev/null
@@ -0,0 +1,17 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+//lines
+
+ln  = lines();
+lines(30);
+ln1 = lines();
+
+if ln1(2)<>30 then pause,end
+lines(45,70);
+ln1=lines();
+if or(ln1<>[70,45]) then pause,end
index 7ee5fed..b0547fa 100644 (file)
 // if debug()<>4 then pause,end
 // debug(0)
 
-clear
-
-//who
-a=33;
-bbb=-1;
-vars=who('get');
-if or(vars(1:2)<>['bbb';'a']) then pause,end
-
-//lines
-ln=lines();lines(30);ln1=lines();
-if ln1(2)<>30 then pause,end
-lines(45,70);ln1=lines();
-if or(ln1<>[70,45]) then pause,end
-
-//argn
-deff('[x,y]=foo(a,b)','[lhs,rhs]=argn(0);x=[lhs,rhs];y=-1')
-if or(foo(1)<>[1 1]) then pause,end
-if or(foo(1,2)<>[1 2]) then pause,end
-if or(foo()<>[1 0]) then pause,end
-[x,y]=foo(1);if or(x<>[2 1]) then pause,end
-[x,y]=foo(1,1);if or(x<>[2 2]) then pause,end
-[x,y]=foo();if or(x<>[2 0]) then pause,end
-deff('[x,y]=foo(a,b)','lhs=argn(0);x=lhs;y=-1')
-if foo(1)<>1 then pause,end
-if foo(1,2)<>1 then pause,end
-[x,y]=foo(1);if x<>2 then pause,end
-//
-deff('[x,y]=foo(a,b)','[lhs,rhs]=argn();x=[lhs,rhs];y=-1')
-if or(foo(1)<>[1 1]) then pause,end
-if or(foo(1,2)<>[1 2]) then pause,end
-if or(foo()<>[1 0]) then pause,end
-[x,y]=foo(1);if or(x<>[2 1]) then pause,end
-[x,y]=foo(1,1);if or(x<>[2 2]) then pause,end
-[x,y]=foo();if or(x<>[2 0]) then pause,end
-deff('[x,y]=foo(a,b)','lhs=argn();x=lhs;y=-1')
-if foo(1)<>1 then pause,end
-if foo(1,2)<>1 then pause,end
-[x,y]=foo(1);if x<>2 then pause,end
-
-//type
-if type(1)<>1 then pause,end
-a=%s;if type(a)<>2  then pause,end
-
-//mode (cannot be tested here)
-//mode(7);if mode()<>7 then pause,end;mode(2);
-
 //errcatch,errclear,iserror
 clear
 errcatch(4,'continue')
@@ -106,168 +60,6 @@ if lasterror()<>[] then pause,end
 [m,n]=lasterror();
 if m<>[]|n<>0 then pause,end
 
-//resume
-deff('foo()','[a,b]=resume(''x'',''y'')')
-foo();
-if a<>'x'|b<>'y' then pause,end
-
-//format
-fmt=format();
-format('v')
-sqrt(3)
-format(10)
-sqrt(3)
-format(12,'v')
-sqrt(3)
-format('v',15)
-sqrt(3)
-format('e')
-sqrt(3)
-format(10)
-sqrt(3)
-f=format();
-if or(f<>[0 10]) then pause,end
-format(10,'v');
-
-//exists
-a=1
-if exists('a')<>1 then pause,end
-clear a
-if exists('a')<>0 then pause,end
-
-//predef
-if %f then
-N=predef();
-a=1;
-predef('all');
-errcatch(13,'continue','nomessage')
-clear a 
-if iserror()<>1 then pause,end
-errclear();errcatch()
-predef('clear');
-errcatch(13,'continue','nomessage')
-clear a
-if iserror()<>0 then pause,end
-errclear();errcatch()
-predef(N);
-if predef()<>N then pause,end
-end
-
-// newfun, clearfun, funptr
-fptr=funptr('sin');
-if fptr<>622 then pause,end
-newfun('mysin',fptr);
-if mysin(1)<>sin(1) then pause,end
-clearfun('mysin');
-errcatch(4,'continue','nomessage')
-mysin(1)
-if iserror()<>1 then pause,end
-errclear();errcatch();
-
-//whereis
-if whereis('sci2exp')<>'stringlib' then pause,end
-if whereis('aaa')<>[]  then pause,end
-
-//where
-deff('[a,b]=foo()','[a,b]=where()')
-[a,b]=foo();
-if a(1)<>1|b(1)<>'foo' then pause,end
-
-//funcprot
-funcprot(0)
-deff('foo()','a=1')
-funcprot(1)
-deff('foo()','a=2')
-errcatch(111,'continue','nomessage')
-funcprot(2)
-deff('foo()','a=3')
-if iserror()<>1 then pause,end
-errclear();errcatch()
-if funcprot()<>2 then pause,end
-funcprot(1)
-
-// timer
-timer();for i=1:100000,end;if timer()<=0 then pause,end
-
-// comp
-deff('[a]=foo()','a=1','n')
-comp(foo)
-if foo()<>1 then pause,end
-
-// stacksize 
-
-a=stacksize();a=a(1);
-stacksize(a+1000)
-y=stacksize();if y(1)<>a+1000 then pause,end
-
-//non compiled functions
-deff('y=foo(a)','x=a+1000,stacksize(x),y=stacksize();y=y(1)','n')
-a=stacksize();a=a(1);
-y=foo(a);
-if y<>a+1000 then pause,end
-a=y;
-deff('y=toto()','a=stacksize();a=a(1);y=foo(a)','n')
-y=toto();
-if y<>a+1000 then pause,end
-a=y;
-exec(toto)
-if y<>a+1000 then pause,end
-a=y;
-
-// compiled functions
-deff('y=foo(a)','x=a+1000,stacksize(x),y=stacksize();y=y(1)')
-y=foo(a);
-if y<>a+1000 then pause,end
-a=y;
-deff('y=toto()','a=stacksize();a=a(1);y=foo(a)')
-y=toto();
-if y<>a+1000 then pause,end
-a=y;
-exec(toto)
-if y<>a+1000 then pause,end
-a=y;
-
-//in a loop
-for k=1:3,
-  y=toto();
-  if y<>a+1000 then pause,end
-  a=y;
-end
-
-
-//mtlb_mode
-mtlb_mode(%t)
-if ~mtlb_mode() then pause,end
-if []+1<>[] then pause,end
-mtlb_mode(%f)
-if mtlb_mode() then pause,end
-
-
-//sciargs
-args=sciargs();
-if type(args)<>10 then pause,end
-
-//ieee
-ieee(2)
-if 1/0<>%inf then pause,end
-ieee(1)
-if 1/0<>%inf then pause,end
-ieee(0)
-errcatch(27,'continue','nomessage')
-1/0
-if iserror()<>1 then pause,end
-errclear();errcatch()
-
 
-//typename
-[typs,nams]=typename();
-if or(typs<>[1;2;4;5;6;7;8;9;10;11;13;14;15;16;17;128;129;130]) then pause,end
 
-if or(nams<>['s';'p';'b';'sp';'spb';'msp';'i';'h';'c';'m';'mc';
-  'f';'l';'tl';'ml';'ptr';'ip';'fptr'])  then pause,end
-typename('mytype',1024)
-[typs,nams]=typename();
-if typs($)<>1024|nams($)<>'mytype'  then pause,end
-typename('',1024)
 
-//global, isglobal, intglobal  --> global.tst
diff --git a/scilab/modules/core/tests/unit_tests/mtlb_mode.dia.ref b/scilab/modules/core/tests/unit_tests/mtlb_mode.dia.ref
new file mode 100644 (file)
index 0000000..2a45328
--- /dev/null
@@ -0,0 +1,12 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//mtlb_mode
+mtlb_mode(%t);
+if ~mtlb_mode() then bugmes();quit;end
+if []+1<>[] then bugmes();quit;end
+mtlb_mode(%f);
+if mtlb_mode() then bugmes();quit;end
diff --git a/scilab/modules/core/tests/unit_tests/mtlb_mode.tst b/scilab/modules/core/tests/unit_tests/mtlb_mode.tst
new file mode 100644 (file)
index 0000000..c961b7b
--- /dev/null
@@ -0,0 +1,14 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+//mtlb_mode
+
+mtlb_mode(%t);
+if ~mtlb_mode() then pause,end
+if []+1<>[] then pause,end
+mtlb_mode(%f);
+if mtlb_mode() then pause,end
index 0e0c1a3..725b2fe 100644 (file)
@@ -4,8 +4,8 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-fptr_cos = funptr('cos');
-newfun('cosAlias',fptr_cos);
-if cos(2*%pi) <> cosAlias(2*%pi) then bugmes();quit;end
-if clearfun('cosAlias') <> %T  then bugmes();quit;end
-if execstr('cosAlias(2*%pi)','errcatch') <> 4   then bugmes();quit;end
+fptr_cos = funptr("cos");
+newfun("cosAlias",fptr_cos);
+if cos(2*%pi) <> cosAlias(2*%pi)                then bugmes();quit;end
+if clearfun("cosAlias") <> %T                   then bugmes();quit;end
+if execstr("cosAlias(2*%pi)","errcatch") ==  0  then bugmes();quit;end
index 1651075..adf9dc0 100644 (file)
@@ -5,9 +5,9 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
-fptr_cos = funptr('cos');
-newfun('cosAlias',fptr_cos);
+fptr_cos = funptr("cos");
+newfun("cosAlias",fptr_cos);
 
-if cos(2*%pi) <> cosAlias(2*%pi) then pause,end
-if clearfun('cosAlias') <> %T  then pause,end
-if execstr('cosAlias(2*%pi)','errcatch') <> 4   then pause,end
+if cos(2*%pi) <> cosAlias(2*%pi)                then pause,end
+if clearfun("cosAlias") <> %T                   then pause,end
+if execstr("cosAlias(2*%pi)","errcatch") ==  0  then pause,end
diff --git a/scilab/modules/core/tests/unit_tests/not_compiled_functions.dia.ref b/scilab/modules/core/tests/unit_tests/not_compiled_functions.dia.ref
new file mode 100644 (file)
index 0000000..90f75c6
--- /dev/null
@@ -0,0 +1,22 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//non compiled functions
+deff("y=foo(a)","x=a+1000,stacksize(x),y=stacksize();y=y(1)","n");
+a = stacksize();
+a = a(1);
+y = foo(a);
+if y<>a+1000 then bugmes();quit;end
+a = y;
+deff("y=toto()","a=stacksize();a=a(1);y=foo(a)","n");
+y = toto();
+if y<>a+1000 then bugmes();quit;end
+a=y;
+ y  =
+    5003000.  
+if y<>a+1000 then bugmes();quit;end
+a=y;
diff --git a/scilab/modules/core/tests/unit_tests/not_compiled_functions.tst b/scilab/modules/core/tests/unit_tests/not_compiled_functions.tst
new file mode 100644 (file)
index 0000000..23bc5cd
--- /dev/null
@@ -0,0 +1,26 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+//non compiled functions
+
+deff("y=foo(a)","x=a+1000,stacksize(x),y=stacksize();y=y(1)","n");
+
+a = stacksize();
+a = a(1);
+y = foo(a);
+
+if y<>a+1000 then pause,end
+
+a = y;
+deff("y=toto()","a=stacksize();a=a(1);y=foo(a)","n");
+y = toto();
+
+if y<>a+1000 then pause,end
+a=y;
+exec(toto);
+if y<>a+1000 then pause,end
+a=y;
diff --git a/scilab/modules/core/tests/unit_tests/predef.tst b/scilab/modules/core/tests/unit_tests/predef.tst
new file mode 100644 (file)
index 0000000..1215f1d
--- /dev/null
@@ -0,0 +1,27 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+//predef
+
+N = predef();
+a = 1;
+predef("all");
+errcatch(13,'continue','nomessage')
+clear a
+if iserror()<>1 then pause,end
+
+errclear();
+errcatch()
+predef('clear');
+errcatch(13,'continue','nomessage')
+clear a
+if iserror()<>0 then pause,end
+       errclear();
+       errcatch()
+       predef(N);
+       
+if predef()<>N then pause,end
diff --git a/scilab/modules/core/tests/unit_tests/sciargs.dia.ref b/scilab/modules/core/tests/unit_tests/sciargs.dia.ref
new file mode 100644 (file)
index 0000000..8673532
--- /dev/null
@@ -0,0 +1,9 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//sciargs
+args=sciargs();
+if type(args)<>10 then bugmes();quit;end
diff --git a/scilab/modules/core/tests/unit_tests/sciargs.tst b/scilab/modules/core/tests/unit_tests/sciargs.tst
new file mode 100644 (file)
index 0000000..a082e91
--- /dev/null
@@ -0,0 +1,11 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+//sciargs
+
+args=sciargs();
+if type(args)<>10 then pause,end
diff --git a/scilab/modules/core/tests/unit_tests/stacksize.dia.ref b/scilab/modules/core/tests/unit_tests/stacksize.dia.ref
new file mode 100644 (file)
index 0000000..a94da46
--- /dev/null
@@ -0,0 +1,12 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// stacksize
+a = stacksize();
+a = a(1);
+stacksize(a+1000);
+y =stacksize();
+if y(1)<>a+1000 then bugmes();quit;end
diff --git a/scilab/modules/core/tests/unit_tests/stacksize.tst b/scilab/modules/core/tests/unit_tests/stacksize.tst
new file mode 100644 (file)
index 0000000..c01af05
--- /dev/null
@@ -0,0 +1,15 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// stacksize
+
+a = stacksize();
+a = a(1);
+stacksize(a+1000);
+y =stacksize();
+
+if y(1)<>a+1000 then pause,end
diff --git a/scilab/modules/core/tests/unit_tests/timer.dia.ref b/scilab/modules/core/tests/unit_tests/timer.dia.ref
new file mode 100644 (file)
index 0000000..547b388
--- /dev/null
@@ -0,0 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// timer
+timer();
+for i=1:100000,end;
+if timer()<=0 then bugmes();quit;end
diff --git a/scilab/modules/core/tests/unit_tests/timer.tst b/scilab/modules/core/tests/unit_tests/timer.tst
new file mode 100644 (file)
index 0000000..64a0f9d
--- /dev/null
@@ -0,0 +1,12 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// timer
+
+timer();
+for i=1:100000,end;
+if timer()<=0 then pause,end
diff --git a/scilab/modules/core/tests/unit_tests/type.dia.ref b/scilab/modules/core/tests/unit_tests/type.dia.ref
new file mode 100644 (file)
index 0000000..b8b8c03
--- /dev/null
@@ -0,0 +1,9 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//type
+if type(1)<>1 then bugmes();quit;end
+a=%s;if type(a)<>2  then bugmes();quit;end
diff --git a/scilab/modules/core/tests/unit_tests/type.tst b/scilab/modules/core/tests/unit_tests/type.tst
new file mode 100644 (file)
index 0000000..8447efd
--- /dev/null
@@ -0,0 +1,11 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+//type
+
+if type(1)<>1 then pause,end
+a=%s;if type(a)<>2  then pause,end
diff --git a/scilab/modules/core/tests/unit_tests/typename.dia.ref b/scilab/modules/core/tests/unit_tests/typename.dia.ref
new file mode 100644 (file)
index 0000000..33bb956
--- /dev/null
@@ -0,0 +1,14 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//typename
+[typs,nams]=typename();
+if or(typs<>[1;2;4;5;6;7;8;9;10;11;13;14;15;16;17;128;129;130]) then bugmes();quit;end
+if or(nams<>["s";"p";"b";"sp";"spb";"msp";"i";"h";"c";"m";"mc";"f";"l";"tl";"ml";"ptr";"ip";"fptr"])  then bugmes();quit;end
+typename("mytype",1024);
+[typs,nams]=typename();
+if typs($)<>1024|nams($)<>"mytype"  then bugmes();quit;end
+typename("",1024);
diff --git a/scilab/modules/core/tests/unit_tests/typename.tst b/scilab/modules/core/tests/unit_tests/typename.tst
new file mode 100644 (file)
index 0000000..84cfbc7
--- /dev/null
@@ -0,0 +1,16 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+//typename
+
+[typs,nams]=typename();
+if or(typs<>[1;2;4;5;6;7;8;9;10;11;13;14;15;16;17;128;129;130]) then pause,end
+if or(nams<>["s";"p";"b";"sp";"spb";"msp";"i";"h";"c";"m";"mc";"f";"l";"tl";"ml";"ptr";"ip";"fptr"])  then pause,end
+typename("mytype",1024);
+[typs,nams]=typename();
+if typs($)<>1024|nams($)<>"mytype"  then pause,end
+typename("",1024);
diff --git a/scilab/modules/core/tests/unit_tests/where.dia.ref b/scilab/modules/core/tests/unit_tests/where.dia.ref
new file mode 100644 (file)
index 0000000..419615f
--- /dev/null
@@ -0,0 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//where
+deff("[a,b]=foo()","[a,b]=where()")
+[a,b]=foo();
+if a(1)<>1|b(1)<>"foo" then bugmes();quit;end
diff --git a/scilab/modules/core/tests/unit_tests/where.tst b/scilab/modules/core/tests/unit_tests/where.tst
new file mode 100644 (file)
index 0000000..60b8182
--- /dev/null
@@ -0,0 +1,11 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+//where
+deff("[a,b]=foo()","[a,b]=where()")
+[a,b]=foo();
+if a(1)<>1|b(1)<>"foo" then pause,end
diff --git a/scilab/modules/core/tests/unit_tests/whereis.dia.ref b/scilab/modules/core/tests/unit_tests/whereis.dia.ref
new file mode 100644 (file)
index 0000000..51293c6
--- /dev/null
@@ -0,0 +1,9 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//whereis
+if whereis("sci2exp") <> "stringlib" then bugmes();quit;end
+if whereis('aaa')     <> []  then bugmes();quit;end
diff --git a/scilab/modules/core/tests/unit_tests/whereis.tst b/scilab/modules/core/tests/unit_tests/whereis.tst
new file mode 100644 (file)
index 0000000..0432971
--- /dev/null
@@ -0,0 +1,11 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+//whereis
+
+if whereis("sci2exp") <> "stringlib" then pause,end
+if whereis('aaa')     <> []  then pause,end
diff --git a/scilab/modules/core/tests/unit_tests/who.dia.ref b/scilab/modules/core/tests/unit_tests/who.dia.ref
new file mode 100644 (file)
index 0000000..c21bb9b
--- /dev/null
@@ -0,0 +1,11 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//who
+a    = 33;
+bbb  = -1;
+vars = who("get");
+if or(vars(1:2)<>["bbb";"a"]) then bugmes();quit;end
diff --git a/scilab/modules/core/tests/unit_tests/who.tst b/scilab/modules/core/tests/unit_tests/who.tst
new file mode 100644 (file)
index 0000000..51cc29b
--- /dev/null
@@ -0,0 +1,13 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+//who
+
+a    = 33;
+bbb  = -1;
+vars = who("get");
+if or(vars(1:2)<>["bbb";"a"]) then pause,end