summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorPierre Marechal <pierre.marechal@scilab.org>2007-11-22 15:34:02 +0000
committerPierre Marechal <pierre.marechal@scilab.org>2007-11-22 15:34:02 +0000
commit2250947c93b29fa133dfbbd1760b7bfc7d18b49e (patch)
treefb5c8c1fc2cef8399e9453a17c02d932b958aba1 /tests
parentb1797d978aa919fbfd57f44e669cc153c1df40b3 (diff)
downloadscilab-2250947c93b29fa133dfbbd1760b7bfc7d18b49e.zip
scilab-2250947c93b29fa133dfbbd1760b7bfc7d18b49e.tar.gz
Remove not needed lines
Diffstat (limited to 'tests')
-rw-r--r--tests/nonRegression/bug1180.sci5
-rw-r--r--tests/nonRegression/bug1183.sci5
-rw-r--r--tests/nonRegression/bug1198.sci5
-rw-r--r--tests/nonRegression/bug1200.sci5
-rw-r--r--tests/nonRegression/bug1224.sci5
-rw-r--r--tests/nonRegression/bug1227.sci15
-rw-r--r--tests/nonRegression/bug1239.sci7
-rw-r--r--tests/nonRegression/bug1249.sci7
-rw-r--r--tests/nonRegression/bug1262.sci7
-rw-r--r--tests/nonRegression/bug1321.sci8
-rw-r--r--tests/nonRegression/bug1448.sci8
-rw-r--r--tests/nonRegression/bug1468.sci6
-rw-r--r--tests/nonRegression/bug1469.sci6
-rw-r--r--tests/nonRegression/bug1491.sci7
-rw-r--r--tests/nonRegression/bug1505.sci5
-rw-r--r--tests/nonRegression/bug1506.sci7
-rw-r--r--tests/nonRegression/bug1560.sci8
-rw-r--r--tests/nonRegression/bug1566.sci7
-rw-r--r--tests/nonRegression/bug1568.sci7
-rw-r--r--tests/nonRegression/bug1586.sci7
-rw-r--r--tests/nonRegression/bug1587.sci5
-rw-r--r--tests/nonRegression/bug1602.sci7
-rw-r--r--tests/nonRegression/bug1619.sci10
-rw-r--r--tests/nonRegression/bug1620.sci7
-rw-r--r--tests/nonRegression/bug1625.sci7
-rw-r--r--tests/nonRegression/bug1629.sci6
-rw-r--r--tests/nonRegression/bug1636.sci8
-rw-r--r--tests/nonRegression/bug1662.sci5
-rw-r--r--tests/nonRegression/bug1682.sci7
-rw-r--r--tests/nonRegression/bug1684.sci3
-rw-r--r--tests/nonRegression/bug1693.sci8
-rw-r--r--tests/nonRegression/bug1711.sci7
-rw-r--r--tests/nonRegression/bug1712.sci7
-rw-r--r--tests/nonRegression/bug1720.sci8
-rw-r--r--tests/nonRegression/bug1725.sci6
-rw-r--r--tests/nonRegression/bug1732.sci8
-rw-r--r--tests/nonRegression/bug1736.sci6
-rw-r--r--tests/nonRegression/bug1742.sci4
-rw-r--r--tests/nonRegression/bug1768.sci6
-rw-r--r--tests/nonRegression/bug1772.sci3
-rw-r--r--tests/nonRegression/bug1784.sci5
-rw-r--r--tests/nonRegression/bug1786.sci7
-rw-r--r--tests/nonRegression/bug1787.sci7
-rw-r--r--tests/nonRegression/bug1794.sci5
-rw-r--r--tests/nonRegression/bug1802.sci4
-rw-r--r--tests/nonRegression/bug1812.sci8
-rw-r--r--tests/nonRegression/bug1859.sci7
-rw-r--r--tests/nonRegression/bug1867.sci7
-rw-r--r--tests/nonRegression/bug1902.sci3
-rw-r--r--tests/nonRegression/bug1933.sci7
-rw-r--r--tests/nonRegression/bug1955.sci6
-rw-r--r--tests/nonRegression/bug1956.sci4
-rw-r--r--tests/nonRegression/bug1957.sci5
-rw-r--r--tests/nonRegression/bug1971.sci9
-rw-r--r--tests/nonRegression/bug1977.sci7
-rw-r--r--tests/nonRegression/bug1979.sci9
-rw-r--r--tests/nonRegression/bug1991.sci7
-rw-r--r--tests/nonRegression/bug2014.sci8
-rw-r--r--tests/nonRegression/bug2022.sci8
-rw-r--r--tests/nonRegression/bug2038.sci7
-rw-r--r--tests/nonRegression/bug2039.sci7
-rw-r--r--tests/nonRegression/bug2045.sci7
-rw-r--r--tests/nonRegression/bug205.sci7
-rw-r--r--tests/nonRegression/bug2052.sci5
-rw-r--r--tests/nonRegression/bug2067.sci6
-rw-r--r--tests/nonRegression/bug2092.sci7
-rw-r--r--tests/nonRegression/bug2093.sci7
-rw-r--r--tests/nonRegression/bug2098.sci7
-rw-r--r--tests/nonRegression/bug2137.sci9
-rw-r--r--tests/nonRegression/bug2149.sci8
-rw-r--r--tests/nonRegression/bug2162.sci7
-rw-r--r--tests/nonRegression/bug2181.sci7
-rw-r--r--tests/nonRegression/bug2263.sci4
-rw-r--r--tests/nonRegression/bug2264.sci5
-rw-r--r--tests/nonRegression/bug2268.sci6
-rw-r--r--tests/nonRegression/bug2270.sci6
-rw-r--r--tests/nonRegression/bug2277.sci8
-rw-r--r--tests/nonRegression/bug2284.sci5
-rw-r--r--tests/nonRegression/bug2322.sci5
-rw-r--r--tests/nonRegression/bug2330.sci6
-rw-r--r--tests/nonRegression/bug2333.sci5
-rw-r--r--tests/nonRegression/bug2341.sci9
-rw-r--r--tests/nonRegression/bug2344.sci54
-rw-r--r--tests/nonRegression/bug2362.sci9
-rw-r--r--tests/nonRegression/bug2396.sci5
-rw-r--r--tests/nonRegression/bug2399.sci7
-rw-r--r--tests/nonRegression/bug2407.sci7
-rw-r--r--tests/nonRegression/bug2410.sci7
-rw-r--r--tests/nonRegression/bug2414.sci7
-rw-r--r--tests/nonRegression/bug2420.sci4
-rw-r--r--tests/nonRegression/bug2421.sci4
-rw-r--r--tests/nonRegression/bug2428.sci8
-rw-r--r--tests/nonRegression/bug2429.sci6
-rw-r--r--tests/nonRegression/bug2430.sci3
-rw-r--r--tests/nonRegression/bug2435.sci3
-rw-r--r--tests/nonRegression/bug2453.sci4
-rw-r--r--tests/nonRegression/bug2467.sci3
-rw-r--r--tests/nonRegression/bug2616.sci4
-rw-r--r--tests/nonRegression/bug461.sci6
-rw-r--r--tests/nonRegression/bug464.sci14
-rw-r--r--tests/nonRegression/bug467.sci26
-rw-r--r--tests/nonRegression/bug470.sci28
-rw-r--r--tests/nonRegression/bug474.sci16
-rw-r--r--tests/nonRegression/bug475.sci16
-rw-r--r--tests/nonRegression/bug476.sci14
-rw-r--r--tests/nonRegression/bug477.sci27
-rw-r--r--tests/nonRegression/bug480.sci15
-rw-r--r--tests/nonRegression/bug487.sci14
-rw-r--r--tests/nonRegression/bug488.sci5
-rw-r--r--tests/nonRegression/bug498.sci10
-rw-r--r--tests/nonRegression/bug502.sci4
-rw-r--r--tests/nonRegression/bug525.sci11
-rw-r--r--tests/nonRegression/bug528.sci10
-rw-r--r--tests/nonRegression/bug534.sci12
-rw-r--r--tests/nonRegression/bug539.sci4
-rw-r--r--tests/nonRegression/bug542.sci18
-rw-r--r--tests/nonRegression/bug545.sci4
-rw-r--r--tests/nonRegression/bug546.sci16
-rw-r--r--tests/nonRegression/bug549.sci38
-rw-r--r--tests/nonRegression/bug55.sci13
-rw-r--r--tests/nonRegression/bug553.sci22
-rw-r--r--tests/nonRegression/bug557.sci9
-rw-r--r--tests/nonRegression/bug558.sci6
-rw-r--r--tests/nonRegression/bug562.sci8
-rw-r--r--tests/nonRegression/bug564.sci17
-rw-r--r--tests/nonRegression/bug566.sci25
-rw-r--r--tests/nonRegression/bug567.sci7
-rw-r--r--tests/nonRegression/bug568.sci18
-rw-r--r--tests/nonRegression/bug569.sci5
-rw-r--r--tests/nonRegression/bug570.sci19
-rw-r--r--tests/nonRegression/bug573.sci16
-rw-r--r--tests/nonRegression/bug575.sci19
-rw-r--r--tests/nonRegression/bug576.sci9
-rw-r--r--tests/nonRegression/bug577.sci17
-rw-r--r--tests/nonRegression/bug584.sci2
-rw-r--r--tests/nonRegression/bug600.sci6
-rw-r--r--tests/nonRegression/bug604.sci13
-rw-r--r--tests/nonRegression/bug608.sci27
-rw-r--r--tests/nonRegression/bug610.sci22
-rw-r--r--tests/nonRegression/bug612.sci10
-rw-r--r--tests/nonRegression/bug614.sci4
-rw-r--r--tests/nonRegression/bug623.sci2
-rw-r--r--tests/nonRegression/bug625.sci3
-rw-r--r--tests/nonRegression/bug629.sci15
-rw-r--r--tests/nonRegression/bug631.sci3
-rw-r--r--tests/nonRegression/bug632.sci7
-rw-r--r--tests/nonRegression/bug656.sci9
-rw-r--r--tests/nonRegression/bug657.sci9
-rw-r--r--tests/nonRegression/bug661.sci4
-rw-r--r--tests/nonRegression/bug670.sci4
-rw-r--r--tests/nonRegression/bug681.sci6
-rw-r--r--tests/nonRegression/bug682.sci7
-rw-r--r--tests/nonRegression/bug683.sci7
-rw-r--r--tests/nonRegression/bug699.sci7
-rw-r--r--tests/nonRegression/bug71.sci15
-rw-r--r--tests/nonRegression/bug731.sci7
-rw-r--r--tests/nonRegression/bug743.sci7
-rw-r--r--tests/nonRegression/bug750.sci7
-rw-r--r--tests/nonRegression/bug768.sci9
-rw-r--r--tests/nonRegression/bug790.sci7
-rw-r--r--tests/nonRegression/bug793.sci8
-rw-r--r--tests/nonRegression/bug797.sci5
-rw-r--r--tests/nonRegression/bug799.sci7
-rw-r--r--tests/nonRegression/bug800.sci7
-rw-r--r--tests/nonRegression/bug801.sci7
-rw-r--r--tests/nonRegression/bug853.sci7
-rw-r--r--tests/nonRegression/bug857.sci7
-rw-r--r--tests/nonRegression/bug859.sci6
-rw-r--r--tests/nonRegression/bug862.sci7
-rw-r--r--tests/nonRegression/bug871.sci6
-rw-r--r--tests/nonRegression/bug883.sci6
-rw-r--r--tests/nonRegression/bug924.sci7
-rw-r--r--tests/nonRegression/bug925.sci7
-rw-r--r--tests/nonRegression/bug942.sci7
-rw-r--r--tests/nonRegression/bug943.sci7
-rw-r--r--tests/nonRegression/bug945.sci7
-rw-r--r--tests/nonRegression/bug946.sci7
-rw-r--r--tests/nonRegression/bug950.sci5
-rw-r--r--tests/nonRegression/bug967.sci5
-rw-r--r--tests/nonRegression/bug973.sci7
-rw-r--r--tests/nonRegression/bug979.sci7
181 files changed, 152 insertions, 1397 deletions
diff --git a/tests/nonRegression/bug1180.sci b/tests/nonRegression/bug1180.sci
index e1507d9..47ab94a 100644
--- a/tests/nonRegression/bug1180.sci
+++ b/tests/nonRegression/bug1180.sci
@@ -16,15 +16,10 @@
16// if (da-db) > 0 then b=b*z^(da-db); end 16// if (da-db) > 0 then b=b*z^(da-db); end
17// if (db-da) > 0 then a=a*z^(db-da); end 17// if (db-da) > 0 then a=a*z^(db-da); end
18 18
19
20// Non-regression test file for bug 1180
21// Pierre MARECHAL - Scilab Project 19// Pierre MARECHAL - Scilab Project
22// Copyright INRIA 20// Copyright INRIA
23// 1er juin 2005 21// 1er juin 2005
24 22
25mode(-1)
26clear
27
28x = zeros(1:10); 23x = zeros(1:10);
29x(5) = 1; 24x(5) = 1;
30b = [ 0 1 0 ] 25b = [ 0 1 0 ]
diff --git a/tests/nonRegression/bug1183.sci b/tests/nonRegression/bug1183.sci
index 9060cec..b98c8c5 100644
--- a/tests/nonRegression/bug1183.sci
+++ b/tests/nonRegression/bug1183.sci
@@ -6,15 +6,10 @@
6// <-- Short Description --> 6// <-- Short Description -->
7// @? 7// @?
8 8
9
10// Non-regression test file for bug 1183
11// Pierre MARECHAL - Scilab Project 9// Pierre MARECHAL - Scilab Project
12// Copyright INRIA 10// Copyright INRIA
13// 1er juin 2005 11// 1er juin 2005
14 12
15mode(-1)
16clear
17
18A =1@1 13A =1@1
19B=lasterror() 14B=lasterror()
20 15
diff --git a/tests/nonRegression/bug1198.sci b/tests/nonRegression/bug1198.sci
index e731874..7b3b3e9 100644
--- a/tests/nonRegression/bug1198.sci
+++ b/tests/nonRegression/bug1198.sci
@@ -9,15 +9,10 @@
9// 9//
10// The program crashes instead of reporting a sytax error. 10// The program crashes instead of reporting a sytax error.
11 11
12
13// Non-regression test file for bug 1198
14// Pierre MARECHAL - Scilab Project 12// Pierre MARECHAL - Scilab Project
15// Copyright INRIA 13// Copyright INRIA
16// 1er juin 2005 14// 1er juin 2005
17 15
18mode(-1)
19clear
20
21G = syslin('c', [1 0 ; 0 1], [ 1; 1], [1 1]); 16G = syslin('c', [1 0 ; 0 1], [ 1; 1], [1 1]);
22minss(G)("A") 17minss(G)("A")
23B=lasterror() 18B=lasterror()
diff --git a/tests/nonRegression/bug1200.sci b/tests/nonRegression/bug1200.sci
index c776748..4cd8e2f 100644
--- a/tests/nonRegression/bug1200.sci
+++ b/tests/nonRegression/bug1200.sci
@@ -11,15 +11,10 @@
11// format("v",7) => 1.E-3 11// format("v",7) => 1.E-3
12// format("v",8) => 0.001 12// format("v",8) => 0.001
13 13
14
15// Non-regression test file for bug 1200
16// Pierre MARECHAL - Scilab Project 14// Pierre MARECHAL - Scilab Project
17// Copyright INRIA 15// Copyright INRIA
18// 1er juin 2005 16// 1er juin 2005
19 17
20mode(-1);
21clear;
22
23J=0.001; 18J=0.001;
24format("v",7); 19format("v",7);
25diary(TMPDIR+"/bug1200.dia"); 20diary(TMPDIR+"/bug1200.dia");
diff --git a/tests/nonRegression/bug1224.sci b/tests/nonRegression/bug1224.sci
index 322c4b3..0aa460b 100644
--- a/tests/nonRegression/bug1224.sci
+++ b/tests/nonRegression/bug1224.sci
@@ -10,15 +10,10 @@
10// A*A //This is correct 10// A*A //This is correct
11// A*A*A //This is wrong 11// A*A*A //This is wrong
12 12
13
14// Non-regression test file for bug 1224
15// Pierre MARECHAL - Scilab Project 13// Pierre MARECHAL - Scilab Project
16// Copyright INRIA 14// Copyright INRIA
17// 1er juin 2005 15// 1er juin 2005
18 16
19mode(-1);
20clear;
21
22inf=%inf; 17inf=%inf;
23A=diag([-inf,inf]); 18A=diag([-inf,inf]);
24B = A*A*A; 19B = A*A*A;
diff --git a/tests/nonRegression/bug1227.sci b/tests/nonRegression/bug1227.sci
index f711fe0..1c05b4b 100644
--- a/tests/nonRegression/bug1227.sci
+++ b/tests/nonRegression/bug1227.sci
@@ -6,20 +6,17 @@
6// <-- Short Description --> 6// <-- Short Description -->
7// -->a=1;savematfile('file','a') 7// -->a=1;savematfile('file','a')
8// WARNING:Option -v6 added 8// WARNING:Option -v6 added
9// !--error 246 9// !--error 246
10// function not defined for given argument type(s) 10// function not defined for given argument type(s)
11// Check arguments or define function %s_strindex 11// Check arguments or define function %s_strindex
12// for overloading 12// for overloading
13// at line 287 of function savematfile called by : 13// at line 287 of function savematfile called by :
14// savematfile('totoo','a') 14// savematfile('totoo','a')
15 15
16
17//***********************************************************************************************************************
18// File : bug 1227 16// File : bug 1227
19// Author : Pierre MARECHAL 17// Author : Pierre MARECHAL
20// Last modified : 2 Mar 2005 18// Last modified : 2 Mar 2005
21//*********************************************************************************************************************** 19
22
23a = 123456789; 20a = 123456789;
24savematfile(TMPDIR+'/file_1232.mat','a'); 21savematfile(TMPDIR+'/file_1232.mat','a');
25clear a 22clear a
@@ -29,4 +26,4 @@ if( a == 123456789 ) then
29 affich_result(%T, 1227) 26 affich_result(%T, 1227)
30else 27else
31 affich_result(%F, 1227) 28 affich_result(%F, 1227)
32end \ No newline at end of file 29end
diff --git a/tests/nonRegression/bug1239.sci b/tests/nonRegression/bug1239.sci
index 27f3211..0ffca1d 100644
--- a/tests/nonRegression/bug1239.sci
+++ b/tests/nonRegression/bug1239.sci
@@ -24,19 +24,12 @@
24// 24//
25// Bruno 25// Bruno
26 26
27
28// Non-regression test file for bug 1239
29// Author : Scilab Project - Pierre MARECHAL 27// Author : Scilab Project - Pierre MARECHAL
30// Copyright INRIA 28// Copyright INRIA
31// Date : 21 Mar 2005 29// Date : 21 Mar 2005
32 30
33mode(-1);
34clear;
35
36if( (nanmax([%nan, -1]) <> -1) | (nanmax([%nan, 1]) <> 1) | (nanmin([%nan, -1]) <> -1) | (nanmin([%nan, 1]) <> 1) ) then 31if( (nanmax([%nan, -1]) <> -1) | (nanmax([%nan, 1]) <> 1) | (nanmin([%nan, -1]) <> -1) | (nanmin([%nan, 1]) <> 1) ) then
37 affich_result(%F,1239); 32 affich_result(%F,1239);
38else 33else
39 affich_result(%T,1239); 34 affich_result(%T,1239);
40end 35end
41
42clear
diff --git a/tests/nonRegression/bug1249.sci b/tests/nonRegression/bug1249.sci
index ce57a85..170b96e2 100644
--- a/tests/nonRegression/bug1249.sci
+++ b/tests/nonRegression/bug1249.sci
@@ -26,15 +26,10 @@
26// ! 28. 29. 30. 31. 0. 0. 0. ! 26// ! 28. 29. 30. 31. 0. 0. 0. !
27// ... 27// ...
28 28
29
30// Non-regression test file for bug 1249
31// Author : Scilab Project - Pierre MARECHAL 29// Author : Scilab Project - Pierre MARECHAL
32// Copyright INRIA 30// Copyright INRIA
33// Date : 21 Mar 2005 31// Date : 21 Mar 2005
34 32
35mode(-1);
36clear;
37
38M = calendar(2005,3); 33M = calendar(2005,3);
39 34
40M1ref = ['Mar 2005']; 35M1ref = ['Mar 2005'];
@@ -48,5 +43,3 @@ if or((Mref<>M) <> [%F,%F,%F]) then
48else 43else
49 affich_result(%T,1249); 44 affich_result(%T,1249);
50end 45end
51
52clear \ No newline at end of file
diff --git a/tests/nonRegression/bug1262.sci b/tests/nonRegression/bug1262.sci
index 39face3..7e9d83e 100644
--- a/tests/nonRegression/bug1262.sci
+++ b/tests/nonRegression/bug1262.sci
@@ -15,8 +15,6 @@
15// 15//
16// Apply mfile2sci to the Matlab script given below. 16// Apply mfile2sci to the Matlab script given below.
17 17
18
19// Non-regression test file for bug 1262
20// Copyright INRIA 18// Copyright INRIA
21// Scilab Project - F.Belahcene 19// Scilab Project - F.Belahcene
22 20
@@ -24,9 +22,6 @@
24// Scilab Project 22// Scilab Project
25// 20 mai 2005 23// 20 mai 2005
26 24
27mode(-1);
28clear;
29
30MFILECONTENTS=["A = rand(3,3);" 25MFILECONTENTS=["A = rand(3,3);"
31 "" 26 ""
32 "for ii=1:3; for jj=1:3; disp(A(ii,jj)); end; end" 27 "for ii=1:3; for jj=1:3; disp(A(ii,jj)); end; end"
@@ -89,5 +84,3 @@ if or(SCIFILECONTENTSREF<>SCIFILECONTENTS) then
89end 84end
90 85
91affich_result(correct,1262); 86affich_result(correct,1262);
92
93clear
diff --git a/tests/nonRegression/bug1321.sci b/tests/nonRegression/bug1321.sci
index 5033954..5279319 100644
--- a/tests/nonRegression/bug1321.sci
+++ b/tests/nonRegression/bug1321.sci
@@ -7,14 +7,9 @@
7// Function findobj does not work when property value contains 7// Function findobj does not work when property value contains
8// capital letters and is case sensitive for property name. 8// capital letters and is case sensitive for property name.
9 9
10
11// Non-regression test file for bug 1321
12// Copyright INRIA 10// Copyright INRIA
13// Scilab Project - V. Couvert 11// Scilab Project - V. Couvert
14 12
15mode(-1);
16clear all;
17
18h=figure(1); 13h=figure(1);
19 14
20t = uicontrol( h, "style","text", ... 15t = uicontrol( h, "style","text", ...
@@ -31,6 +26,3 @@ correct = findobj("tag","Alabel")==t & ...
31close(1); 26close(1);
32 27
33affich_result(correct,1321); 28affich_result(correct,1321);
34
35clear all
36
diff --git a/tests/nonRegression/bug1448.sci b/tests/nonRegression/bug1448.sci
index 11a71a0..6ee7896 100644
--- a/tests/nonRegression/bug1448.sci
+++ b/tests/nonRegression/bug1448.sci
@@ -12,16 +12,11 @@
12// 12//
13// Jacques-Deric 13// Jacques-Deric
14 14
15
16// Non-regression test file for bug 1448
17// Copyright INRIA 15// Copyright INRIA
18// Scilab Project - Jean-Baptiste Silvy 16// Scilab Project - Jean-Baptiste Silvy
19// Copyright INRIA 2006 17// Copyright INRIA 2006
20// Date : October 20 2006 18// Date : October 20 2006
21 19
22mode(-1);
23clear;
24
25point1 = [1 ; 0]; 20point1 = [1 ; 0];
26point2 = rotate (point1, %pi/2), 21point2 = rotate (point1, %pi/2),
27 22
@@ -31,6 +26,3 @@ if ( norm( point2 - [0;1] ) < 10e-10 ) then
31else 26else
32 affich_result(%F,1448); 27 affich_result(%F,1448);
33end 28end
34
35clear;
36
diff --git a/tests/nonRegression/bug1468.sci b/tests/nonRegression/bug1468.sci
index e75e7d3..568e67a 100644
--- a/tests/nonRegression/bug1468.sci
+++ b/tests/nonRegression/bug1468.sci
@@ -11,10 +11,6 @@
11// Copyright INRIA 11// Copyright INRIA
12// Scilab Project - F. Belahcene 12// Scilab Project - F. Belahcene
13 13
14
15mode(-1);
16clear;
17
18MFILECONTENTS=["beep"; 14MFILECONTENTS=["beep";
19 "beep on"; 15 "beep on";
20 "beep off"; 16 "beep off";
@@ -45,5 +41,3 @@ if or(SCIFILECONTENTSREF<>SCIFILECONTENTS) then
45else 41else
46 affich_result(%T,924); 42 affich_result(%T,924);
47end 43end
48
49clear \ No newline at end of file
diff --git a/tests/nonRegression/bug1469.sci b/tests/nonRegression/bug1469.sci
index 7bb15ac..fb2bb83 100644
--- a/tests/nonRegression/bug1469.sci
+++ b/tests/nonRegression/bug1469.sci
@@ -26,14 +26,11 @@
26// Stop after row 3 in function foo1 : 26// Stop after row 3 in function foo1 :
27// ... 27// ...
28 28
29
30// Non-regression test file for bug 1469
31// Copyright INRIA 29// Copyright INRIA
32// Scilab Project - Serge Steer 30// Scilab Project - Serge Steer
33// Copyright INRIA 2006 31// Copyright INRIA 2006
34// Date : 23 novembre 2006 32// Date : 23 novembre 2006
35 33
36mode(-1)
37//test of line numbering in functions, handling initial comments 34//test of line numbering in functions, handling initial comments
38 35
39function foo,endfunction 36function foo,endfunction
@@ -205,8 +202,5 @@ L=macr2lst(foo); //getf ignores declaration line comments
205R22=L(4)(1)=='15'&L(5)(1)=='31'&L(6)(1)=='15'&size(L)==11 202R22=L(4)(1)=='15'&L(5)(1)=='31'&L(6)(1)=='15'&size(L)==11
206clear foo; 203clear foo;
207 204
208
209
210
211R=[R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15,R16,R17,R18,R19,R20,R21,R22] 205R=[R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15,R16,R17,R18,R19,R20,R21,R22]
212affich_result(and(R),1469); 206affich_result(and(R),1469);
diff --git a/tests/nonRegression/bug1491.sci b/tests/nonRegression/bug1491.sci
index 487aa6f..b469063 100644
--- a/tests/nonRegression/bug1491.sci
+++ b/tests/nonRegression/bug1491.sci
@@ -11,16 +11,11 @@
11// 11//
12// Jacques-Deric 12// Jacques-Deric
13 13
14
15// Non-regression test file for bug 1491
16// Copyright INRIA 14// Copyright INRIA
17// Scilab Project - Jean-Baptiste Silvy 15// Scilab Project - Jean-Baptiste Silvy
18// Copyright INRIA 2006 16// Copyright INRIA 2006
19// Date : 10/02/2006 17// Date : 10/02/2006
20 18
21mode(-1);
22clear ;
23
24clipBox = [0.1,0.9,0.8,0.8] ; 19clipBox = [0.1,0.9,0.8,0.8] ;
25 20
26a = gca() ; 21a = gca() ;
@@ -48,5 +43,3 @@ if ( checkR1 & checkR2 & checkP1 ) then
48else 43else
49 affich_result(%F,1491); 44 affich_result(%F,1491);
50end 45end
51
52clear ;
diff --git a/tests/nonRegression/bug1505.sci b/tests/nonRegression/bug1505.sci
index 88f66c1..dbdb6fb 100644
--- a/tests/nonRegression/bug1505.sci
+++ b/tests/nonRegression/bug1505.sci
@@ -23,9 +23,6 @@
23// Copyright INRIA 2005 23// Copyright INRIA 2005
24// Date : 28 décembre 2005 24// Date : 28 décembre 2005
25 25
26mode(-1);
27clear
28
29test1 = ( (datenum(1971,1,1) - datenum(1970,1,1)) == 365 ) 26test1 = ( (datenum(1971,1,1) - datenum(1970,1,1)) == 365 )
30test2 = ( (datenum(1970,2,1) - datenum(1970,1,1)) == 31 ) 27test2 = ( (datenum(1970,2,1) - datenum(1970,1,1)) == 31 )
31test3 = ( (datenum(1970,1,2) - datenum(1970,1,1)) == 1 ) 28test3 = ( (datenum(1970,1,2) - datenum(1970,1,1)) == 1 )
@@ -35,5 +32,3 @@ if ( test1 & test2 & test3 ) then
35else 32else
36 affich_result(%F,1505); 33 affich_result(%F,1505);
37end 34end
38
39clear
diff --git a/tests/nonRegression/bug1506.sci b/tests/nonRegression/bug1506.sci
index a47fcdb..feba0f8 100644
--- a/tests/nonRegression/bug1506.sci
+++ b/tests/nonRegression/bug1506.sci
@@ -17,16 +17,11 @@
17// 17//
18// Fabian 18// Fabian
19 19
20
21// Non-regression test file for bug 1506
22// Copyright INRIA 20// Copyright INRIA
23// Scilab Project - Pierre MARECHAL 21// Scilab Project - Pierre MARECHAL
24// Copyright INRIA 2005 22// Copyright INRIA 2005
25// Date : 28 décembre 2005 23// Date : 28 décembre 2005
26 24
27mode(-1);
28clear
29
30now = getdate(); 25now = getdate();
31 26
32one_sec = datenum(now(1),now(2),now(6),now(7),now(8),30) - datenum(now(1),now(2),now(6),now(7),now(8),29); 27one_sec = datenum(now(1),now(2),now(6),now(7),now(8),30) - datenum(now(1),now(2),now(6),now(7),now(8),29);
@@ -46,5 +41,3 @@ if ( test1 & test2 & test3 ) then
46else 41else
47 affich_result(%F,1506); 42 affich_result(%F,1506);
48end 43end
49
50clear
diff --git a/tests/nonRegression/bug1560.sci b/tests/nonRegression/bug1560.sci
index f5ac755..c6c6f32 100644
--- a/tests/nonRegression/bug1560.sci
+++ b/tests/nonRegression/bug1560.sci
@@ -11,16 +11,11 @@
11// 11//
12// Jacques-Deric 12// Jacques-Deric
13 13
14
15// Non-regression test file for bug 1560
16// Copyright INRIA 14// Copyright INRIA
17// Scilab Project - Jean-Baptiste Silvy 15// Scilab Project - Jean-Baptiste Silvy
18// Copyright INRIA 2006 16// Copyright INRIA 2006
19// Date : 11 janvier 2006 17// Date : 11 janvier 2006
20 18
21mode(-1);
22clear;
23
24hf = scf (1); 19hf = scf (1);
25ha = hf.children; 20ha = hf.children;
26ha.axes_visible = "on"; 21ha.axes_visible = "on";
@@ -50,6 +45,3 @@ if ( hs10.data == reference ) then
50else 45else
51 affich_result(%F,1560); 46 affich_result(%F,1560);
52end 47end
53
54clear;
55
diff --git a/tests/nonRegression/bug1566.sci b/tests/nonRegression/bug1566.sci
index 351daf4..0dbbd67 100644
--- a/tests/nonRegression/bug1566.sci
+++ b/tests/nonRegression/bug1566.sci
@@ -26,16 +26,11 @@
26// Imaginary part disappeared! This is true for single complex numbers or 26// Imaginary part disappeared! This is true for single complex numbers or
27// ... 27// ...
28 28
29
30// Non-regression test file for bug 1566
31// Copyright INRIA 29// Copyright INRIA
32// Scilab Project - Pierre MARECHAL 30// Scilab Project - Pierre MARECHAL
33// Copyright INRIA 2005 31// Copyright INRIA 2005
34// Date : 28 octobre 2005 32// Date : 28 octobre 2005
35 33
36mode(-1);
37clear;
38
39err = execstr('TCL_SetVar(''A'',1+%i)','errcatch'); 34err = execstr('TCL_SetVar(''A'',1+%i)','errcatch');
40 35
41if (err== 999) then 36if (err== 999) then
@@ -45,5 +40,3 @@ else
45end 40end
46 41
47lasterror(); 42lasterror();
48
49clear
diff --git a/tests/nonRegression/bug1568.sci b/tests/nonRegression/bug1568.sci
index 362faa0..4ab0089 100644
--- a/tests/nonRegression/bug1568.sci
+++ b/tests/nonRegression/bug1568.sci
@@ -26,16 +26,11 @@
26// ans = 26// ans =
27// ... 27// ...
28 28
29
30// Non-regression test file for bug 1568
31// Copyright INRIA 29// Copyright INRIA
32// Scilab Project - Pierre MARECHAL 30// Scilab Project - Pierre MARECHAL
33// Copyright INRIA 2005 31// Copyright INRIA 2005
34// Date : 21 octobre 2005 32// Date : 21 octobre 2005
35 33
36mode(-1);
37clear;
38
39grand('setsd',12); 34grand('setsd',12);
40A = grand(1,'prm',[1:5]'); 35A = grand(1,'prm',[1:5]');
41grand('setsd',12); 36grand('setsd',12);
@@ -46,5 +41,3 @@ if or(A<>B) then
46else 41else
47 affich_result(%T,1568); 42 affich_result(%T,1568);
48end 43end
49
50clear
diff --git a/tests/nonRegression/bug1586.sci b/tests/nonRegression/bug1586.sci
index 19f2380..7cec6c1 100644
--- a/tests/nonRegression/bug1586.sci
+++ b/tests/nonRegression/bug1586.sci
@@ -26,16 +26,11 @@
26// 0. 26// 0.
27// ... 27// ...
28 28
29
30// Non-regression test file for bug 1586
31// Copyright INRIA 29// Copyright INRIA
32// Scilab Project - Pierre MARECHAL 30// Scilab Project - Pierre MARECHAL
33// Copyright INRIA 2005 31// Copyright INRIA 2005
34// Date : 28 octobre 2005 32// Date : 28 octobre 2005
35 33
36mode(-1);
37clear;
38
39dirToSave = pwd(); 34dirToSave = pwd();
40 35
41cd(TMPDIR); 36cd(TMPDIR);
@@ -50,5 +45,3 @@ end
50 45
51rmdir('bug1586'); 46rmdir('bug1586');
52cd(dirToSave); 47cd(dirToSave);
53
54clear
diff --git a/tests/nonRegression/bug1587.sci b/tests/nonRegression/bug1587.sci
index 598ed51..c88dc35 100644
--- a/tests/nonRegression/bug1587.sci
+++ b/tests/nonRegression/bug1587.sci
@@ -10,16 +10,11 @@
10// with the entered colormap. Moreover, Scilab often crash some time after this bug 10// with the entered colormap. Moreover, Scilab often crash some time after this bug
11// occures. 11// occures.
12 12
13
14// Non-regression test file for bug 1586
15// Copyright INRIA 13// Copyright INRIA
16// Scilab Project - Jean-Baptiste Silvy 14// Scilab Project - Jean-Baptiste Silvy
17// Copyright INRIA 2006 15// Copyright INRIA 2006
18// Date : 18 Juillet 2006 16// Date : 18 Juillet 2006
19 17
20mode(-1) ;
21clear ;
22
23// test the modification on a figure which is not current 18// test the modification on a figure which is not current
24f1 = gcf() ; 19f1 = gcf() ;
25plot3d ; 20plot3d ;
diff --git a/tests/nonRegression/bug1602.sci b/tests/nonRegression/bug1602.sci
index 257b394..03f30ff 100644
--- a/tests/nonRegression/bug1602.sci
+++ b/tests/nonRegression/bug1602.sci
@@ -11,15 +11,11 @@
11// 11//
12// Bruno 12// Bruno
13 13
14
15// Non-regression test file for bug 1602
16// Copyright INRIA 14// Copyright INRIA
17// Scilab Project - Jean-Baptiste Silvy 15// Scilab Project - Jean-Baptiste Silvy
18// Copyright INRIA 2006 16// Copyright INRIA 2006
19// Date : 11 janvier 2006 17// Date : 11 janvier 2006
20 18
21mode(-1);
22clear;
23clf(); 19clf();
24 20
25x = linspace(-0.95,0.95,80); 21x = linspace(-0.95,0.95,80);
@@ -36,6 +32,3 @@ if ( a.data_bounds == data_boundsRef ) then
36else 32else
37 affich_result(%F,1602); 33 affich_result(%F,1602);
38end 34end
39
40clear;
41
diff --git a/tests/nonRegression/bug1619.sci b/tests/nonRegression/bug1619.sci
index 3ecc73f..bfd9d31 100644
--- a/tests/nonRegression/bug1619.sci
+++ b/tests/nonRegression/bug1619.sci
@@ -8,18 +8,11 @@
8// so much, 8// so much,
9// that causes spectacular crashes of scilab. 9// that causes spectacular crashes of scilab.
10 10
11
12// Non-regression test file for bug 1619
13// Copyright INRIA 11// Copyright INRIA
14// Scilab Project - Serge Steer 12// Scilab Project - Serge Steer
15// Copyright INRIA 2006 13// Copyright INRIA 2006
16// Date : 2 octobre 2006 14// Date : 2 octobre 2006
17 15
18mode(-1);
19clear;
20
21
22
23deff('x=foo(n)',['if n==0 then' 16deff('x=foo(n)',['if n==0 then'
24 ' x=[]' 17 ' x=[]'
25 'else' 18 'else'
@@ -35,6 +28,3 @@ function y=foo(),y=sin(33)+1;endfunction
35foo(); //execution creates a deleted op in the pseudo code of foo 28foo(); //execution creates a deleted op in the pseudo code of foo
36T2=execstr('macr2tree(foo)','errcatch')==0 29T2=execstr('macr2tree(foo)','errcatch')==0
37affich_result(T1&T2,1619); 30affich_result(T1&T2,1619);
38
39clear
40
diff --git a/tests/nonRegression/bug1620.sci b/tests/nonRegression/bug1620.sci
index 339da8b..00210c4 100644
--- a/tests/nonRegression/bug1620.sci
+++ b/tests/nonRegression/bug1620.sci
@@ -23,16 +23,11 @@
23// La commande clear nettoie-t-elle efficacement la mémoire? 23// La commande clear nettoie-t-elle efficacement la mémoire?
24// Merci de votre aide. 24// Merci de votre aide.
25 25
26
27// Non-regression test file for bug 1620
28// Copyright INRIA 26// Copyright INRIA
29// Scilab Project - Pierre MARECHAL 27// Scilab Project - Pierre MARECHAL
30// Copyright INRIA 2006 28// Copyright INRIA 2006
31// Date : 9 janvier 2006 29// Date : 9 janvier 2006
32 30
33mode(-1);
34clear
35
36a=rand(500,148) 31a=rand(500,148)
37fprintfMat(TMPDIR+"/bug1620.txt",a); 32fprintfMat(TMPDIR+"/bug1620.txt",a);
38b=fscanfMat(TMPDIR+"/bug1620.txt"); 33b=fscanfMat(TMPDIR+"/bug1620.txt");
@@ -42,5 +37,3 @@ if or(size(b)<>[500 148]) then
42else 37else
43 affich_result(%T,1620); 38 affich_result(%T,1620);
44end 39end
45
46clear
diff --git a/tests/nonRegression/bug1625.sci b/tests/nonRegression/bug1625.sci
index 89dffcd..cfdb251 100644
--- a/tests/nonRegression/bug1625.sci
+++ b/tests/nonRegression/bug1625.sci
@@ -17,16 +17,11 @@
17// 17//
18// 1.5 18// 1.5
19 19
20
21// Non-regression test file for bug 1625
22// Copyright INRIA 20// Copyright INRIA
23// Scilab Project - Pierre MARECHAL 21// Scilab Project - Pierre MARECHAL
24// Copyright INRIA 2005 22// Copyright INRIA 2005
25// Date : 28 décembre 2005 23// Date : 28 décembre 2005
26 24
27mode(-1);
28clear
29
30test1 = ( datenum(1997,1,1) == 729391 ); 25test1 = ( datenum(1997,1,1) == 729391 );
31test2 = ( datenum(1996,12,31) == floor(datenum(1996,12,31)) ); 26test2 = ( datenum(1996,12,31) == floor(datenum(1996,12,31)) );
32test3 = ( datenum(1997,1,1,23,59,59) - datenum(1997,1,1) < 1 ) 27test3 = ( datenum(1997,1,1,23,59,59) - datenum(1997,1,1) < 1 )
@@ -36,5 +31,3 @@ if ( test1 & test2 & test3 ) then
36else 31else
37 affich_result(%F,1625); 32 affich_result(%F,1625);
38end 33end
39
40clear
diff --git a/tests/nonRegression/bug1629.sci b/tests/nonRegression/bug1629.sci
index 505411e..03f8610 100644
--- a/tests/nonRegression/bug1629.sci
+++ b/tests/nonRegression/bug1629.sci
@@ -26,15 +26,9 @@
26// Note: without the nargin test surrounding the structure field assignments, the 26// Note: without the nargin test surrounding the structure field assignments, the
27// ... 27// ...
28 28
29
30// Non-regression test file for bug 1629
31// Copyright INRIA 29// Copyright INRIA
32// Scilab Project - F. Belahcene 30// Scilab Project - F. Belahcene
33 31
34
35mode(-1);
36clear;
37
38MFILECONTENTS=["function out=bug1629(par)"; 32MFILECONTENTS=["function out=bug1629(par)";
39 "if (nargin<2)"; 33 "if (nargin<2)";
40 " par.a = 2;"; 34 " par.a = 2;";
diff --git a/tests/nonRegression/bug1636.sci b/tests/nonRegression/bug1636.sci
index b912dda..bd7f18a 100644
--- a/tests/nonRegression/bug1636.sci
+++ b/tests/nonRegression/bug1636.sci
@@ -13,15 +13,9 @@
13// k=k-1 for lines 141 and 181 which seems to work OK. No errors and 13// k=k-1 for lines 141 and 181 which seems to work OK. No errors and
14// produces an sci file 14// produces an sci file
15 15
16
17// Non-regression test file for bug 1636
18// Copyright INRIA 16// Copyright INRIA
19// Scilab Project - F. Belahcene 17// Scilab Project - F. Belahcene
20 18
21
22mode(-1);
23clear;
24
25MFILECONTENTS=["function A = bug1636(x,y,..."; 19MFILECONTENTS=["function A = bug1636(x,y,...";
26 "z,t,..."; 20 "z,t,...";
27 "u,v,w,..."; 21 "u,v,w,...";
@@ -58,5 +52,3 @@ if or(SCIFILECONTENTSREF<>SCIFILECONTENTS) then
58else 52else
59 affich_result(%T,1636); 53 affich_result(%T,1636);
60end 54end
61
62clear \ No newline at end of file
diff --git a/tests/nonRegression/bug1662.sci b/tests/nonRegression/bug1662.sci
index 24be07b..db30f7b 100644
--- a/tests/nonRegression/bug1662.sci
+++ b/tests/nonRegression/bug1662.sci
@@ -10,15 +10,10 @@
10// incorrect syntax error. Take the comment out and it works fine. Not a 10// incorrect syntax error. Take the comment out and it works fine. Not a
11// major problem but a slight nuisance 11// major problem but a slight nuisance
12 12
13
14// Non-regression test file for bug 1662
15// Copyright INRIA 13// Copyright INRIA
16// Scilab Project - F. Belahcene 14// Scilab Project - F. Belahcene
17 15
18 16
19mode(-1);
20clear;
21
22MFILECONTENTS=["function y=bug1662(x)"; 17MFILECONTENTS=["function y=bug1662(x)";
23 "switch x % comment1"; 18 "switch x % comment1";
24 "% comment2"; 19 "% comment2";
diff --git a/tests/nonRegression/bug1682.sci b/tests/nonRegression/bug1682.sci
index 6f9e638..d227f4d 100644
--- a/tests/nonRegression/bug1682.sci
+++ b/tests/nonRegression/bug1682.sci
@@ -15,15 +15,11 @@
15// Jacques-Deric 15// Jacques-Deric
16 16
17 17
18// Non-regression test file for bug 1682
19// Copyright INRIA 18// Copyright INRIA
20// Scilab Project - Jean-Baptiste Silvy 19// Scilab Project - Jean-Baptiste Silvy
21// Copyright INRIA 2006 20// Copyright INRIA 2006
22// Date : 11 janvier 2006 21// Date : 11 janvier 2006
23 22
24mode(-1);
25clear;
26
27// Program Spas42151A 23// Program Spas42151A
28// Designed for Scilab 3.1 & 4.0 24// Designed for Scilab 3.1 & 4.0
29// Copyright Jacques-Deric Rouault, CNRS, INRIA 25// Copyright Jacques-Deric Rouault, CNRS, INRIA
@@ -57,6 +53,3 @@ if ( (ha1.rotation_angles == newAngles) & (ha2.rotation_angles == newAngles) ) t
57else 53else
58 affich_result(%F,1682); 54 affich_result(%F,1682);
59end 55end
60
61clear;
62
diff --git a/tests/nonRegression/bug1684.sci b/tests/nonRegression/bug1684.sci
index dd48e45..34ebaf7 100644
--- a/tests/nonRegression/bug1684.sci
+++ b/tests/nonRegression/bug1684.sci
@@ -11,14 +11,11 @@
11// expressions and I don't want to change it to test is the value is negative and 11// expressions and I don't want to change it to test is the value is negative and
12// then add parenthesis. 12// then add parenthesis.
13 13
14
15// Non-regression test file for bug 1684
16// Copyright INRIA 14// Copyright INRIA
17// Scilab Project - Serge Steer 15// Scilab Project - Serge Steer
18// Copyright INRIA 2005 16// Copyright INRIA 2005
19// Date : 6 mars 2006 17// Date : 6 mars 2006
20 18
21mode(-1);
22a=1+-1; 19a=1+-1;
23ok1=a==0; 20ok1=a==0;
24a=1-+1; 21a=1-+1;
diff --git a/tests/nonRegression/bug1693.sci b/tests/nonRegression/bug1693.sci
index 2814ff9..3d586db 100644
--- a/tests/nonRegression/bug1693.sci
+++ b/tests/nonRegression/bug1693.sci
@@ -26,17 +26,11 @@
26// Since the Windows command interpreter accepts this (cd \ changes 26// Since the Windows command interpreter accepts this (cd \ changes
27// ... 27// ...
28 28
29
30// Non-regression test file for bug 1505
31// Copyright INRIA 29// Copyright INRIA
32// Scilab Project - Pierre MARECHAL 30// Scilab Project - Pierre MARECHAL
33// Copyright INRIA 2005 31// Copyright INRIA 2005
34// Date : 28 décembre 2005 32// Date : 28 décembre 2005
35 33
36mode(-1);
37clear
38
39
40// ================== Test 1 ================== 34// ================== Test 1 ==================
41 35
42cd \ 36cd \
@@ -115,5 +109,3 @@ if ( test1 & test2 & test3 & test4 & test5 & test6 ) then
115else 109else
116 affich_result(%F,1693); 110 affich_result(%F,1693);
117end 111end
118
119clear
diff --git a/tests/nonRegression/bug1711.sci b/tests/nonRegression/bug1711.sci
index 16f708a..76083d6 100644
--- a/tests/nonRegression/bug1711.sci
+++ b/tests/nonRegression/bug1711.sci
@@ -21,16 +21,11 @@
21// 21//
22// - 1. 13. 4. 21. 0. 27.783333 22// - 1. 13. 4. 21. 0. 27.783333
23 23
24
25// Non-regression test file for bug 1711
26// Copyright INRIA 24// Copyright INRIA
27// Scilab Project - Pierre MARECHAL 25// Scilab Project - Pierre MARECHAL
28// Copyright INRIA 2005 26// Copyright INRIA 2005
29// Date : 28 décembre 2005 27// Date : 28 décembre 2005
30 28
31mode(-1);
32clear
33
34test1 = ( datenum(2006,1,4) == 732681 ); 29test1 = ( datenum(2006,1,4) == 732681 );
35 30
36if test1 then 31if test1 then
@@ -38,5 +33,3 @@ if test1 then
38else 33else
39 affich_result(%F,1711); 34 affich_result(%F,1711);
40end 35end
41
42clear
diff --git a/tests/nonRegression/bug1712.sci b/tests/nonRegression/bug1712.sci
index 5a95c18..91ae4e7 100644
--- a/tests/nonRegression/bug1712.sci
+++ b/tests/nonRegression/bug1712.sci
@@ -26,16 +26,11 @@
26// ! T T ! 26// ! T T !
27// ... 27// ...
28 28
29
30// Non-regression test file for bug 1712
31// Copyright INRIA 29// Copyright INRIA
32// Scilab Project - Pierre MARECHAL 30// Scilab Project - Pierre MARECHAL
33// Copyright INRIA 2005 31// Copyright INRIA 2005
34// Date : 6 fevrier 2005 32// Date : 6 fevrier 2005
35 33
36mode(-1);
37clear
38
39hm=hypermat([2 2 2],1:8); 34hm=hypermat([2 2 2],1:8);
40test1 = execstr('hm>min(hm) & hm<max(hm)','errcatch'); 35test1 = execstr('hm>min(hm) & hm<max(hm)','errcatch');
41test2 = execstr('hm==min(hm) | hm==max(hm)','errcatch'); 36test2 = execstr('hm==min(hm) | hm==max(hm)','errcatch');
@@ -45,5 +40,3 @@ if( (test1 == 0) & (test2 == 0) ) then
45else 40else
46 affich_result(%F,1712); 41 affich_result(%F,1712);
47end 42end
48
49clear \ No newline at end of file
diff --git a/tests/nonRegression/bug1720.sci b/tests/nonRegression/bug1720.sci
index b7f8e29..663b816 100644
--- a/tests/nonRegression/bug1720.sci
+++ b/tests/nonRegression/bug1720.sci
@@ -14,16 +14,11 @@
14// 14//
15// Jacques-Deric 15// Jacques-Deric
16 16
17
18// Non-regression test file for bug 1720
19// Copyright INRIA 17// Copyright INRIA
20// Scilab Project - Jean-Baptiste Silvy 18// Scilab Project - Jean-Baptiste Silvy
21// Copyright INRIA 2006 19// Copyright INRIA 2006
22// Date : 11 janvier 2006 20// Date : 11 janvier 2006
23 21
24mode(-1);
25clear;
26
27hf = scf(1) ; 22hf = scf(1) ;
28hf.figure_name = "4.13.22A1"; 23hf.figure_name = "4.13.22A1";
29ha = hf.children; 24ha = hf.children;
@@ -42,6 +37,3 @@ if ( hc.line_mode == 'off' ) then
42else 37else
43 affich_result(%F,1720); 38 affich_result(%F,1720);
44end 39end
45
46clear;
47
diff --git a/tests/nonRegression/bug1725.sci b/tests/nonRegression/bug1725.sci
index 55427c7..688d1bc 100644
--- a/tests/nonRegression/bug1725.sci
+++ b/tests/nonRegression/bug1725.sci
@@ -27,15 +27,11 @@
27// ... 27// ...
28 28
29 29
30// Non-regression test file for bug 1725
31// Copyright INRIA 30// Copyright INRIA
32// Scilab Project - Farid Belahcene 31// Scilab Project - Farid Belahcene
33// Copyright INRIA 2005 32// Copyright INRIA 2005
34// Date : 09 janvier 2006 33// Date : 09 janvier 2006
35 34
36mode(-1);
37clear
38
39a = mtlb_axis([ 1 500 -22.3 1.4]) 35a = mtlb_axis([ 1 500 -22.3 1.4])
40test1 = ( a == [1 500 -22.3 1.4] ) 36test1 = ( a == [1 500 -22.3 1.4] )
41 37
@@ -44,5 +40,3 @@ if ( test1 ) then
44else 40else
45 affich_result(%F,1725); 41 affich_result(%F,1725);
46end 42end
47
48clear \ No newline at end of file
diff --git a/tests/nonRegression/bug1732.sci b/tests/nonRegression/bug1732.sci
index e5cff88..66d5a96 100644
--- a/tests/nonRegression/bug1732.sci
+++ b/tests/nonRegression/bug1732.sci
@@ -9,16 +9,11 @@
9// 9//
10// Jacques-Deric 10// Jacques-Deric
11 11
12
13// Non-regression test file for bug 1732
14// Copyright INRIA 12// Copyright INRIA
15// Scilab Project - Jean-Baptiste Silvy 13// Scilab Project - Jean-Baptiste Silvy
16// Copyright INRIA 2006 14// Copyright INRIA 2006
17// Date : 18 janvier 2006 15// Date : 18 janvier 2006
18 16
19mode(-1);
20clear;
21
22ref = [1,0,5] ; 17ref = [1,0,5] ;
23 18
24ha = gca () ; 19ha = gca () ;
@@ -38,6 +33,3 @@ if ( res1 == ref & res2 == ref ) then
38else 33else
39 affich_result(%F,1732); 34 affich_result(%F,1732);
40end 35end
41
42clear;
43
diff --git a/tests/nonRegression/bug1736.sci b/tests/nonRegression/bug1736.sci
index a4a7660..7252c64 100644
--- a/tests/nonRegression/bug1736.sci
+++ b/tests/nonRegression/bug1736.sci
@@ -11,17 +11,11 @@
11// has been indentified and posted a bug correction... There 11// has been indentified and posted a bug correction... There
12// is a problem with uint8 comparisons... 12// is a problem with uint8 comparisons...
13 13
14
15// Non-regression test file for bug 1736
16// Copyright INRIA 14// Copyright INRIA
17// Scilab Project - Serge Steer 15// Scilab Project - Serge Steer
18// Copyright INRIA 2006 16// Copyright INRIA 2006
19// Date : 11 janvier 2006 17// Date : 11 janvier 2006
20 18
21mode(-1);
22clear
23a = uint8(rand(10,10)*100); 19a = uint8(rand(10,10)*100);
24ok=(a<=50)==(50>=a) 20ok=(a<=50)==(50>=a)
25affich_result(ok,1736); 21affich_result(ok,1736);
26
27clear
diff --git a/tests/nonRegression/bug1742.sci b/tests/nonRegression/bug1742.sci
index 2c8f7bb..cf5bb5e 100644
--- a/tests/nonRegression/bug1742.sci
+++ b/tests/nonRegression/bug1742.sci
@@ -14,14 +14,11 @@
14// This formula is wrong. Must be canged in: 14// This formula is wrong. Must be canged in:
15// m=sqrt(sum((x-ones(x(:,1))*mean(x,'r')).^2,'r')/nrow); 15// m=sqrt(sum((x-ones(x(:,1))*mean(x,'r')).^2,'r')/nrow);
16 16
17
18// Non-regression test file for bug 1742
19// Copyright INRIA 17// Copyright INRIA
20// Scilab Project - Serge Steer 18// Scilab Project - Serge Steer
21// Copyright INRIA 2006 19// Copyright INRIA 2006
22// Date : 4 mai 2006 20// Date : 4 mai 2006
23 21
24mode(-1);
25x=matrix([5 2:8],2,4); 22x=matrix([5 2:8],2,4);
26r=(msd(x)-3.5)<%eps 23r=(msd(x)-3.5)<%eps
27r=r&norm(msd(x,1)-[3 1 1 1]/2)<%eps 24r=r&norm(msd(x,1)-[3 1 1 1]/2)<%eps
@@ -30,4 +27,3 @@ r=r&norm(msd(x,2)-sqrt([2;5]))<%eps
30r=r&norm(msd(x,'c')-sqrt([2;5]))<%eps 27r=r&norm(msd(x,'c')-sqrt([2;5]))<%eps
31 28
32affich_result(r,1742); 29affich_result(r,1742);
33clear
diff --git a/tests/nonRegression/bug1768.sci b/tests/nonRegression/bug1768.sci
index c4e118b..48e48a5 100644
--- a/tests/nonRegression/bug1768.sci
+++ b/tests/nonRegression/bug1768.sci
@@ -9,16 +9,11 @@
9// file, xmltohtml crashes. Apparently, it does not found the whatis file 9// file, xmltohtml crashes. Apparently, it does not found the whatis file
10// even if it was just created successfully 10// even if it was just created successfully
11 11
12
13// Non-regression test file for bug 1768
14// Copyright INRIA 12// Copyright INRIA
15// Scilab Project - Serge Steer 13// Scilab Project - Serge Steer
16// Copyright INRIA 2005 14// Copyright INRIA 2005
17// Date : 20 janvier 2006 15// Date : 20 janvier 2006
18 16
19mode(-1);
20clear
21
22function y=foo1(a,b) 17function y=foo1(a,b)
23 y=a+b 18 y=a+b
24endfunction 19endfunction
@@ -39,4 +34,3 @@ if ok
39 end 34 end
40end 35end
41affich_result(ok,1768); 36affich_result(ok,1768);
42clear
diff --git a/tests/nonRegression/bug1772.sci b/tests/nonRegression/bug1772.sci
index 4285bdb..6347504 100644
--- a/tests/nonRegression/bug1772.sci
+++ b/tests/nonRegression/bug1772.sci
@@ -7,14 +7,11 @@
7// There is a problem while inserting an object of type list in an undefined struct 7// There is a problem while inserting an object of type list in an undefined struct
8// field 8// field
9 9
10
11// Non-regression test file for bug 1772
12// Copyright INRIA 10// Copyright INRIA
13// Scilab Project - Serge Steer 11// Scilab Project - Serge Steer
14// Copyright INRIA 2005 12// Copyright INRIA 2005
15// Date : 20 janvier 2006 13// Date : 20 janvier 2006
16 14
17mode(-1);
18S.x=1; 15S.x=1;
19ok=%t 16ok=%t
20try 17try
diff --git a/tests/nonRegression/bug1784.sci b/tests/nonRegression/bug1784.sci
index 6bab5235..9bb8370 100644
--- a/tests/nonRegression/bug1784.sci
+++ b/tests/nonRegression/bug1784.sci
@@ -6,15 +6,11 @@
6// <-- Short Description --> 6// <-- Short Description -->
7// Problem while inserting a matrix in an N-D matrix 7// Problem while inserting a matrix in an N-D matrix
8 8
9
10// Non-regression test file for bug 1784
11// Copyright INRIA 9// Copyright INRIA
12// Scilab Project - Serge Steer 10// Scilab Project - Serge Steer
13// Copyright INRIA 2005 11// Copyright INRIA 2005
14// Date : 23 janvier 2006 12// Date : 23 janvier 2006
15 13
16mode(-1);
17clear
18A=hypermat([3,3,2]); 14A=hypermat([3,3,2]);
19try 15try
20 A(1,1:3,1:3)=[1 2 3;4 5 6;7 8 9]; 16 A(1,1:3,1:3)=[1 2 3;4 5 6;7 8 9];
@@ -27,4 +23,3 @@ if ok then
27 6;0;0;9;0;0])) 23 6;0;0;9;0;0]))
28end 24end
29affich_result(ok,1784); 25affich_result(ok,1784);
30clear
diff --git a/tests/nonRegression/bug1786.sci b/tests/nonRegression/bug1786.sci
index aa39b08..6659773 100644
--- a/tests/nonRegression/bug1786.sci
+++ b/tests/nonRegression/bug1786.sci
@@ -13,16 +13,11 @@
13// 13//
14// jacques-Deric 14// jacques-Deric
15 15
16
17// Non-regression test file for bug 1786
18// Copyright INRIA 16// Copyright INRIA
19// Scilab Project - Pierre MARECHAL 17// Scilab Project - Pierre MARECHAL
20// Copyright INRIA 2005 18// Copyright INRIA 2005
21// Date : 6 fevrier 2005 19// Date : 6 fevrier 2005
22 20
23mode(-1);
24clear
25
26hf = scf (1); 21hf = scf (1);
27ha = gca (); 22ha = gca ();
28hlt = ha.title; 23hlt = ha.title;
@@ -43,5 +38,3 @@ if( test1 & test2 & test3 & test4 ) then
43else 38else
44 affich_result(%F,1786); 39 affich_result(%F,1786);
45end 40end
46
47clear
diff --git a/tests/nonRegression/bug1787.sci b/tests/nonRegression/bug1787.sci
index c7f3da1..3c96f64 100644
--- a/tests/nonRegression/bug1787.sci
+++ b/tests/nonRegression/bug1787.sci
@@ -9,16 +9,11 @@
9// 9//
10// Jacques-Deric 10// Jacques-Deric
11 11
12
13// Non-regression test file for bug 1787
14// Copyright INRIA 12// Copyright INRIA
15// Scilab Project - Jean-Baptiste Silvy 13// Scilab Project - Jean-Baptiste Silvy
16// Copyright INRIA 2006 14// Copyright INRIA 2006
17// Date : 10/02/2006 15// Date : 10/02/2006
18 16
19mode(-1);
20clear ;
21
22titleStr = "Scilab P0W3R" ; 17titleStr = "Scilab P0W3R" ;
23xLabelStr = "XXX" ; 18xLabelStr = "XXX" ;
24yLabelStr = "YYY" ; 19yLabelStr = "YYY" ;
@@ -40,5 +35,3 @@ if ( resT & resX & resY ) then
40else 35else
41 affich_result(%F,1787); 36 affich_result(%F,1787);
42end 37end
43
44clear ;
diff --git a/tests/nonRegression/bug1794.sci b/tests/nonRegression/bug1794.sci
index 6ef32a1..e01ac73 100644
--- a/tests/nonRegression/bug1794.sci
+++ b/tests/nonRegression/bug1794.sci
@@ -6,15 +6,11 @@
6// <-- Short Description --> 6// <-- Short Description -->
7// Problem encountered when redefining builtin function 7// Problem encountered when redefining builtin function
8 8
9
10// Non-regression test file for bug 1794
11// Copyright INRIA 9// Copyright INRIA
12// Scilab Project - Serge Steer 10// Scilab Project - Serge Steer
13// Copyright INRIA 2005 11// Copyright INRIA 2005
14// Date : 30 janvier 2006 12// Date : 30 janvier 2006
15 13
16mode(-1);
17clear
18beta=5; 14beta=5;
19try 15try
20 beta 16 beta
@@ -36,4 +32,3 @@ catch
36end 32end
37 33
38affich_result(ok1&ok2,1794); 34affich_result(ok1&ok2,1794);
39clear
diff --git a/tests/nonRegression/bug1802.sci b/tests/nonRegression/bug1802.sci
index d609a5c..bd7bde5 100644
--- a/tests/nonRegression/bug1802.sci
+++ b/tests/nonRegression/bug1802.sci
@@ -13,10 +13,6 @@
13// Copyright INRIA 2005 13// Copyright INRIA 2005
14// Date : 30 janvier 2006 14// Date : 30 janvier 2006
15 15
16mode(-1);
17clear
18
19a=rand(100,500); 16a=rand(100,500);
20timer();sci2exp(a);t=timer(); 17timer();sci2exp(a);t=timer();
21affich_result(t<60,1802); 18affich_result(t<60,1802);
22clear
diff --git a/tests/nonRegression/bug1812.sci b/tests/nonRegression/bug1812.sci
index 111498a..800dd60 100644
--- a/tests/nonRegression/bug1812.sci
+++ b/tests/nonRegression/bug1812.sci
@@ -6,14 +6,9 @@
6// <-- Short Description --> 6// <-- Short Description -->
7// error in converting matlab || as && and other translator doubts 7// error in converting matlab || as && and other translator doubts
8 8
9
10// Non-regression test file for bug 1812
11// Copyright INRIA 9// Copyright INRIA
12// Scilab Project - F. Belahcene 10// Scilab Project - F. Belahcene
13 11
14mode(-1);
15clear;
16
17MFILECONTENTS=[ 12MFILECONTENTS=[
18"m=3; a=5; b=2; c=3; d=6"; 13"m=3; a=5; b=2; c=3; d=6";
19" "; 14" ";
@@ -83,6 +78,3 @@ if or(SCIFILECONTENTSREF<>SCIFILECONTENTS) then
83end 78end
84 79
85affich_result(correct,1812); 80affich_result(correct,1812);
86
87clear
88
diff --git a/tests/nonRegression/bug1859.sci b/tests/nonRegression/bug1859.sci
index 6ab9561..e36046d 100644
--- a/tests/nonRegression/bug1859.sci
+++ b/tests/nonRegression/bug1859.sci
@@ -26,16 +26,11 @@
26// 26//
27// ... 27// ...
28 28
29
30// Non-regression test file for bug 1859
31// Copyright INRIA 29// Copyright INRIA
32// Scilab Project - Pierre MARECHAL 30// Scilab Project - Pierre MARECHAL
33// Copyright INRIA 2006 31// Copyright INRIA 2006
34// Date : 27 fevrier 2006 32// Date : 27 fevrier 2006
35 33
36mode(-1);
37clear
38
39Year = [2002, 2002]; 34Year = [2002, 2002];
40Month = [ 2, 3]; 35Month = [ 2, 3];
41Day = [ 28, 1]; 36Day = [ 28, 1];
@@ -48,5 +43,3 @@ if ~or(test <> ref) then
48else 43else
49 affich_result(%F,1859); 44 affich_result(%F,1859);
50end 45end
51
52clear
diff --git a/tests/nonRegression/bug1867.sci b/tests/nonRegression/bug1867.sci
index e8ba32c..89895d5 100644
--- a/tests/nonRegression/bug1867.sci
+++ b/tests/nonRegression/bug1867.sci
@@ -8,14 +8,9 @@
8// than 30 it 8// than 30 it
9// seems). 9// seems).
10 10
11
12// Non-regression test file for bug 1867
13// A.C 11// A.C
14// Copyright INRIA 2006 12// Copyright INRIA 2006
15 13
16mode(-1);
17clear
18
19str1 = '1 2 3 4 5 6 7 8 9 10'; 14str1 = '1 2 3 4 5 6 7 8 9 10';
20L1 = msscanf(str1,"%d %d %d %d %d %d %d %d %d %d"); 15L1 = msscanf(str1,"%d %d %d %d %d %d %d %d %d %d");
21Test1=and(L1==[1:10]); 16Test1=and(L1==[1:10]);
@@ -62,5 +57,3 @@ if (Test1 & Test2 & Test3) then
62else 57else
63 affich_result(%F,1867); 58 affich_result(%F,1867);
64end 59end
65
66clear
diff --git a/tests/nonRegression/bug1902.sci b/tests/nonRegression/bug1902.sci
index 8b154e0..10e8c9a 100644
--- a/tests/nonRegression/bug1902.sci
+++ b/tests/nonRegression/bug1902.sci
@@ -6,8 +6,6 @@
6// <-- Short Description --> 6// <-- Short Description -->
7// in drawlater mode the bounding box of strings may be wrong 7// in drawlater mode the bounding box of strings may be wrong
8 8
9
10// Non-regression test file for bug 1902
11// Copyright INRIA 9// Copyright INRIA
12// Scilab Project - Jean-Baptiste Silvy 10// Scilab Project - Jean-Baptiste Silvy
13// Copyright INRIA 2006 11// Copyright INRIA 2006
@@ -71,4 +69,3 @@ if ( norm( box11 - box12 ) < 0.1 ..
71else 69else
72 affich_result(%F,1902) ; 70 affich_result(%F,1902) ;
73end 71end
74
diff --git a/tests/nonRegression/bug1933.sci b/tests/nonRegression/bug1933.sci
index a4bb881..fd664a5 100644
--- a/tests/nonRegression/bug1933.sci
+++ b/tests/nonRegression/bug1933.sci
@@ -8,14 +8,9 @@
8// nicely 8// nicely
9// under linux. 9// under linux.
10 10
11
12// Non-regression test file for bug 1933
13// A.C 11// A.C
14// Copyright INRIA 2006 12// Copyright INRIA 2006
15 13
16mode(-1);
17
18
19A = [0 0 2 2 0 0]; 14A = [0 0 2 2 0 0];
20A(find(A==0)) = %nan; 15A(find(A==0)) = %nan;
21B=log(A); 16B=log(A);
@@ -25,5 +20,3 @@ if ( isnan(B(1)) & isnan(B(2)) & isnan(B(5)) & isnan(B(6)) ) then
25else 20else
26 affich_result(%F,1933); 21 affich_result(%F,1933);
27end 22end
28
29
diff --git a/tests/nonRegression/bug1955.sci b/tests/nonRegression/bug1955.sci
index 37c4660..15acda2 100644
--- a/tests/nonRegression/bug1955.sci
+++ b/tests/nonRegression/bug1955.sci
@@ -7,16 +7,11 @@
7// Reshaping global hypermatrices is problematic, as demonstrated by the 7// Reshaping global hypermatrices is problematic, as demonstrated by the
8// attached file 'bug.sci', which contains further comments. 8// attached file 'bug.sci', which contains further comments.
9 9
10
11// Non-regression test file for bug 1955
12// Copyright INRIA 10// Copyright INRIA
13// Scilab Project - Serge Steer 11// Scilab Project - Serge Steer
14// Copyright INRIA 2006 12// Copyright INRIA 2006
15// Date : 3 mai 2006 13// Date : 3 mai 2006
16 14
17mode(-1);
18clear
19
20global ghm 15global ghm
21 16
22ghm=matrix(1:8,2,4); 17ghm=matrix(1:8,2,4);
@@ -24,4 +19,3 @@ ghm=matrix(ghm,2,2,2);
24 19
25r= and(ghm==matrix(1:8,2,2,2)) 20r= and(ghm==matrix(1:8,2,2,2))
26affich_result(r,1955); 21affich_result(r,1955);
27clear
diff --git a/tests/nonRegression/bug1956.sci b/tests/nonRegression/bug1956.sci
index 5a316ea..fd684aa 100644
--- a/tests/nonRegression/bug1956.sci
+++ b/tests/nonRegression/bug1956.sci
@@ -15,14 +15,11 @@
15// a.c=[4 5 6] 15// a.c=[4 5 6]
16// but it's not smart and clear code... 16// but it's not smart and clear code...
17 17
18
19// Non-regression test file for bug 1956
20// Copyright INRIA 18// Copyright INRIA
21// Scilab Project - Serge Steer 19// Scilab Project - Serge Steer
22// Copyright INRIA 2006 20// Copyright INRIA 2006
23// Date : 4 mai 2006 21// Date : 4 mai 2006
24 22
25mode(-1);
26clear a d 23clear a d
27a.b=[1 2 3]; 24a.b=[1 2 3];
28d(1)=a 25d(1)=a
@@ -32,4 +29,3 @@ r=r&and(d(1)==a)
32r=r&and(d(2)==a) 29r=r&and(d(2)==a)
33 30
34affich_result(r,1956); 31affich_result(r,1956);
35clear
diff --git a/tests/nonRegression/bug1957.sci b/tests/nonRegression/bug1957.sci
index 50e1fb3..f4d1719 100644
--- a/tests/nonRegression/bug1957.sci
+++ b/tests/nonRegression/bug1957.sci
@@ -7,15 +7,11 @@
7// Non fonctionnement de intersci pour les variables optionnelles (au 7// Non fonctionnement de intersci pour les variables optionnelles (au
8// moins scalaires) 8// moins scalaires)
9 9
10
11// Non-regression test file for bug 1957
12// Copyright INRIA 10// Copyright INRIA
13// Scilab Project - Serge Steer 11// Scilab Project - Serge Steer
14// Copyright INRIA 2006 12// Copyright INRIA 2006
15// Date : 15 mai 2006 13// Date : 15 mai 2006
16 14
17mode(-1);
18clear
19tab=ascii(9); 15tab=ascii(9);
20path=TMPDIR; 16path=TMPDIR;
21 17
@@ -66,4 +62,3 @@ r=r&norm(res-[1.2,-2.3,2000,1d-7])<1d-10;
66res=test(1.2,-2.3,eps=1d-7,ITMAX=33); 62res=test(1.2,-2.3,eps=1d-7,ITMAX=33);
67r=r&norm(res-[1.2,-2.3,33,1d-7])<1d-10; 63r=r&norm(res-[1.2,-2.3,33,1d-7])<1d-10;
68 affich_result(r,1957); 64 affich_result(r,1957);
69clear
diff --git a/tests/nonRegression/bug1971.sci b/tests/nonRegression/bug1971.sci
index 64f1219..b5a640b 100644
--- a/tests/nonRegression/bug1971.sci
+++ b/tests/nonRegression/bug1971.sci
@@ -7,14 +7,9 @@
7// the mtlb_fprintf does not work. It should be re-written to follow the Matlab doc 7// the mtlb_fprintf does not work. It should be re-written to follow the Matlab doc
8// of fprintf 8// of fprintf
9 9
10
11// Non-regression test file for bug 1971
12// Copyright INRIA 10// Copyright INRIA
13// Scilab Project - F. Belahcene 11// Scilab Project - F. Belahcene
14 12
15mode(-1);
16clear;
17
18MFILECONTENTS=[ 13MFILECONTENTS=[
19"fprintf(''qsdfsdcvwqghcv'')"; 14"fprintf(''qsdfsdcvwqghcv'')";
20] 15]
@@ -51,7 +46,3 @@ instr='mtlb_fprintf(""qsdfsdcvwqghcv"")';
51ierr=execstr(instr,'errcatch') 46ierr=execstr(instr,'errcatch')
52if ierr<>0 then correct=%F, end 47if ierr<>0 then correct=%F, end
53affich_result(correct,1971); 48affich_result(correct,1971);
54
55clear
56
57
diff --git a/tests/nonRegression/bug1977.sci b/tests/nonRegression/bug1977.sci
index 7e14791..72d6c81 100644
--- a/tests/nonRegression/bug1977.sci
+++ b/tests/nonRegression/bug1977.sci
@@ -14,16 +14,11 @@
14// 14//
15// Francois 15// Francois
16 16
17
18// Non-regression test file for bug 1977
19// Copyright INRIA 17// Copyright INRIA
20// Scilab Project - Pierre MARECHAL 18// Scilab Project - Pierre MARECHAL
21// Copyright INRIA 2006 19// Copyright INRIA 2006
22// Date : 23 mai 2006 20// Date : 23 mai 2006
23 21
24mode(-1);
25clear
26
27execstr('inttype(''hell'')','errcatch'); 22execstr('inttype(''hell'')','errcatch');
28 23
29if lasterror() == 'first argument is incorrect' then 24if lasterror() == 'first argument is incorrect' then
@@ -31,5 +26,3 @@ if lasterror() == 'first argument is incorrect' then
31else 26else
32 affich_result(%F,1977); 27 affich_result(%F,1977);
33end 28end
34
35clear
diff --git a/tests/nonRegression/bug1979.sci b/tests/nonRegression/bug1979.sci
index 61b59cd..4638b9b 100644
--- a/tests/nonRegression/bug1979.sci
+++ b/tests/nonRegression/bug1979.sci
@@ -9,19 +9,14 @@
9// -->a=int32(1);b=int32(6); 9// -->a=int32(1);b=int32(6);
10// -->a:b 10// -->a:b
11// a:b 11// a:b
12// !--error 4 12// !--error 4
13// undefined variable : %i_b_i 13// undefined variable : %i_b_i
14 14
15
16// Non-regression test file for bug 1979
17// Copyright INRIA 15// Copyright INRIA
18// Scilab Project - Pierre MARECHAL 16// Scilab Project - Pierre MARECHAL
19// Copyright INRIA 2006 17// Copyright INRIA 2006
20// Date : 23 mai 2006 18// Date : 23 mai 2006
21 19
22mode(-1);
23clear
24
25a = int32(1); 20a = int32(1);
26b = int32(6); 21b = int32(6);
27c = a:b; 22c = a:b;
@@ -32,5 +27,3 @@ if and( c == d ) then
32else 27else
33 affich_result(%F,1979); 28 affich_result(%F,1979);
34end 29end
35
36clear
diff --git a/tests/nonRegression/bug1991.sci b/tests/nonRegression/bug1991.sci
index f48775c..09b9280 100644
--- a/tests/nonRegression/bug1991.sci
+++ b/tests/nonRegression/bug1991.sci
@@ -8,15 +8,11 @@
8// !--error 78 8// !--error 78
9// convert: wrong number of lhs arguments 9// convert: wrong number of lhs arguments
10 10
11
12// Non-regression test file for bug 1991
13// Copyright INRIA 11// Copyright INRIA
14// Scilab Project - Serge Steer 12// Scilab Project - Serge Steer
15// Copyright INRIA 2006 13// Copyright INRIA 2006
16// Date : 15 mai 2006 14// Date : 15 mai 2006
17 15
18mode(-1);
19clear
20[a,b]=(3,int32(5)); 16[a,b]=(3,int32(5));
21r=a==3&b==int32(5); 17r=a==3&b==int32(5);
22a=(3 + int32(5)); 18a=(3 + int32(5));
@@ -25,5 +21,4 @@ r=r&(a==int32(8));
25[a,b,c]=(3,(2),sin(5)); 21[a,b,c]=(3,(2),sin(5));
26r=r&a==3&b==2&c==sin(5); 22r=r&a==3&b==2&c==sin(5);
27 23
28affich_result(r,1991); 24affich_result(r,1991);
29clear
diff --git a/tests/nonRegression/bug2014.sci b/tests/nonRegression/bug2014.sci
index 652fe13..726d5f6 100644
--- a/tests/nonRegression/bug2014.sci
+++ b/tests/nonRegression/bug2014.sci
@@ -26,17 +26,11 @@
26// 3 - if narg==0 then error('isequal requires at least two input arguments'),end 26// 3 - if narg==0 then error('isequal requires at least two input arguments'),end
27// ... 27// ...
28 28
29
30// Non-regression test file for bug 2014
31// Copyright INRIA 29// Copyright INRIA
32// Scilab Project - Serge Steer 30// Scilab Project - Serge Steer
33// Copyright INRIA 2006 31// Copyright INRIA 2006
34// Date : june 2006 32// Date : june 2006
35 33
36mode(-1);
37clear
38l1=list(1,2,3);l2=list(1,2);l3=list(); 34l1=list(1,2,3);l2=list(1,2);l3=list();
39r=isequal(l1,l1)&isequal(l3,l3)&~isequal(l1,l2)&~isequal(l3,l1) 35r=isequal(l1,l1)&isequal(l3,l3)&~isequal(l1,l2)&~isequal(l3,l1)
40 36affich_result(r,2014);
41affich_result(r,2014);
42clear
diff --git a/tests/nonRegression/bug2022.sci b/tests/nonRegression/bug2022.sci
index a4ee9b4..9f693c0 100644
--- a/tests/nonRegression/bug2022.sci
+++ b/tests/nonRegression/bug2022.sci
@@ -11,15 +11,10 @@
11// 11//
12// perctl([23.4,364.34,1929.3,4234.3,293.3,928.3],[10]) 12// perctl([23.4,364.34,1929.3,4234.3,293.3,928.3],[10])
13 13
14
15// Non-regression test file for bug 2022
16// Author : Scilab Project - Pierre MARECHAL 14// Author : Scilab Project - Pierre MARECHAL
17// Copyright INRIA 15// Copyright INRIA
18// Date : 12 june 2006 16// Date : 12 june 2006
19 17
20mode(-1);
21clear;
22
23test1 = ( perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],90) == [472 3] ); 18test1 = ( perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],90) == [472 3] );
24test2 = ( perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],75) == [452 6] ); 19test2 = ( perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],75) == [452 6] );
25test3 = ( perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],10) == [368 22] ); 20test3 = ( perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],10) == [368 22] );
@@ -34,6 +29,3 @@ if and(test1) & and(test2) & and(test3) & and(test4) & and(test5) & and(test6) &
34else 29else
35 affich_result(%F,2022); 30 affich_result(%F,2022);
36end 31end
37
38clear
39
diff --git a/tests/nonRegression/bug2038.sci b/tests/nonRegression/bug2038.sci
index 0ab50a6..cd99aac 100644
--- a/tests/nonRegression/bug2038.sci
+++ b/tests/nonRegression/bug2038.sci
@@ -17,15 +17,10 @@
17// sys.math.scilab/browse_thread/thread/2f81e9afd1d7d6f1/e33536bff4dc1ecf#e 17// sys.math.scilab/browse_thread/thread/2f81e9afd1d7d6f1/e33536bff4dc1ecf#e
18// 33536bff4dc1ecf 18// 33536bff4dc1ecf
19 19
20
21// Non-regression test file for bug 2038
22// Author : Scilab Project - Allan CORNET 20// Author : Scilab Project - Allan CORNET
23// Copyright INRIA 21// Copyright INRIA
24// Date : 3 july 2006 22// Date : 3 july 2006
25 23
26mode(-1);
27clear;
28
29mkdir('bug2038_dir'); 24mkdir('bug2038_dir');
30cd('bug2038_dir'); 25cd('bug2038_dir');
31mkdir('bug2038_subdir'); 26mkdir('bug2038_subdir');
@@ -48,5 +43,3 @@ if (T1 & T2) then
48else 43else
49 affich_result(%F,2038); 44 affich_result(%F,2038);
50end 45end
51
52clear
diff --git a/tests/nonRegression/bug2039.sci b/tests/nonRegression/bug2039.sci
index 4091335..51127b3 100644
--- a/tests/nonRegression/bug2039.sci
+++ b/tests/nonRegression/bug2039.sci
@@ -26,19 +26,12 @@
26// 26//
27// ... 27// ...
28 28
29
30// Non-regression test file for bug 2039
31// Author : Scilab Project - Pierre MARECHAL 29// Author : Scilab Project - Pierre MARECHAL
32// Copyright INRIA 30// Copyright INRIA
33// Date : 28 june 2006 31// Date : 28 june 2006
34 32
35mode(-1);
36clear;
37
38if lasterror(%F) == [] then 33if lasterror(%F) == [] then
39 affich_result(%T,2039); 34 affich_result(%T,2039);
40else 35else
41 affich_result(%F,2039); 36 affich_result(%F,2039);
42end 37end
43
44clear
diff --git a/tests/nonRegression/bug2045.sci b/tests/nonRegression/bug2045.sci
index fd7f4c9..83fc930 100644
--- a/tests/nonRegression/bug2045.sci
+++ b/tests/nonRegression/bug2045.sci
@@ -7,16 +7,11 @@
7// xpolys([],[],-1) 7// xpolys([],[],-1)
8// kills scilex 8// kills scilex
9 9
10
11// Non-regression test file for bug 2045
12// Copyright INRIA 10// Copyright INRIA
13// Scilab Project - Jean-Baptiste Silvy 11// Scilab Project - Jean-Baptiste Silvy
14// Copyright INRIA 2006 12// Copyright INRIA 2006
15// Date : October 27 2006 13// Date : October 27 2006
16 14
17mode(-1);
18clear;
19
20// should not draw anything 15// should not draw anything
21xpolys([],[],-1) ; 16xpolys([],[],-1) ;
22 17
@@ -73,5 +68,3 @@ if ( e.type <> "Polyline" ) then
73end 68end
74 69
75affich_result(%T,2045) ; 70affich_result(%T,2045) ;
76
77clear ;
diff --git a/tests/nonRegression/bug205.sci b/tests/nonRegression/bug205.sci
index 63ac3a6..011a598 100644
--- a/tests/nonRegression/bug205.sci
+++ b/tests/nonRegression/bug205.sci
@@ -22,15 +22,10 @@
22// Gaubert on Linux PPC version 2.2.13 distribution with X/kde as window manager 22// Gaubert on Linux PPC version 2.2.13 distribution with X/kde as window manager
23// France February 10, 2001 at 11:55:40 23// France February 10, 2001 at 11:55:40
24 24
25
26// Non-regression test file for bug 205
27// Author : Scilab Project - Pierre MARECHAL 25// Author : Scilab Project - Pierre MARECHAL
28// Copyright INRIA 26// Copyright INRIA
29// Date : 09 june 2006 27// Date : 09 june 2006
30 28
31mode(-1);
32clear;
33
34N=30; 29N=30;
35A=rand(N,N); 30A=rand(N,N);
36s=poly(0,'s'); 31s=poly(0,'s');
@@ -41,5 +36,3 @@ if degree(P)==30 then
41else 36else
42 affich_result(%F,205); 37 affich_result(%F,205);
43end 38end
44
45clear
diff --git a/tests/nonRegression/bug2052.sci b/tests/nonRegression/bug2052.sci
index e9c18c4..c102d5d 100644
--- a/tests/nonRegression/bug2052.sci
+++ b/tests/nonRegression/bug2052.sci
@@ -7,14 +7,10 @@
7// Bug dans la primitive "isequal" (au moins) avec des type de données 7// Bug dans la primitive "isequal" (au moins) avec des type de données
8// utilisateur 8// utilisateur
9 9
10
11// Non-regression test file for bug 2052
12// Serge Steer - Scilab Project 10// Serge Steer - Scilab Project
13// Copyright INRIA 11// Copyright INRIA
14// 19/02/2007 12// 19/02/2007
15 13
16mode(-1);
17clear;
18cur=pwd(); 14cur=pwd();
19cd(TMPDIR); 15cd(TMPDIR);
20//first create a function changetype 16//first create a function changetype
@@ -57,4 +53,3 @@ l=list(1,2,3);
57r=isequal(a,a)&~isequal(a,A)&~isequal(A,a)&isequal(A,A)&isequal(l,l)&~isequal(l,A); 53r=isequal(a,a)&~isequal(a,A)&~isequal(A,a)&isequal(A,A)&isequal(l,l)&~isequal(l,A);
58 54
59affich_result(r,2052); 55affich_result(r,2052);
60clear
diff --git a/tests/nonRegression/bug2067.sci b/tests/nonRegression/bug2067.sci
index 5b2a74d..f00cfb4 100644
--- a/tests/nonRegression/bug2067.sci
+++ b/tests/nonRegression/bug2067.sci
@@ -11,18 +11,12 @@
11// Greetings from Poland, 11// Greetings from Poland,
12// Lukasz Hladowski. 12// Lukasz Hladowski.
13 13
14
15// Non-regression test file for bug 2067
16// Copyright INRIA 14// Copyright INRIA
17// Scilab Project - Jean-Baptiste Silvy 15// Scilab Project - Jean-Baptiste Silvy
18// Copyright INRIA 2006 16// Copyright INRIA 2006
19// Date : July 11 2006 17// Date : July 11 2006
20 18
21mode(-1) ;
22clear ;
23
24// the bug was hanging the computer 19// the bug was hanging the computer
25plot( 10^16, 5) ; 20plot( 10^16, 5) ;
26 21
27affich_result(%T,2067) ; 22affich_result(%T,2067) ;
28clear ;
diff --git a/tests/nonRegression/bug2092.sci b/tests/nonRegression/bug2092.sci
index 63043c4..6244a02 100644
--- a/tests/nonRegression/bug2092.sci
+++ b/tests/nonRegression/bug2092.sci
@@ -6,16 +6,11 @@
6// <-- Short Description --> 6// <-- Short Description -->
7// Incorrect handling of second input argument to function mad() 7// Incorrect handling of second input argument to function mad()
8 8
9
10// Non-regression test file for bug 2092
11// Copyright INRIA 9// Copyright INRIA
12// Scilab Project - Pierre MARECHAL 10// Scilab Project - Pierre MARECHAL
13// Copyright INRIA 2006 11// Copyright INRIA 2006
14// Date : 17 aout 2006 12// Date : 17 aout 2006
15 13
16mode(-1);
17clear;
18
19A = mad([1:10;2:11],2); 14A = mad([1:10;2:11],2);
20B = mad([1:10;2:11],'c'); 15B = mad([1:10;2:11],'c');
21 16
@@ -24,5 +19,3 @@ if and(A == B) then
24else 19else
25 affich_result(%F,2092); 20 affich_result(%F,2092);
26end 21end
27
28clear
diff --git a/tests/nonRegression/bug2093.sci b/tests/nonRegression/bug2093.sci
index 6f942bd..5bcdd83 100644
--- a/tests/nonRegression/bug2093.sci
+++ b/tests/nonRegression/bug2093.sci
@@ -7,16 +7,11 @@
7// matrix(A,q) doesn't return a q*1 matrix when A is a 1*1*q matrix and q a scalar. 7// matrix(A,q) doesn't return a q*1 matrix when A is a 1*1*q matrix and q a scalar.
8// Instead, it returns a mlist. 8// Instead, it returns a mlist.
9 9
10
11// Non-regression test file for bug 2093
12// Copyright INRIA 10// Copyright INRIA
13// Scilab Project - Pierre MARECHAL 11// Scilab Project - Pierre MARECHAL
14// Copyright INRIA 2006 12// Copyright INRIA 2006
15// Date : 28 août 2006 13// Date : 28 août 2006
16 14
17mode(-1);
18clear;
19
20A = rand(1,1,6); 15A = rand(1,1,6);
21B = matrix(A,6); 16B = matrix(A,6);
22C = matrix(A,[6,1]); 17C = matrix(A,[6,1]);
@@ -26,5 +21,3 @@ if (type(B) == 1) & (type(C) == 1) then
26else 21else
27 affich_result(%F,2093); 22 affich_result(%F,2093);
28end 23end
29
30clear
diff --git a/tests/nonRegression/bug2098.sci b/tests/nonRegression/bug2098.sci
index b3e0de0..5663c6e 100644
--- a/tests/nonRegression/bug2098.sci
+++ b/tests/nonRegression/bug2098.sci
@@ -17,15 +17,10 @@
17// 17//
18// -->showprofile(test) // this line makes Scilab exit silently 18// -->showprofile(test) // this line makes Scilab exit silently
19 19
20
21// Non-regression test file for bug 2098
22// Author : Scilab Project - Pierre MARECHAL 20// Author : Scilab Project - Pierre MARECHAL
23// Copyright INRIA 21// Copyright INRIA
24// Date : 05 mai 2007 22// Date : 05 mai 2007
25 23
26mode(-1);
27clear;
28
29function test 24function test
30 disp('test'); 25 disp('test');
31endfunction 26endfunction
@@ -37,5 +32,3 @@ if( ierr == 1000 ) then
37else 32else
38 affich_result(%F,2098); 33 affich_result(%F,2098);
39end 34end
40
41clear
diff --git a/tests/nonRegression/bug2137.sci b/tests/nonRegression/bug2137.sci
index d3ec179..ff444a0 100644
--- a/tests/nonRegression/bug2137.sci
+++ b/tests/nonRegression/bug2137.sci
@@ -21,14 +21,9 @@
21// 21//
22// Francois 22// Francois
23 23
24
25// Non-regression test file for bug 2137
26// Copyright INRIA 24// Copyright INRIA
27// Scilab Project - F. Belahcene 25// Scilab Project - F. Belahcene
28 26
29mode(-1);
30clear;
31
32MFILECONTENTS=[ 27MFILECONTENTS=[
33"R = randn;"; 28"R = randn;";
34] 29]
@@ -62,7 +57,3 @@ if or(SCIFILECONTENTSREF<>SCIFILECONTENTS) then
62end 57end
63 58
64affich_result(correct,2137); 59affich_result(correct,2137);
65
66clear
67
68
diff --git a/tests/nonRegression/bug2149.sci b/tests/nonRegression/bug2149.sci
index 4181b18..c96487d 100644
--- a/tests/nonRegression/bug2149.sci
+++ b/tests/nonRegression/bug2149.sci
@@ -23,15 +23,10 @@
23// 23//
24// Francois 24// Francois
25 25
26
27// Non-regression test file for bug 2149
28// Copyright INRIA 26// Copyright INRIA
29// Scilab Project - Allan CORNET 27// Scilab Project - Allan CORNET
30// Copyright INRIA 2006 28// Copyright INRIA 2006
31 29
32mode(-1);
33clear
34
35correctItem=0; 30correctItem=0;
36 31
37M=[1+%i;2+3*%i] ; 32M=[1+%i;2+3*%i] ;
@@ -61,6 +56,3 @@ if (correctItem == 2) then
61else 56else
62 affich_result(%F,2149); 57 affich_result(%F,2149);
63end 58end
64
65
66clear
diff --git a/tests/nonRegression/bug2162.sci b/tests/nonRegression/bug2162.sci
index 8b960ff..fa757dc 100644
--- a/tests/nonRegression/bug2162.sci
+++ b/tests/nonRegression/bug2162.sci
@@ -6,16 +6,11 @@
6// <-- Short Description --> 6// <-- Short Description -->
7// When using plot3d with facets coordinates, it is impossible to draw a single facet. 7// When using plot3d with facets coordinates, it is impossible to draw a single facet.
8 8
9
10// Non-regression test file for bug 2162
11// Copyright INRIA 9// Copyright INRIA
12// Scilab Project - Jean-Baptiste Silvy 10// Scilab Project - Jean-Baptiste Silvy
13// Copyright INRIA 2006 11// Copyright INRIA 2006
14// Date : October 19 2006 12// Date : October 19 2006
15 13
16mode(-1);
17clear;
18
19xf = [0;0;0;0] ; 14xf = [0;0;0;0] ;
20yf = [0;1;1;0] ; 15yf = [0;1;1;0] ;
21zf = [0;0;1;1] ; // coordinates of a square 16zf = [0;0;1;1] ; // coordinates of a square
@@ -31,5 +26,3 @@ else
31 affich_result(%F,2162); 26 affich_result(%F,2162);
32end 27end
33 28
34clear;
35
diff --git a/tests/nonRegression/bug2181.sci b/tests/nonRegression/bug2181.sci
index 927c8cc..aedacc7 100644
--- a/tests/nonRegression/bug2181.sci
+++ b/tests/nonRegression/bug2181.sci
@@ -9,15 +9,10 @@
9// 9//
10// Francois 10// Francois
11 11
12
13// Non-regression test file for bug 2181
14// Pierre MARECHAL - Scilab Project 12// Pierre MARECHAL - Scilab Project
15// Copyright INRIA 13// Copyright INRIA
16// 30 octobre 2006 14// 30 octobre 2006
17 15
18mode(-1);
19clear;
20
21if MSDOS then 16if MSDOS then
22 17
23 test1 = getrelativefilename("D:\","C:\Program Files\scilab\readme.txt"); 18 test1 = getrelativefilename("D:\","C:\Program Files\scilab\readme.txt");
@@ -39,5 +34,3 @@ if MSDOS then
39else 34else
40 affich_result(%T,2181); 35 affich_result(%T,2181);
41end 36end
42
43clear
diff --git a/tests/nonRegression/bug2263.sci b/tests/nonRegression/bug2263.sci
index d64e66f..0b49e46 100644
--- a/tests/nonRegression/bug2263.sci
+++ b/tests/nonRegression/bug2263.sci
@@ -21,14 +21,10 @@
21// e=in+4; 21// e=in+4;
22// endfunction 22// endfunction
23 23
24
25// Non-regression test file for bug 2263
26// Serge Steer - Scilab Project 24// Serge Steer - Scilab Project
27// Copyright INRIA 25// Copyright INRIA
28// 2 janv 2007 26// 2 janv 2007
29 27
30mode(-1);
31clear;
32function [a,b,c,d,e]=test() 28function [a,b,c,d,e]=test()
33 a=1;b=2;c=3;d=4;e=5; 29 a=1;b=2;c=3;d=4;e=5;
34endfunction 30endfunction
diff --git a/tests/nonRegression/bug2264.sci b/tests/nonRegression/bug2264.sci
index c60aba6..890f6c8 100644
--- a/tests/nonRegression/bug2264.sci
+++ b/tests/nonRegression/bug2264.sci
@@ -6,15 +6,10 @@
6// <-- Short Description --> 6// <-- Short Description -->
7// lcm gives wrong value for 3-element vectors(cf bug 666) 7// lcm gives wrong value for 3-element vectors(cf bug 666)
8 8
9
10// Non-regression test file for bug 2264
11// Serge Steer - Scilab Project 9// Serge Steer - Scilab Project
12// Copyright INRIA 10// Copyright INRIA
13// 2 janv 2007 11// 2 janv 2007
14 12
15mode(-1);
16clear;
17
18[q,fact]=lcm(int32([-6 5 7 12 4])); 13[q,fact]=lcm(int32([-6 5 7 12 4]));
19T=q==int32(420); 14T=q==int32(420);
20[q,fact]=lcm(int32([6 5 7 3 4])) ; 15[q,fact]=lcm(int32([6 5 7 3 4])) ;
diff --git a/tests/nonRegression/bug2268.sci b/tests/nonRegression/bug2268.sci
index 316ed47..2b0ca74 100644
--- a/tests/nonRegression/bug2268.sci
+++ b/tests/nonRegression/bug2268.sci
@@ -7,16 +7,10 @@
7// Memory leak in msscanf(). When calling msscanf() many times, as in reading in 7// Memory leak in msscanf(). When calling msscanf() many times, as in reading in
8// large CSV files, process size grows beyond memory capacity. 8// large CSV files, process size grows beyond memory capacity.
9 9
10
11// Non-regression test file for bug 2266
12// Serge Steer - Scilab Project 10// Serge Steer - Scilab Project
13// Copyright INRIA 11// Copyright INRIA
14// 2 janv 2007 12// 2 janv 2007
15 13
16mode(-1);
17clear;
18
19
20free=getmemory() ; 14free=getmemory() ;
21for k=1:10000 15for k=1:10000
22 foo=msscanf('1.234 44 55 66 77 88 88 ', '%f %f %f %f %f %f %f '); 16 foo=msscanf('1.234 44 55 66 77 88 88 ', '%f %f %f %f %f %f %f ');
diff --git a/tests/nonRegression/bug2270.sci b/tests/nonRegression/bug2270.sci
index 0f8814a..a3d0d1d 100644
--- a/tests/nonRegression/bug2270.sci
+++ b/tests/nonRegression/bug2270.sci
@@ -10,15 +10,11 @@
10// specific month. 10// specific month.
11 11
12 12
13// Non-regression test file for bug 2270
14// Copyright INRIA 13// Copyright INRIA
15// Scilab Project - Pierre MARECHAL 14// Scilab Project - Pierre MARECHAL
16// Copyright INRIA 2007 15// Copyright INRIA 2007
17// Date : 3 janvier 2007 16// Date : 3 janvier 2007
18 17
19mode(-1);
20clear;
21
22execstr('datenum(2006,12,32)','errcatch'); 18execstr('datenum(2006,12,32)','errcatch');
23error_str = lasterror(); 19error_str = lasterror();
24 20
@@ -27,5 +23,3 @@ if stripblanks(error_str) <> "The third argument must be between 1 and 31" then
27else 23else
28 affich_result(%T,2270); 24 affich_result(%T,2270);
29end 25end
30
31clear
diff --git a/tests/nonRegression/bug2277.sci b/tests/nonRegression/bug2277.sci
index 048cbdf..e3bc4dd 100644
--- a/tests/nonRegression/bug2277.sci
+++ b/tests/nonRegression/bug2277.sci
@@ -12,17 +12,11 @@
12// example) they are still stored in the sparse representation. 12// example) they are still stored in the sparse representation.
13// This is very problematic for people doing finite element calculations with scilab! 13// This is very problematic for people doing finite element calculations with scilab!
14 14
15
16// Non-regression test file for bug 2277
17// Copyright INRIA 15// Copyright INRIA
18// Scilab Project - S. Steer 16// Scilab Project - S. Steer
19// Copyright INRIA 17// Copyright INRIA
20// Date : 17 Janv 2007 18// Date : 17 Janv 2007
21 19
22mode(-1);
23clear;
24
25
26ij = [1,3;1,7;3,3;4,4;5,3;6,10;7,1;7,9;8,10;9,6;9,7;9,9;10,10] ; 20ij = [1,3;1,7;3,3;4,4;5,3;6,10;7,1;7,9;8,10;9,6;9,7;9,9;10,10] ;
27v=[1 0 0 4:13]'*%i; 21v=[1 0 0 4:13]'*%i;
28A=sparse(ij,v,[10 10]); 22A=sparse(ij,v,[10 10]);
@@ -31,5 +25,3 @@ r= and(v2==[1 4:13]'*%i) ;
31ij(2:3,:)=[]; 25ij(2:3,:)=[];
32r=r&and(ij==ij2); 26r=r&and(ij==ij2);
33affich_result(r,2277); 27affich_result(r,2277);
34
35clear;
diff --git a/tests/nonRegression/bug2284.sci b/tests/nonRegression/bug2284.sci
index a9c0519..3aeee5f 100644
--- a/tests/nonRegression/bug2284.sci
+++ b/tests/nonRegression/bug2284.sci
@@ -15,14 +15,11 @@
15// This is the wrong result!! 15// This is the wrong result!!
16 16
17 17
18// Non-regression test file for bug 2284
19// Copyright INRIA 18// Copyright INRIA
20// Scilab Project - S. Steer 19// Scilab Project - S. Steer
21// Copyright INRIA 20// Copyright INRIA
22// Date : 17 Janv 2007 21// Date : 17 Janv 2007
23 22
24mode(-1);
25clear;
26s1=-9.999999999; 23s1=-9.999999999;
27s2=0.999999999999; 24s2=0.999999999999;
28 25
@@ -32,5 +29,3 @@ r=and(txt== [" s2 =";" ";" 1. ";" s1 =";" ";" -10. "])
32mdelete(TMPDIR+'/bug2284') 29mdelete(TMPDIR+'/bug2284')
33 30
34affich_result(r,2284); 31affich_result(r,2284);
35
36clear;
diff --git a/tests/nonRegression/bug2322.sci b/tests/nonRegression/bug2322.sci
index bd0ce38..a516294 100644
--- a/tests/nonRegression/bug2322.sci
+++ b/tests/nonRegression/bug2322.sci
@@ -7,14 +7,10 @@
7// emptystr(0,1) returns an empty matrix of size 0 x 1 which is not coherent with 7// emptystr(0,1) returns an empty matrix of size 0 x 1 which is not coherent with
8// current empty matrix managment. 8// current empty matrix managment.
9 9
10
11// Non-regression test file for bug 2322
12// Serge Steer - Scilab Project 10// Serge Steer - Scilab Project
13// Copyright INRIA 11// Copyright INRIA
14// 19/02/2007 12// 19/02/2007
15 13
16mode(-1);
17clear;
18r=%t 14r=%t
19r=r&and(size(emptystr(0,1))==[0 0]); 15r=r&and(size(emptystr(0,1))==[0 0]);
20r=r&and(size(emptystr(1,0))==[0 0]); 16r=r&and(size(emptystr(1,0))==[0 0]);
@@ -24,4 +20,3 @@ r=r&and(size(emptystr(0,0))==[0 0]);
24r=r&and(size(emptystr(3,5))==[3 5]); 20r=r&and(size(emptystr(3,5))==[3 5]);
25 21
26affich_result(r,2322); 22affich_result(r,2322);
27clear
diff --git a/tests/nonRegression/bug2330.sci b/tests/nonRegression/bug2330.sci
index 78905c0..9055609 100644
--- a/tests/nonRegression/bug2330.sci
+++ b/tests/nonRegression/bug2330.sci
@@ -9,14 +9,10 @@
9// partially (some data are fitted some others not) on WinXP. 9// partially (some data are fitted some others not) on WinXP.
10 10
11 11
12// Non-regression test file for bug 2330
13// Serge Steer - Scilab Project 12// Serge Steer - Scilab Project
14// Copyright INRIA 13// Copyright INRIA
15// 30 apr 2007 14// 30 apr 2007
16 15
17mode(-1);
18clear;
19
20//build the data to fit 16//build the data to fit
21//--------------------- 17//---------------------
22function Xcalc=biexp(p,t) 18function Xcalc=biexp(p,t)
@@ -35,5 +31,3 @@ p0=[0.01;0.001;0.01;0.001;0.1];
35//call datafit 31//call datafit
36[pr,err]=datafit(list(myerf,t),X,p0); 32[pr,err]=datafit(list(myerf,t),X,p0);
37affich_result(err<5d-6,2330); 33affich_result(err<5d-6,2330);
38clear
39
diff --git a/tests/nonRegression/bug2333.sci b/tests/nonRegression/bug2333.sci
index 5c808b8..3b6d8f1 100644
--- a/tests/nonRegression/bug2333.sci
+++ b/tests/nonRegression/bug2333.sci
@@ -10,16 +10,11 @@
10// only when calling another matlab function. 10// only when calling another matlab function.
11 11
12 12
13// Non-regression test file for bug 2333
14// Vincent COUVERT - Scilab Project 13// Vincent COUVERT - Scilab Project
15// Copyright INRIA 14// Copyright INRIA
16// 15/03/2007 15// 15/03/2007
17 16
18mode(-1);
19clear;
20
21load("SCI/modules/m2sci/macros/kernel/lib"); 17load("SCI/modules/m2sci/macros/kernel/lib");
22r=exists("mfile_path"); 18r=exists("mfile_path");
23 19
24affich_result(r,2322); 20affich_result(r,2322);
25clear
diff --git a/tests/nonRegression/bug2341.sci b/tests/nonRegression/bug2341.sci
index 5d67acc..fb18e88 100644
--- a/tests/nonRegression/bug2341.sci
+++ b/tests/nonRegression/bug2341.sci
@@ -6,14 +6,9 @@
6// <-- Short Description --> 6// <-- Short Description -->
7// unhandled matlab syntax for lhs (Matlab accepts lhs calling sequence without commas 7// unhandled matlab syntax for lhs (Matlab accepts lhs calling sequence without commas
8 8
9
10// Non-regression test file for bug 2341
11// Copyright INRIA 9// Copyright INRIA
12// Scilab Project - Vincent COUVERT 10// Scilab Project - Vincent COUVERT
13 11
14//mode(-1);
15clear;
16
17MFILE=TMPDIR+"/bug2341.m" 12MFILE=TMPDIR+"/bug2341.m"
18SCIFILE=TMPDIR+"/bug2341.sci" 13SCIFILE=TMPDIR+"/bug2341.sci"
19 14
@@ -108,7 +103,3 @@ ierr=execstr("mfile2sci("""+MFILE+""","""+TMPDIR+""")","errcatch")
108correct=correct&ierr==0; 103correct=correct&ierr==0;
109 104
110affich_result(correct,2341); 105affich_result(correct,2341);
111
112clear
113
114
diff --git a/tests/nonRegression/bug2344.sci b/tests/nonRegression/bug2344.sci
index 4d58114..7ae197a 100644
--- a/tests/nonRegression/bug2344.sci
+++ b/tests/nonRegression/bug2344.sci
@@ -16,35 +16,27 @@
16// 16//
17// Francois 17// Francois
18 18
19// Author : Francois Vogel
20// Date : 16 March 2007
21//
22// Extracted and expanded from dassldasrt.tst
23
24//X1DOT + 10.0*X1 = 0
25//X1 + X2 = 1
26//X1(0) = 1.0, X2(0) = 0.0
27
28t=1:10;t0=0;y0=[1;0];y0d=[-10;0];
29info=list([],0,[],[],[],0,0);
30deff('[r,ires]=dres1(t,y,ydot)','r=[ydot(1)+10*y(1);y(2)+y(1)-1];ires=0')
31
32ml = 1; mu = 1;
33info(3)=[ml,mu];
34
35execstr("yy0=dassl([y0,y0d],t0,t,dres1,info);","errcatch")
36error_str = lasterror();
19 37
20// Non-regression test file for bug 2344 38if and(error_str == []) then
21// Author : Francois Vogel 39 affich_result(%T,2344); // No regression
22// Date : 16 March 2007 40else
23// 41 affich_result(%F,2344); // Bug 2344 re-appeared!!
24// Extracted and expanded from dassldasrt.tst 42end
25
26//X1DOT + 10.0*X1 = 0
27//X1 + X2 = 1
28//X1(0) = 1.0, X2(0) = 0.0
29
30mode(-1);
31clear;
32
33t=1:10;t0=0;y0=[1;0];y0d=[-10;0];
34info=list([],0,[],[],[],0,0);
35deff('[r,ires]=dres1(t,y,ydot)','r=[ydot(1)+10*y(1);y(2)+y(1)-1];ires=0')
36
37ml = 1; mu = 1;
38info(3)=[ml,mu];
39
40execstr("yy0=dassl([y0,y0d],t0,t,dres1,info);","errcatch")
41error_str = lasterror();
42
43if and(error_str == []) then
44 affich_result(%T,2344); // No regression
45else
46 affich_result(%F,2344); // Bug 2344 re-appeared!!
47end
48
49clear
50
diff --git a/tests/nonRegression/bug2362.sci b/tests/nonRegression/bug2362.sci
index 09830bb..08827df 100644
--- a/tests/nonRegression/bug2362.sci
+++ b/tests/nonRegression/bug2362.sci
@@ -12,20 +12,11 @@
12// 12//
13// Francois 13// Francois
14 14
15
16// Non-regression test file for bug 2362
17// Copyright INRIA 15// Copyright INRIA
18// Scilab Project - Jean-Baptiste Silvy 16// Scilab Project - Jean-Baptiste Silvy
19// Copyright INRIA 2007 17// Copyright INRIA 2007
20// Date : 5 avril 2007 18// Date : 5 avril 2007
21 19
22mode(-1);
23clear;
24
25// crashed before the bug fix 20// crashed before the bug fix
26plot3d3([0,0;10,10],[5,3;5,5],[0,2;0,2]); 21plot3d3([0,0;10,10],[5,3;5,5],[0,2;0,2]);
27
28affich_result(%T,2362); 22affich_result(%T,2362);
29
30clear;
31
diff --git a/tests/nonRegression/bug2396.sci b/tests/nonRegression/bug2396.sci
index 54fb39c..7306910 100644
--- a/tests/nonRegression/bug2396.sci
+++ b/tests/nonRegression/bug2396.sci
@@ -11,15 +11,10 @@
11// 11//
12// Matthias 12// Matthias
13 13
14
15// Non-regression test file for bug 2396
16// Serge Steer - Scilab Project 14// Serge Steer - Scilab Project
17// Copyright INRIA 15// Copyright INRIA
18// 14 may 2007 16// 14 may 2007
19 17
20mode(-1);
21clear;
22
23a1 = [1 2 3] 18a1 = [1 2 3]
24a2 = [1 3 4 5 1 6 7] 19a2 = [1 3 4 5 1 6 7]
25function y=elfind(x),y = (find(a2 == x) ~= []),endfunction 20function y=elfind(x),y = (find(a2 == x) ~= []),endfunction
diff --git a/tests/nonRegression/bug2399.sci b/tests/nonRegression/bug2399.sci
index 2fc4ca3..48f1010 100644
--- a/tests/nonRegression/bug2399.sci
+++ b/tests/nonRegression/bug2399.sci
@@ -7,15 +7,10 @@
7// msscanf crashes scilab when scanning a vector of strings for float 7// msscanf crashes scilab when scanning a vector of strings for float
8// values on Linux. 8// values on Linux.
9 9
10
11// Non-regression test file for bug 2399
12// Author : Scilab Project - Pierre MARECHAL 10// Author : Scilab Project - Pierre MARECHAL
13// Copyright INRIA 11// Copyright INRIA
14// Date : 05 mai 2007 12// Date : 05 mai 2007
15 13
16mode(-1);
17clear;
18
19toks = ['noddy';'holden']; 14toks = ['noddy';'holden'];
20vals = msscanf(-1,toks,'%f'); 15vals = msscanf(-1,toks,'%f');
21 16
@@ -24,5 +19,3 @@ if( vals == [] ) then
24else 19else
25 affich_result(%F,2399); 20 affich_result(%F,2399);
26end 21end
27
28clear
diff --git a/tests/nonRegression/bug2407.sci b/tests/nonRegression/bug2407.sci
index 41d3581..e7bce7f 100644
--- a/tests/nonRegression/bug2407.sci
+++ b/tests/nonRegression/bug2407.sci
@@ -19,15 +19,10 @@
19// 19//
20// Regards. 20// Regards.
21 21
22
23// Non-regression test file for bug 2407
24// Author : Scilab Project - Pierre MARECHAL 22// Author : Scilab Project - Pierre MARECHAL
25// Copyright INRIA 23// Copyright INRIA
26// Date : 05 mai 2007 24// Date : 05 mai 2007
27 25
28mode(-1);
29clear;
30
31a = zeros(3,3,3); 26a = zeros(3,3,3);
32b = stdev(a); 27b = stdev(a);
33 28
@@ -36,5 +31,3 @@ if( b == 0 ) then
36else 31else
37 affich_result(%F,2407); 32 affich_result(%F,2407);
38end 33end
39
40clear
diff --git a/tests/nonRegression/bug2410.sci b/tests/nonRegression/bug2410.sci
index 4419b08..b9f5c98 100644
--- a/tests/nonRegression/bug2410.sci
+++ b/tests/nonRegression/bug2410.sci
@@ -6,15 +6,10 @@
6// <-- Short Description --> 6// <-- Short Description -->
7// string(boolean array) is incredibly slow 7// string(boolean array) is incredibly slow
8 8
9
10// Non-regression test file for bug 2410
11// Author : Scilab Project - Pierre MARECHAL 9// Author : Scilab Project - Pierre MARECHAL
12// Copyright INRIA 10// Copyright INRIA
13// Date : 05 mai 2007 11// Date : 05 mai 2007
14 12
15mode(-1);
16clear;
17
18tic(); 13tic();
19string(zeros(1,10000)==1); 14string(zeros(1,10000)==1);
20a = toc(); 15a = toc();
@@ -24,5 +19,3 @@ if( a < 0.1 ) then
24else 19else
25 affich_result(%F,2410); 20 affich_result(%F,2410);
26end 21end
27
28clear
diff --git a/tests/nonRegression/bug2414.sci b/tests/nonRegression/bug2414.sci
index db7de0c..01cca68 100644
--- a/tests/nonRegression/bug2414.sci
+++ b/tests/nonRegression/bug2414.sci
@@ -7,15 +7,10 @@
7// assignment of empty string an empty variable has disastrous results. Probably a 7// assignment of empty string an empty variable has disastrous results. Probably a
8// parser bug, for statements of the form a=string(a), with a=[] 8// parser bug, for statements of the form a=string(a), with a=[]
9 9
10
11// Non-regression test file for bug 2414
12// Author : Scilab Project - Pierre MARECHAL 10// Author : Scilab Project - Pierre MARECHAL
13// Copyright INRIA 11// Copyright INRIA
14// Date : 05 mai 2007 12// Date : 05 mai 2007
15 13
16mode(-1);
17clear;
18
19a=[]; 14a=[];
20a = string(a); 15a = string(a);
21 16
@@ -24,5 +19,3 @@ if( (type(a) == 1) & (typeof(a) == "constant") & and(size(a) == [0 0]) & (a($,1)
24else 19else
25 affich_result(%F,2414); 20 affich_result(%F,2414);
26end 21end
27
28clear
diff --git a/tests/nonRegression/bug2420.sci b/tests/nonRegression/bug2420.sci
index d7e998b..c79ea05 100644
--- a/tests/nonRegression/bug2420.sci
+++ b/tests/nonRegression/bug2420.sci
@@ -11,11 +11,9 @@
11// Copyright INRIA 2007 11// Copyright INRIA 2007
12// Date : June 2007 12// Date : June 2007
13 13
14mode(-1) ;
15clear ;
16BugNumber=2420; 14BugNumber=2420;
17function a=strudel(),a='+\@+';endfunction 15function a=strudel(),a='+\@+';endfunction
18t=fun2string(strudel) 16t=fun2string(strudel)
19T=stripblanks(t(2))=="a = ''+\@+'';" 17T=stripblanks(t(2))=="a = ''+\@+'';"
20affich_result(T,BugNumber) ; 18affich_result(T,BugNumber) ;
21clear ; 19
diff --git a/tests/nonRegression/bug2421.sci b/tests/nonRegression/bug2421.sci
index 7bd976f..a0f5997 100644
--- a/tests/nonRegression/bug2421.sci
+++ b/tests/nonRegression/bug2421.sci
@@ -7,14 +7,10 @@
7// colon (all elements) assignment from output arguments of a function beyond the 7// colon (all elements) assignment from output arguments of a function beyond the
8// first not possible 8// first not possible
9 9
10
11// Scilab Project - Serge Steer 10// Scilab Project - Serge Steer
12// Copyright INRIA 2007 11// Copyright INRIA 2007
13// Date : June 2007 12// Date : June 2007
14 13
15mode(-1) ;
16clear ;
17BugNumber=2421 14BugNumber=2421
18T=execstr('[a(:), v(1)] = (1, 2)','errcatch')==0 15T=execstr('[a(:), v(1)] = (1, 2)','errcatch')==0
19affich_result(T,BugNumber) ; 16affich_result(T,BugNumber) ;
20clear ;
diff --git a/tests/nonRegression/bug2428.sci b/tests/nonRegression/bug2428.sci
index 447582a..479dfa1 100644
--- a/tests/nonRegression/bug2428.sci
+++ b/tests/nonRegression/bug2428.sci
@@ -11,14 +11,9 @@
11// the first case the conversion fails without errors, in the second case 11// the first case the conversion fails without errors, in the second case
12// an error appears and a message suggests to report here the error. 12// an error appears and a message suggests to report here the error.
13 13
14
15// Non-regression test file for bug 2428
16// Copyright INRIA 14// Copyright INRIA
17// Scilab Project - Vincent COUVERT 15// Scilab Project - Vincent COUVERT
18 16
19//mode(-1);
20clear;
21
22MFILE=TMPDIR+"/bug2428.m" 17MFILE=TMPDIR+"/bug2428.m"
23SCIFILE=TMPDIR+"/bug2428.sci" 18SCIFILE=TMPDIR+"/bug2428.sci"
24 19
@@ -38,6 +33,3 @@ correct=correct&ierr==0;
38 33
39//affich_result(correct,2428); 34//affich_result(correct,2428);
40disp(correct); 35disp(correct);
41clear
42
43
diff --git a/tests/nonRegression/bug2429.sci b/tests/nonRegression/bug2429.sci
index cdc2700..e3799b0 100644
--- a/tests/nonRegression/bug2429.sci
+++ b/tests/nonRegression/bug2429.sci
@@ -6,17 +6,11 @@
6// <-- Short Description --> 6// <-- Short Description -->
7// Implicit vector in for loop are allocated 7// Implicit vector in for loop are allocated
8 8
9
10// Non-regression test file for bug 2429
11// Copyright INRIA 9// Copyright INRIA
12// Scilab Project - Serge Steer 10// Scilab Project - Serge Steer
13// Copyright INRIA 2007 11// Copyright INRIA 2007
14// Date : June 2007 12// Date : June 2007
15 13
16mode(-1) ;
17clear ;
18
19
20S=stacksize(); 14S=stacksize();
21function test(),for k=1:2d5,end,endfunction 15function test(),for k=1:2d5,end,endfunction
22 16
diff --git a/tests/nonRegression/bug2430.sci b/tests/nonRegression/bug2430.sci
index 84db59f..5567a07 100644
--- a/tests/nonRegression/bug2430.sci
+++ b/tests/nonRegression/bug2430.sci
@@ -17,10 +17,7 @@
17// Copyright INRIA 2007 17// Copyright INRIA 2007
18// Date : June 2007 18// Date : June 2007
19 19
20mode(-1) ;
21clear ;
22BugNumber=2430 20BugNumber=2430
23b=sparse(1:16); 21b=sparse(1:16);
24T=and(abs(full(2\b)-2\full(b))<100*%eps); 22T=and(abs(full(2\b)-2\full(b))<100*%eps);
25affich_result(T,BugNumber) ; 23affich_result(T,BugNumber) ;
26clear ;
diff --git a/tests/nonRegression/bug2435.sci b/tests/nonRegression/bug2435.sci
index abb22b7..2f81d76 100644
--- a/tests/nonRegression/bug2435.sci
+++ b/tests/nonRegression/bug2435.sci
@@ -11,8 +11,6 @@
11// Copyright INRIA 2007 11// Copyright INRIA 2007
12// Date : June 2007 12// Date : June 2007
13 13
14mode(-1) ;
15clear ;
16BugNumber=2435; 14BugNumber=2435;
17 15
18function [f,g,ind]=cost(x,ind) 16function [f,g,ind]=cost(x,ind)
@@ -25,4 +23,3 @@ x0=[1;-1;1];
25T=execstr('[f,xopt]=optim(cost,,''b'',-2*ones(x0),2*ones(x0),x0);','errcatch')==54 23T=execstr('[f,xopt]=optim(cost,,''b'',-2*ones(x0),2*ones(x0),x0);','errcatch')==54
26 24
27affich_result(T,BugNumber) ; 25affich_result(T,BugNumber) ;
28clear ;
diff --git a/tests/nonRegression/bug2453.sci b/tests/nonRegression/bug2453.sci
index 1ea7838..f94647d 100644
--- a/tests/nonRegression/bug2453.sci
+++ b/tests/nonRegression/bug2453.sci
@@ -12,12 +12,8 @@
12// Copyright INRIA 2007 12// Copyright INRIA 2007
13// Date : Aug 2007 13// Date : Aug 2007
14 14
15mode(-1) ;
16clear ;
17BugNumber=2453; 15BugNumber=2453;
18fd=mopen('bug2453.dat','r'); 16fd=mopen('bug2453.dat','r');
19Lx=mfscanf(-1,fd,'%g %g\n');mclose(fd); 17Lx=mfscanf(-1,fd,'%g %g\n');mclose(fd);
20T=size(Lx,1)==40000; 18T=size(Lx,1)==40000;
21affich_result(T,BugNumber) ; 19affich_result(T,BugNumber) ;
22clear ;
23
diff --git a/tests/nonRegression/bug2467.sci b/tests/nonRegression/bug2467.sci
index 5e24644..8a1202f 100644
--- a/tests/nonRegression/bug2467.sci
+++ b/tests/nonRegression/bug2467.sci
@@ -12,8 +12,6 @@
12// Copyright INRIA 2007 12// Copyright INRIA 2007
13// Date : Sept 2007 13// Date : Sept 2007
14 14
15mode(-1) ;
16clear ;
17BugNumber=2467 15BugNumber=2467
18plot(1:10) 16plot(1:10)
19a=gca();a.log_flags='lnn'; 17a=gca();a.log_flags='lnn';
@@ -23,4 +21,3 @@ clf();
23T=execstr("xload(path)",'errcatch')==0 21T=execstr("xload(path)",'errcatch')==0
24 22
25affich_result(T,BugNumber) ; 23affich_result(T,BugNumber) ;
26clear ;
diff --git a/tests/nonRegression/bug2616.sci b/tests/nonRegression/bug2616.sci
index 4952a0a..471960d 100644
--- a/tests/nonRegression/bug2616.sci
+++ b/tests/nonRegression/bug2616.sci
@@ -12,8 +12,6 @@
12// Copyright INRIA 2007 12// Copyright INRIA 2007
13// Date : June 2007 13// Date : June 2007
14 14
15mode(-1) ;
16clear ;
17BugNumber=2616; 15BugNumber=2616;
18T=[]; 16T=[];
19//simple case uncompiled 17//simple case uncompiled
@@ -62,5 +60,3 @@ T=[T,ierr<>17];
62stacksize(old(1)) 60stacksize(old(1))
63 61
64affich_result(and(~T),BugNumber) ; 62affich_result(and(~T),BugNumber) ;
65clear ;
66
diff --git a/tests/nonRegression/bug461.sci b/tests/nonRegression/bug461.sci
index bf095d8..a8dc8e7 100644
--- a/tests/nonRegression/bug461.sci
+++ b/tests/nonRegression/bug461.sci
@@ -26,12 +26,6 @@
26// d=splin(x,f ); 26// d=splin(x,f );
27// ... 27// ...
28 28
29
30// bug461
31
32mode (-1);
33clear;
34
35correct=%F; 29correct=%F;
36x=[0. 1.01 2.01 3. 4.02]; 30x=[0. 1.01 2.01 3. 4.02];
37f=[0. 1. 3.9 8.75 16.5]; 31f=[0. 1. 3.9 8.75 16.5];
diff --git a/tests/nonRegression/bug464.sci b/tests/nonRegression/bug464.sci
index c1c9fb4..574d71b 100644
--- a/tests/nonRegression/bug464.sci
+++ b/tests/nonRegression/bug464.sci
@@ -19,23 +19,9 @@
19// Israel July 21, 2003 at 9:13:19 19// Israel July 21, 2003 at 9:13:19
20 20
21 21
22// bug464
23
24mode (-1)
25clear
26
27correct=%F 22correct=%F
28result=execstr("inttype(1)","errcatch","n") 23result=execstr("inttype(1)","errcatch","n")
29if result == 0 then 24if result == 0 then
30 correct=(inttype(1)==0) 25 correct=(inttype(1)==0)
31end 26end
32affich_result(correct, 464) 27affich_result(correct, 464)
33
34clear
35
36// "1" is a double, and inttype is not defined for a double argument
37// the error message is confusing
38//Error message :
39// -->inttype(1)
40// !--error 44
41//***th argument is incorrect
diff --git a/tests/nonRegression/bug467.sci b/tests/nonRegression/bug467.sci
index 7728660..44d66bb 100644
--- a/tests/nonRegression/bug467.sci
+++ b/tests/nonRegression/bug467.sci
@@ -26,35 +26,9 @@
26// z = wavread('c:\b.wav',100000); 26// z = wavread('c:\b.wav',100000);
27// ... 27// ...
28 28
29
30// bug467
31
32mode (-1)
33clear
34
35correct=%F 29correct=%F
36result=execstr("[x,y] = wavread(''bug467.wav'',''size'')","errcatch","n") 30result=execstr("[x,y] = wavread(''bug467.wav'',''size'')","errcatch","n")
37if result == 0 then 31if result == 0 then
38 result=execstr("z = wavread(""bug467.wav"",10)","errcatch","n") 32 result=execstr("z = wavread(""bug467.wav"",10)","errcatch","n")
39end 33end
40affich_result(result==0, 467) 34affich_result(result==0, 467)
41
42clear
43
44// The Error Messages are:
45// !--error 4
46// undefined variable : erro
47// at line 26 of function read_dat_pcm called by :
48// line 6 of function read_wavedat called by :
49// line 93 of function wavread called by :
50// [x,y] = wavread('c:\b.wav','size');
51
52// !--error 246
53// function not defined for given argument type(s)
54// Check arguments or define function %s_convstr for overloading
55// at line 28 of function wavread called by :
56// z = wavread('c:\b.wav',100000);
57
58
59
60
diff --git a/tests/nonRegression/bug470.sci b/tests/nonRegression/bug470.sci
index e721819..0482171 100644
--- a/tests/nonRegression/bug470.sci
+++ b/tests/nonRegression/bug470.sci
@@ -5,12 +5,14 @@
5// 5//
6// <-- Short Description --> 6// <-- Short Description -->
7// Bug Report Id: 120442003624162135 7// Bug Report Id: 120442003624162135
8// %i_i_i is undefined because /macros/percent/%i_i_i.sci is WRONG and defines function %i_i_s() instead. Changing s->i there (and eventually the comments) should fix it. 8// %i_i_i is undefined because /macros/percent/%i_i_i.sci is WRONG and
9// defines function %i_i_s() instead. Changing s->i there (and eventually
10// the comments) should fix it.
9// 11//
10// On Scilab CVS with " %i_i_i " function 12// On Scilab CVS with " %i_i_i " function
11// The Error Messages are: 13// The Error Messages are:
12// !--error 4 14// !--error 4
13// undefined variable : %i_i_i 15// undefined variable : %i_i_i
14// 16//
15// Commands: a=int8(ones(2,2)); a(1,1)=uint8(2) 17// Commands: a=int8(ones(2,2)); a(1,1)=uint8(2)
16// 18//
@@ -18,28 +20,8 @@
18// Israel July 24, 2003 at 16:21:35 20// Israel July 24, 2003 at 16:21:35
19 21
20 22
21// bug470
22
23mode (-1)
24clear
25
26// correct=%F
27result=execstr("a=int8(ones(2,2))","errcatch","n") 23result=execstr("a=int8(ones(2,2))","errcatch","n")
28if result == 0 then 24if result == 0 then
29 result=execstr("a(1,1)=uint8(2)","errcatch","n") 25 result=execstr("a(1,1)=uint8(2)","errcatch","n")
30end 26end
31affich_result(result==0, 470) 27affich_result(result==0, 470)
32
33clear
34
35// %i_i_i is undefined because /macros/percent/%i_i_i.sci is WRONG
36// and defines function %i_i_s() instead.
37// Changing s->i there (and eventually the comments) should fix it.
38//
39//The Error Messages are:
40// !--error 4
41// undefined variable : %i_i_i
42
43
44
45
diff --git a/tests/nonRegression/bug474.sci b/tests/nonRegression/bug474.sci
index 245cda3..6813ec3 100644
--- a/tests/nonRegression/bug474.sci
+++ b/tests/nonRegression/bug474.sci
@@ -26,12 +26,6 @@
26// 26//
27// ... 27// ...
28 28
29
30// bug474
31
32mode (-1)
33clear
34
35//correct=%F 29//correct=%F
36a=matrix(1:9,3,3) 30a=matrix(1:9,3,3)
37[mia,kia]=min(a) 31[mia,kia]=min(a)
@@ -45,13 +39,3 @@ affich_result(mia==mib, 474.1)
45affich_result(and(kia==kib), 474.2) 39affich_result(and(kia==kib), 474.2)
46affich_result(maa==mab, 474.3) 40affich_result(maa==mab, 474.3)
47affich_result(and(kaa==kab), 474.4) 41affich_result(and(kaa==kab), 474.4)
48
49clear
50
51//
52//The Error Messages are:
53// kib and kab should be a 2 element vector!!
54
55
56
57
diff --git a/tests/nonRegression/bug475.sci b/tests/nonRegression/bug475.sci
index 5e29d27..239b3c9 100644
--- a/tests/nonRegression/bug475.sci
+++ b/tests/nonRegression/bug475.sci
@@ -24,12 +24,6 @@
24// Enrico Segre on Linux version RH9 distribution with gnome as window manager 24// Enrico Segre on Linux version RH9 distribution with gnome as window manager
25// Israel July 24, 2003 at 17:51:50 25// Israel July 24, 2003 at 17:51:50
26 26
27
28// bug475
29
30mode (-1)
31clear
32
33//correct=%F 27//correct=%F
34a=hypermat([3,3,1],uint16(1:9)) 28a=hypermat([3,3,1],uint16(1:9))
35result=execstr("[m,k]=max(a)","errcatch","n") 29result=execstr("[m,k]=max(a)","errcatch","n")
@@ -37,13 +31,3 @@ if result == 0 then
37 result=execstr("[m,k]=min(a)","errcatch","n") 31 result=execstr("[m,k]=min(a)","errcatch","n")
38end 32end
39affich_result(result==0, 475) 33affich_result(result==0, 475)
40
41clear
42
43// The Error Messages are:
44// !--error 59
45// incorrect # of outputs in the function
46
47
48
49
diff --git a/tests/nonRegression/bug476.sci b/tests/nonRegression/bug476.sci
index f2d6eed..2081034 100644
--- a/tests/nonRegression/bug476.sci
+++ b/tests/nonRegression/bug476.sci
@@ -26,23 +26,9 @@
26// 1. 26// 1.
27// ... 27// ...
28 28
29
30// bug476
31
32mode (-1)
33clear
34
35//correct=%F 29//correct=%F
36a=hypermat([3,3,1],int8(1:9)) 30a=hypermat([3,3,1],int8(1:9))
37[i,j]=find(a==5) 31[i,j]=find(a==5)
38[k,l,m]=find(a==5) 32[k,l,m]=find(a==5)
39 33
40affich_result((m==1)&((i==k)==(j==l)), 476) 34affich_result((m==1)&((i==k)==(j==l)), 476)
41
42clear
43
44// No Error Messages
45// wrong result with " %hm_find " function
46
47
48
diff --git a/tests/nonRegression/bug477.sci b/tests/nonRegression/bug477.sci
index 63b5752..5e6cc72 100644
--- a/tests/nonRegression/bug477.sci
+++ b/tests/nonRegression/bug477.sci
@@ -11,27 +11,22 @@
11// The Error Messages are: 11// The Error Messages are:
12// -->a=hypermat([3,3,1],1:9); 12// -->a=hypermat([3,3,1],1:9);
13// 13//
14// -->[m]=max(a) 14// -->[m]=max(a)
15// i = 15// i =
16// 16//
17// 9. 17// 9.
18// 18//
19// -->[m,i]=max(a) 19// -->[m,i]=max(a)
20// !--error 59 20// !--error 59
21// incorrect # of outputs in the function 21// incorrect # of outputs in the function
22// arguments are : 22// arguments are :
23// x 23// x
24// 24//
25// -->[m,i,j,k]=max(a) 25// -->[m,i,j,k]=max(a)
26// !--error 78 26// !--error 78
27// ... 27// ...
28 28
29 29
30// bug477
31
32mode (-1)
33clear
34
35correct=%F 30correct=%F
36a=hypermat([3,3,1],1:9) 31a=hypermat([3,3,1],1:9)
37[m]=max(a) 32[m]=max(a)
@@ -41,15 +36,3 @@ if result2==0 then
41 correct = ((m==n)&(result2==0)&(and(i==[3,3,1]))&(result3==78)) 36 correct = ((m==n)&(result2==0)&(and(i==[3,3,1]))&(result3==78))
42end 37end
43affich_result(correct, 477) 38affich_result(correct, 477)
44
45clear
46
47// The Error Messages are:
48// -->[m,i]=max(a)
49// !--error 59
50// incorrect # of outputs in the function
51// arguments are :
52// x
53
54
55
diff --git a/tests/nonRegression/bug480.sci b/tests/nonRegression/bug480.sci
index 9cc3762..8f8dd6d 100644
--- a/tests/nonRegression/bug480.sci
+++ b/tests/nonRegression/bug480.sci
@@ -22,24 +22,9 @@
22// Enrico Segre on Linux version distribution RH9 with as window manager 22// Enrico Segre on Linux version distribution RH9 with as window manager
23// Israel July 27, 2003 at 10:7:54 23// Israel July 27, 2003 at 10:7:54
24 24
25
26// bug480
27
28mode (-1)
29clear
30
31// correct=%F
32a=hypermat([3,3,1],1:9) 25a=hypermat([3,3,1],1:9)
33result = execstr("int8(a)","errcatch","n") 26result = execstr("int8(a)","errcatch","n")
34if result == 0 then 27if result == 0 then
35 toto = (hypermat(a.dims,int8(a.entries)) == int8(a)) 28 toto = (hypermat(a.dims,int8(a.entries)) == int8(a))
36end 29end
37affich_result(and(toto(:,:,1)), 480) 30affich_result(and(toto(:,:,1)), 480)
38
39clear
40
41// No Error Messages
42// wrong result with " %hm_find " function
43
44
45
diff --git a/tests/nonRegression/bug487.sci b/tests/nonRegression/bug487.sci
index f9a7c59..08ab7a9 100644
--- a/tests/nonRegression/bug487.sci
+++ b/tests/nonRegression/bug487.sci
@@ -26,12 +26,6 @@
26// Kappen on Linux version 2.4 distribution Debian woody with gnome1.4 Sawfish as window manager 26// Kappen on Linux version 2.4 distribution Debian woody with gnome1.4 Sawfish as window manager
27// ... 27// ...
28 28
29
30// bug487
31
32mode (-1);
33clear;
34
35lvl= -0.0003 + (1:10)*(0.0003-(-0.0003))/(10+1) 29lvl= -0.0003 + (1:10)*(0.0003-(-0.0003))/(10+1)
36result=execstr("contour2d(1:10,1:10,rand(10,10),lvl,rect=[0,0,11,11])","errcatch","n") 30result=execstr("contour2d(1:10,1:10,rand(10,10),lvl,rect=[0,0,11,11])","errcatch","n")
37xdel() 31xdel()
@@ -41,11 +35,3 @@ if result==0 then
41else 35else
42 affich_result(%F,487); 36 affich_result(%F,487);
43end 37end
44
45// The Error Messages are:
46// !--error 204
47//Argument 2, wrong type argument: expecting a scalar
48//at line 3 of function contour2d called by :
49// contour2d(rhogit,zgit,Jv, lvl, strf="041");
50//
51// lvl in contour2d is a vector
diff --git a/tests/nonRegression/bug488.sci b/tests/nonRegression/bug488.sci
index 8e2f4f4..388e36b 100644
--- a/tests/nonRegression/bug488.sci
+++ b/tests/nonRegression/bug488.sci
@@ -30,9 +30,6 @@
30// bug488 30// bug488
31// 489, 491 492 496 duplicate 31// 489, 491 492 496 duplicate
32 32
33mode (-1)
34clear
35
36// rechercher l'existance du répertoire tcl sous Scilab 33// rechercher l'existance du répertoire tcl sous Scilab
37 34
38correct=%F 35correct=%F
@@ -46,8 +43,6 @@ end // du if
46 43
47affich_result(correct, 488) 44affich_result(correct, 488)
48 45
49clear
50
51// Error message : 46// Error message :
52// --> !--error 999 47// --> !--error 999
53// TK_EvalStr, Can't find a usable init.tcl in the following directories: 48// TK_EvalStr, Can't find a usable init.tcl in the following directories:
diff --git a/tests/nonRegression/bug498.sci b/tests/nonRegression/bug498.sci
index b48770b..64b4cf3 100644
--- a/tests/nonRegression/bug498.sci
+++ b/tests/nonRegression/bug498.sci
@@ -26,12 +26,6 @@
26// 1. 26// 1.
27// ... 27// ...
28 28
29
30// bug498
31
32mode (-1)
33clear
34
35correct=%F 29correct=%F
36affich_result( min(2,uint16(1)) == 1. , 498.1) 30affich_result( min(2,uint16(1)) == 1. , 498.1)
37affich_result( min(2,int16(1)) == 1. , 498.2) 31affich_result( min(2,int16(1)) == 1. , 498.2)
@@ -44,9 +38,7 @@ affich_result( max(int8(10),-2) == 10. , 498.8)
44affich_result( max(int8(10),-2.6) == 10. , 498.9) 38affich_result( max(int8(10),-2.6) == 10. , 498.9)
45affich_result( min(int8(10),-2.6) == - 2.6 , 498.11) 39affich_result( min(int8(10),-2.6) == - 2.6 , 498.11)
46 40
47clear 41//min(2,uint16(1)) //WRONG ans = 2.
48
49//min(2,uint16(1)) //WRONG ans = 2.
50//min(2,int16(1)) //OK ans = 1. 42//min(2,int16(1)) //OK ans = 1.
51//min(2,int8(1)) //OK ans = 1. 43//min(2,int8(1)) //OK ans = 1.
52//min(2,int8(10)) //OK ans = 2. 44//min(2,int8(10)) //OK ans = 2.
diff --git a/tests/nonRegression/bug502.sci b/tests/nonRegression/bug502.sci
index 3630bf8..b8e80a0 100644
--- a/tests/nonRegression/bug502.sci
+++ b/tests/nonRegression/bug502.sci
@@ -27,10 +27,6 @@
27// ... 27// ...
28 28
29 29
30// bug502
31
32mode (-1);
33clear;
34// set old_style on; 30// set old_style on;
35// remove old style graphics mode on trunk 31// remove old style graphics mode on trunk
36 32
diff --git a/tests/nonRegression/bug525.sci b/tests/nonRegression/bug525.sci
index 7ff7456..38abe3a 100644
--- a/tests/nonRegression/bug525.sci
+++ b/tests/nonRegression/bug525.sci
@@ -26,18 +26,13 @@
26// -->execstr("function foo") 26// -->execstr("function foo")
27// ... 27// ...
28 28
29
30// exec("bug525.sce") 29// exec("bug525.sce")
31stacksize(2e6); 30stacksize(2e6);
32
33execstr("function foo","errcatch");
34 31
35 32execstr("function foo","errcatch");
36 33
37if lasterror()=="endfunction is missing" then 34if lasterror()=="endfunction is missing" then
38affich_result(%T,525); 35 affich_result(%T,525);
39else 36else
40affich_result(%F,525); 37 affich_result(%F,525);
41
42end 38end
43
diff --git a/tests/nonRegression/bug528.sci b/tests/nonRegression/bug528.sci
index d540840..12cfccf 100644
--- a/tests/nonRegression/bug528.sci
+++ b/tests/nonRegression/bug528.sci
@@ -26,18 +26,12 @@
26// Enrico SEGRE on Linux version distribution RH9-i386 with as window manager 26// Enrico SEGRE on Linux version distribution RH9-i386 with as window manager
27// ... 27// ...
28 28
29
30// exec("bug528.sce") 29// exec("bug528.sce")
31 30
32
33execstr("fun2string(ones)","errcatch"); 31execstr("fun2string(ones)","errcatch");
34 32
35
36
37if lasterror()=="first argument is incorrect" then 33if lasterror()=="first argument is incorrect" then
38affich_result(%T,528); 34 affich_result(%T,528);
39else 35else
40affich_result(%F,528); 36 affich_result(%F,528);
41
42end 37end
43
diff --git a/tests/nonRegression/bug534.sci b/tests/nonRegression/bug534.sci
index a5bfd18..6c113d6 100644
--- a/tests/nonRegression/bug534.sci
+++ b/tests/nonRegression/bug534.sci
@@ -26,20 +26,12 @@
26// Commands: x=[3 1 5]; 26// Commands: x=[3 1 5];
27// ... 27// ...
28 28
29
30// exec("bug534.sce")
31
32
33x=[3 1 5]; 29x=[3 1 5];
34 30
35iErrorCode=execstr("geomean(x)","errcatch"); 31iErrorCode=execstr("geomean(x)","errcatch");
36 32
37
38
39if iErrorCode==0 then 33if iErrorCode==0 then
40affich_result(%T,534); 34 affich_result(%T,534);
41else 35else
42affich_result(%F,534); 36 affich_result(%F,534);
43
44end 37end
45
diff --git a/tests/nonRegression/bug539.sci b/tests/nonRegression/bug539.sci
index 05a075a..80853b2 100644
--- a/tests/nonRegression/bug539.sci
+++ b/tests/nonRegression/bug539.sci
@@ -26,12 +26,8 @@
26// disp(" a_wrong_string"),return, 26// disp(" a_wrong_string"),return,
27// ... 27// ...
28 28
29
30// exec("bug539.sce")
31
32function foo(); a_wrong_string; endfunction 29function foo(); a_wrong_string; endfunction
33 30
34
35tcl_script=['toplevel .w1' 31tcl_script=['toplevel .w1'
36'button .w1.b -text ""Click here to see a new Scilab Graphic Window""\' 32'button .w1.b -text ""Click here to see a new Scilab Graphic Window""\'
37' -command {ScilabEval ""foo()""}' 33' -command {ScilabEval ""foo()""}'
diff --git a/tests/nonRegression/bug542.sci b/tests/nonRegression/bug542.sci
index 291f249..02c20a4 100644
--- a/tests/nonRegression/bug542.sci
+++ b/tests/nonRegression/bug542.sci
@@ -16,18 +16,10 @@
16// Israel 16// Israel
17// November 9, 2003 at 12:32:44 17// November 9, 2003 at 12:32:44
18 18
19
20//exec("/home/huynh/poubelle/testNonReg/bug542.sce")
21
22
23ierror=execstr("int8(7) & int8(8)","errcatch"); 19ierror=execstr("int8(7) & int8(8)","errcatch");
24 20
25 if ierror == 0 then 21if ierror == 0 then
26 22 affich_result(%T,542);
27 affich_result(%T,542); 23else
28 24 affich_result(%F,542);
29 else 25end;
30 affich_result(%F,542);
31
32 end;
33
diff --git a/tests/nonRegression/bug545.sci b/tests/nonRegression/bug545.sci
index b5f32a3..a12f1ad 100644
--- a/tests/nonRegression/bug545.sci
+++ b/tests/nonRegression/bug545.sci
@@ -31,8 +31,8 @@
31// Scilab Project 31// Scilab Project
32// Date : 9 Dec 2005 32// Date : 9 Dec 2005
33 33
34 diary("bug545.txt"); 34diary("bug545.txt");
35 35
36a=int8(hypermat({3 2 2}));b=hypermat({1 2 2}); 36a=int8(hypermat({3 2 2}));b=hypermat({1 2 2});
37a(1,:,:)=b; 37a(1,:,:)=b;
38 38
diff --git a/tests/nonRegression/bug546.sci b/tests/nonRegression/bug546.sci
index 2c590c9..9fea2fe 100644
--- a/tests/nonRegression/bug546.sci
+++ b/tests/nonRegression/bug546.sci
@@ -26,9 +26,7 @@
26// Enrico SEGRE on Linux version RH9 distribution with as window manager 26// Enrico SEGRE on Linux version RH9 distribution with as window manager
27// ... 27// ...
28 28
29
30//exec("bug546.sci") 29//exec("bug546.sci")
31
32 30
33a=int8(ones(10,10))>2; 31a=int8(ones(10,10))>2;
34 32
@@ -43,12 +41,8 @@ b = [ %F %F %F %F %F %F %F %F %F %F ; ...
43 %F %F %F %F %F %F %F %F %F %F ; ... 41 %F %F %F %F %F %F %F %F %F %F ; ...
44 %F %F %F %F %F %F %F %F %F %F ] 42 %F %F %F %F %F %F %F %F %F %F ]
45 43
46 if a == b then 44if a == b then
47 45 affich_result(%T,546);
48 affich_result(%T,546); 46else
49 47 affich_result(%F,546);
50 else 48end;
51 affich_result(%F,546);
52
53 end;
54
diff --git a/tests/nonRegression/bug549.sci b/tests/nonRegression/bug549.sci
index a26795f..98cd28f 100644
--- a/tests/nonRegression/bug549.sci
+++ b/tests/nonRegression/bug549.sci
@@ -19,34 +19,24 @@
19// November 18, 2003 at 15:38:42 19// November 18, 2003 at 15:38:42
20 20
21 21
22//exec("bug549.sci") 22p = poly(0,'p');
23
24
25p=poly(0,'p');
26
27
28G = syslin('c', (1-p)/((p+1)*(p+3))); 23G = syslin('c', (1-p)/((p+1)*(p+3)));
24t = [0:1/100:8];
29 25
30 t = [0:1/100:8]; 26diary("bug549.txt");
31 27 csim('step',t,G);
32 diary("bug549.txt");
33
34csim('step',t,G);
35
36diary(0); 28diary(0);
37 29
38if MSDOS then 30if MSDOS then
39[rep,stat]=unix_g('findstr /c:""warning"" bug549.txt') 31 [rep,stat]=unix_g('findstr /c:""warning"" bug549.txt')
40else 32else
41[rep,stat]=unix_g("fgrep warning bug549.txt") ; 33 [rep,stat]=unix_g("fgrep warning bug549.txt") ;
42end 34end
43 if stat == 0 then 35
44 36if stat == 0 then
45 affich_result(%F,549); 37 affich_result(%F,549);
46 38else
47 else 39 affich_result(%T,549);
48 affich_result(%T,549); 40end;
49 41
50 end; 42mdelete("bug549.txt");
51 mdelete("bug549.txt");
52
diff --git a/tests/nonRegression/bug55.sci b/tests/nonRegression/bug55.sci
index b0bb5fa..662e90a 100644
--- a/tests/nonRegression/bug55.sci
+++ b/tests/nonRegression/bug55.sci
@@ -8,20 +8,7 @@
8// value. 8// value.
9// sci2exp(-%inf) = -Inf instead of the right result = -%inf 9// sci2exp(-%inf) = -Inf instead of the right result = -%inf
10 10
11
12// bug55
13
14mode (-1)
15clear
16
17affich_result(sci2exp(%inf)=="%inf", 55.1) 11affich_result(sci2exp(%inf)=="%inf", 55.1)
18affich_result(sci2exp(-%inf)=="-%inf", 55.2) 12affich_result(sci2exp(-%inf)=="-%inf", 55.2)
19affich_result(sci2exp(%nan)=="%nan", 55.3) 13affich_result(sci2exp(%nan)=="%nan", 55.3)
20affich_result(sci2exp(-%nan)=="%nan", 55.4) 14affich_result(sci2exp(-%nan)=="%nan", 55.4)
21
22clear
23
24// Error message :
25// The sci2exp function gives wrong result with the -%inf value.
26// sci2exp(-%inf) = -Inf instead of the right result = -%inf
27
diff --git a/tests/nonRegression/bug553.sci b/tests/nonRegression/bug553.sci
index 97ac353..e1c9220 100644
--- a/tests/nonRegression/bug553.sci
+++ b/tests/nonRegression/bug553.sci
@@ -26,22 +26,12 @@
26// On Scilab 2.7.2 with " loopbug.sci, shown below " function 26// On Scilab 2.7.2 with " loopbug.sci, shown below " function
27// ... 27// ...
28 28
29
30//exec("bug553.sci")
31
32
33n=12; 29n=12;
34
35
36 stat=execstr("for n=1:3; disp(n); end","errcatch");
37 30
31stat = execstr("for n=1:3; disp(n); end","errcatch");
38 32
39 if stat == 0 then 33if stat == 0 then
40 34 affich_result(%T,553);
41 affich_result(%T,553); 35else
42 36 affich_result(%F,553);
43 else 37end;
44 affich_result(%F,553);
45
46 end;
47
diff --git a/tests/nonRegression/bug557.sci b/tests/nonRegression/bug557.sci
index 79c3788..bdde683 100644
--- a/tests/nonRegression/bug557.sci
+++ b/tests/nonRegression/bug557.sci
@@ -5,16 +5,11 @@
5// 5//
6// <-- Short Description --> 6// <-- Short Description -->
7// mprintf and diary don't work together 7// mprintf and diary don't work together
8after each character of the string generated by 8// after each character of the string generated by
9mprintf a newline character is inserted 9// mprintf a newline character is inserted
10 10
11
12// Test de non-regression du bug 557
13
14//****************************************************
15// Author : Pierre MARECHAL 11// Author : Pierre MARECHAL
16// Date : 7 Fev 2005 12// Date : 7 Fev 2005
17//****************************************************
18 13
19// Génération du fichier de référence 14// Génération du fichier de référence
20 15
diff --git a/tests/nonRegression/bug558.sci b/tests/nonRegression/bug558.sci
index 61b2fd4..c36ce3c 100644
--- a/tests/nonRegression/bug558.sci
+++ b/tests/nonRegression/bug558.sci
@@ -11,8 +11,6 @@
11// 11//
12// the last 'or' looks superfluous to me. 12// the last 'or' looks superfluous to me.
13 13
14
15// exec("bug558.sce");
16fileName="bug558.txt"; 14fileName="bug558.txt";
17diary(fileName); 15diary(fileName);
18x = 20; 16x = 20;
@@ -25,7 +23,7 @@ if w(1) == 0 then
25else 23else
26 affich_result(%T,558); 24 affich_result(%T,558);
27end; 25end;
28 26
29mdelete(fileName); 27mdelete(fileName);
30mdelete('bug558.mat'); 28mdelete('bug558.mat');
31 29
diff --git a/tests/nonRegression/bug562.sci b/tests/nonRegression/bug562.sci
index d781899..e904261 100644
--- a/tests/nonRegression/bug562.sci
+++ b/tests/nonRegression/bug562.sci
@@ -17,16 +17,8 @@
17// cycle this is not working. It would help us a lot if this 17// cycle this is not working. It would help us a lot if this
18// bug was fixed! 18// bug was fixed!
19 19
20
21// exec("e:\testNonReg\bug562.sce")
22// bug interactive
23
24disp("start scilab"); 20disp("start scilab");
25
26
27disp("start scipad"); 21disp("start scipad");
28disp("write something in scipad"); 22disp("write something in scipad");
29disp("don''t save!"); 23disp("don''t save!");
30disp("quit scilab"); 24disp("quit scilab");
31//quit;
32// check if the the text you typed in scipad is lost \ No newline at end of file
diff --git a/tests/nonRegression/bug564.sci b/tests/nonRegression/bug564.sci
index a741692..d00d95c 100644
--- a/tests/nonRegression/bug564.sci
+++ b/tests/nonRegression/bug564.sci
@@ -26,10 +26,9 @@
26// Cmenu='Open/Set' 26// Cmenu='Open/Set'
27// ... 27// ...
28 28
29
30// Non-regression test file for bug 564 29// Non-regression test file for bug 564
31// Copyright INRIA 30// Copyright INRIA
32 31
33 // Modified by Pierre MARECHAL 32 // Modified by Pierre MARECHAL
34// Copyright INRIA 33// Copyright INRIA
35// Date : 23 Mar 2005 34// Date : 23 Mar 2005
@@ -46,21 +45,21 @@ function foo()
46 disp(4);,disp(Cmenu); 45 disp(4);,disp(Cmenu);
47 break 46 break
48 else 47 else
49 Cmenu='Open/Set' 48 Cmenu='Open/Set'
50 break 49 break
51 end 50 end
52endfunction 51endfunction
53 52
54ok=%t; 53ok=%t;
55diary('bug564.txt"); 54diary('bug564.txt");
56foo(); 55foo();
57exec(foo); 56exec(foo);
58diary(0); 57diary(0);
59 58
60BUG564TXT = mgetl('bug564.txt'); 59BUG564TXT = mgetl('bug564.txt');
61BUG564REF = mgetl('bug564.ref'); 60BUG564REF = mgetl('bug564.ref');
62 61
63 if or(BUG564TXT<>BUG564REF) then 62if or(BUG564TXT<>BUG564REF) then
64 affich_result(%F,564); 63 affich_result(%F,564);
65else 64else
66 affich_result(%T,564); 65 affich_result(%T,564);
diff --git a/tests/nonRegression/bug566.sci b/tests/nonRegression/bug566.sci
index ef9743e..a19a1a6 100644
--- a/tests/nonRegression/bug566.sci
+++ b/tests/nonRegression/bug566.sci
@@ -6,25 +6,10 @@
6// <-- Short Description --> 6// <-- Short Description -->
7// a(2,3,2)='x' returns an empty matrix. 7// a(2,3,2)='x' returns an empty matrix.
8 8
9a(2,3,2)='y'
9 10
10// exec("bug566.sce"); 11if a == [] then
11 12 affich_result(%F,566);
12clear;
13
14a(2,3,2)='y'
15
16if a == [] then
17
18 affich_result(%F,566);
19
20
21else 13else
22 affich_result(%T,566); 14 affich_result(%T,566);
23 15end
24
25end;
26
27
28
29
30
diff --git a/tests/nonRegression/bug567.sci b/tests/nonRegression/bug567.sci
index 2e9dfc0..924f57c 100644
--- a/tests/nonRegression/bug567.sci
+++ b/tests/nonRegression/bug567.sci
@@ -11,15 +11,8 @@
11// separate application. 11// separate application.
12 12
13 13
14// exec("e:\testNonReg\bug567.sce")
15// bug interactive
16
17disp("start scilab"); 14disp("start scilab");
18
19
20disp("start scipad"); 15disp("start scipad");
21disp("write something in scipad"); 16disp("write something in scipad");
22disp("don''t save!"); 17disp("don''t save!");
23disp("quit scilab"); 18disp("quit scilab");
24//quit;
25// check if the the text you typed in scipad is lost \ No newline at end of file
diff --git a/tests/nonRegression/bug568.sci b/tests/nonRegression/bug568.sci
index 62a1e6e..86611cb 100644
--- a/tests/nonRegression/bug568.sci
+++ b/tests/nonRegression/bug568.sci
@@ -19,21 +19,11 @@
19// exec("e:\testNonReg\bug568.sce"); 19// exec("e:\testNonReg\bug568.sce");
20 20
21aa=zeros(4,4,11); 21aa=zeros(4,4,11);
22
23iErrorCode=execstr('bb(1,1,:)=aa(1,1,:)','errcatch');
24
25//disp(' code retour = ' + string(iErrorCode));
26
27if iErrorCode then
28 22
23iErrorCode=execstr('bb(1,1,:)=aa(1,1,:)','errcatch');
29 24
30affich_result(%T,568) 25if iErrorCode then
26 affich_result(%T,568)
31else 27else
32affich_result(%F,568) 28 affich_result(%F,568)
33
34end; 29end;
35
36
37
38
39
diff --git a/tests/nonRegression/bug569.sci b/tests/nonRegression/bug569.sci
index 5f797af..cac76b3 100644
--- a/tests/nonRegression/bug569.sci
+++ b/tests/nonRegression/bug569.sci
@@ -8,11 +8,6 @@
8// expected of contour2d: 2D plot of a set of level lines. 8// expected of contour2d: 2D plot of a set of level lines.
9 9
10 10
11// exec("bug569.sce")
12
13mode (-1);
14clear;
15
16disp("check the result of the graphic windows"); 11disp("check the result of the graphic windows");
17 12
18x = 0:0.1:1; 13x = 0:0.1:1;
diff --git a/tests/nonRegression/bug570.sci b/tests/nonRegression/bug570.sci
index 6c71596..9c923b2 100644
--- a/tests/nonRegression/bug570.sci
+++ b/tests/nonRegression/bug570.sci
@@ -8,24 +8,9 @@
8// See bug 566 8// See bug 566
9 9
10 10
11// exec( "bug570.sce");
12
13
14clear;
15iErrorCode=execstr('a(2,3,2)=''x''','errcatch'); 11iErrorCode=execstr('a(2,3,2)=''x''','errcatch');
16
17//disp(' code retour = ' + string(iErrorCode));
18
19if iErrorCode then 12if iErrorCode then
20 13 affich_result(%F,570)
21
22affich_result(%F,570)
23else 14else
24affich_result(%T,570) 15 affich_result(%T,570)
25
26end; 16end;
27
28
29
30
31
diff --git a/tests/nonRegression/bug573.sci b/tests/nonRegression/bug573.sci
index 042fece..7cf513e 100644
--- a/tests/nonRegression/bug573.sci
+++ b/tests/nonRegression/bug573.sci
@@ -20,13 +20,9 @@
20// The function xgetfile() does NOT have this problem. 20// The function xgetfile() does NOT have this problem.
21// Unfortunately there is no xgetdir() function! 21// Unfortunately there is no xgetdir() function!
22 22
23 23if MSDOS then
24// exec("e:\testNonReg\bug573.sce") 24 disp("windows only, selection a directory and click OK");
25 25 tk_getdir("c:/has space")
26disp("windows only, selection a directory and click OK"); 26 tk_getfile('*','C:/has space');
27 27 affich_result(%T,573);
28tk_getdir("c:/has space") 28end
29
30tk_getfile('*','C:/has space');
31
32affich_result(%T,573); \ No newline at end of file
diff --git a/tests/nonRegression/bug575.sci b/tests/nonRegression/bug575.sci
index 93fcffe..fd7b200 100644
--- a/tests/nonRegression/bug575.sci
+++ b/tests/nonRegression/bug575.sci
@@ -13,23 +13,10 @@
13// 13//
14// I don't if it is really a bug, but MATLAB does :o( ? 14// I don't if it is really a bug, but MATLAB does :o( ?
15 15
16[m(1),n(1)]=max([1,3,1]);
16 17
17// exec( "bug575.sci");
18//
19
20
21
22
23 [m(1),n(1)]=max([1,3,1]);
24
25
26
27//lasterror()
28
29if m(1) == 3 & n(1) == 2 then 18if m(1) == 3 & n(1) == 2 then
30affich_result(%T,575) 19 affich_result(%T,575)
31else 20else
32affich_result(%F,575) 21 affich_result(%F,575)
33
34end; 22end;
35
diff --git a/tests/nonRegression/bug576.sci b/tests/nonRegression/bug576.sci
index 6600b3f..ce3028d 100644
--- a/tests/nonRegression/bug576.sci
+++ b/tests/nonRegression/bug576.sci
@@ -8,17 +8,14 @@
8// when the ouput argument is empty, the ouput is not detected 8// when the ouput argument is empty, the ouput is not detected
9// as an empty result ? 9// as an empty result ?
10 10
11
12// exec("bug576.sce")
13
14disp("press enter"); 11disp("press enter");
15chemin=input('?','s'); 12chemin=input('?','s');
16 13
17isempty(chemin) 14isempty(chemin)
18 15
19if isempty(chemin) == %F then 16if isempty(chemin) == %F then
20affich_result(%T,576); 17 affich_result(%T,576);
21else 18else
22affich_result(%T,576); 19 affich_result(%T,576);
23end; 20end;
24 21
diff --git a/tests/nonRegression/bug577.sci b/tests/nonRegression/bug577.sci
index c6141e4..97ca123 100644
--- a/tests/nonRegression/bug577.sci
+++ b/tests/nonRegression/bug577.sci
@@ -9,23 +9,12 @@
9// 9//
10// I can reproduce the bug with integers data type not with imaginary 10// I can reproduce the bug with integers data type not with imaginary
11 11
12
13
14// exec("bug577.sci");
15
16
17x=rand(5,5,100)+%i; 12x=rand(5,5,100)+%i;
18
19
20
21iCodeError= execstr('mtlb_save(''gain.mat'',''x'')','errcatch' ); 13iCodeError= execstr('mtlb_save(''gain.mat'',''x'')','errcatch' );
22
23lasterror() 14lasterror()
24
25if iCodeError ==0 then
26 15
27affich_result(%T,577) 16if iCodeError ==0 then
17 affich_result(%T,577)
28else 18else
29affich_result(%F,577) 19 affich_result(%F,577)
30end; 20end;
31
diff --git a/tests/nonRegression/bug584.sci b/tests/nonRegression/bug584.sci
index 6f08a0e..3058767 100644
--- a/tests/nonRegression/bug584.sci
+++ b/tests/nonRegression/bug584.sci
@@ -10,8 +10,6 @@
10// 10//
11// 1.0000000000000007000000000E+03 11// 1.0000000000000007000000000E+03
12 12
13
14// Non-regression test file for bug 584
15// Copyright INRIA 13// Copyright INRIA
16 14
17// Modified by Pierre MARECHAL 15// Modified by Pierre MARECHAL
diff --git a/tests/nonRegression/bug600.sci b/tests/nonRegression/bug600.sci
index 51722e5..c673b68 100644
--- a/tests/nonRegression/bug600.sci
+++ b/tests/nonRegression/bug600.sci
@@ -11,10 +11,6 @@
11// softwares.all other wave funstions are working such as 11// softwares.all other wave funstions are working such as
12// wavread loadwave etc... 12// wavread loadwave etc...
13 13
14
15// exec("e:\testNonReg\bug600.sce")
16
17
18disp("activate your sound card, and run this file"); 14disp("activate your sound card, and run this file");
19disp("if you hear something, that means the playsnd & PlaySnd work"); 15disp("if you hear something, that means the playsnd & PlaySnd work");
20 16
@@ -23,4 +19,4 @@ playsnd(y);
23 19
24PlaySound("SCI/demos/signal/sound/chimes.wav"); 20PlaySound("SCI/demos/signal/sound/chimes.wav");
25 21
26affich_result(%T,600); \ No newline at end of file 22affich_result(%T,600);
diff --git a/tests/nonRegression/bug604.sci b/tests/nonRegression/bug604.sci
index 1ca46de..93abef9 100644
--- a/tests/nonRegression/bug604.sci
+++ b/tests/nonRegression/bug604.sci
@@ -26,18 +26,13 @@
26// -->(2m)))))))))))) 26// -->(2m))))))))))))
27// ... 27// ...
28 28
29
30//exec("bug604.sci")
31//
32g=9.81;m=2;l=1;K=10;I=12; 29g=9.81;m=2;l=1;K=10;I=12;
33//M=[g*m*l,I+2*m*l^2,K/l;0,1,0;0,0,1]; 30//M=[g*m*l,I+2*m*l^2,K/l;0,1,0;0,0,1];
34
35//Le bug n'existe plus, la possibilité de faire 2m au lieu de 2*m a été supprimée
36
37if [2*m] == 4 & 2*m == 4 & (2*m) == 4 then
38 31
39 affich_result(%T,604); 32//Le bug n'existe plus, la possibilité de faire 2m au lieu de 2*m a été supprimée
40 33
34if [2*m] == 4 & 2*m == 4 & (2*m) == 4 then
35 affich_result(%T,604);
41else 36else
42 affich_result(%F,604);