summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorPierre Marechal <pierre.marechal@scilab.org>2007-11-27 14:36:18 +0000
committerPierre Marechal <pierre.marechal@scilab.org>2007-11-27 14:36:18 +0000
commit6428ebb6859b2bccd09bc017e1452a30b039d2be (patch)
tree37bfdf01e0c48c21dfe95cc14ac940d3808e0618 /tests
parent56a7632b5aea38bd191cd6d5b68ac9550479550a (diff)
downloadscilab-6428ebb6859b2bccd09bc017e1452a30b039d2be.zip
scilab-6428ebb6859b2bccd09bc017e1452a30b039d2be.tar.gz
Incoporate non-regression test files in the scilab source tree
Diffstat (limited to 'tests')
-rw-r--r--tests/nonRegression/bug488.sci51
-rw-r--r--tests/nonRegression/bug498.sci51
-rw-r--r--tests/nonRegression/bug502.sci49
-rw-r--r--tests/nonRegression/bug525.sci38
-rw-r--r--tests/nonRegression/bug528.sci37
-rw-r--r--tests/nonRegression/bug534.sci37
-rw-r--r--tests/nonRegression/bug539.sci37
-rw-r--r--tests/nonRegression/bug542.sci25
-rw-r--r--tests/nonRegression/bug545.sci51
-rw-r--r--tests/nonRegression/bug546.sci48
-rw-r--r--tests/nonRegression/bug549.sci42
-rw-r--r--tests/nonRegression/bug55.sci14
-rw-r--r--tests/nonRegression/bug553.sci37
-rw-r--r--tests/nonRegression/bug557.sci40
-rw-r--r--tests/nonRegression/bug558.sci29
-rw-r--r--tests/nonRegression/bug562.sci24
-rw-r--r--tests/nonRegression/bug564.ref29
-rw-r--r--tests/nonRegression/bug564.sci68
-rw-r--r--tests/nonRegression/bug566.sci15
-rw-r--r--tests/nonRegression/bug567.sci18
-rw-r--r--tests/nonRegression/bug568.sci29
-rw-r--r--tests/nonRegression/bug569.sci21
-rw-r--r--tests/nonRegression/bug570.sci16
-rw-r--r--tests/nonRegression/bug573.sci28
-rw-r--r--tests/nonRegression/bug575.sci22
-rw-r--r--tests/nonRegression/bug576.sci21
-rw-r--r--tests/nonRegression/bug577.sci20
-rw-r--r--tests/nonRegression/bug584.sci32
-rw-r--r--tests/nonRegression/bug600.sci22
-rw-r--r--tests/nonRegression/bug604.sci38
-rw-r--r--tests/nonRegression/bug608.sci26
-rw-r--r--tests/nonRegression/bug610.sci28
-rw-r--r--tests/nonRegression/bug612.sci24
-rw-r--r--tests/nonRegression/bug614.sci40
-rw-r--r--tests/nonRegression/bug623.sci29
-rw-r--r--tests/nonRegression/bug625.sci18
-rw-r--r--tests/nonRegression/bug629.sci27
-rw-r--r--tests/nonRegression/bug631.sci34
-rw-r--r--tests/nonRegression/bug632.sci47
-rw-r--r--tests/nonRegression/bug649.sci17
-rw-r--r--tests/nonRegression/bug654.sci23
-rw-r--r--tests/nonRegression/bug656.sci15
-rw-r--r--tests/nonRegression/bug657.sci27
-rw-r--r--tests/nonRegression/bug661.sci18
-rw-r--r--tests/nonRegression/bug670.sci25
-rw-r--r--tests/nonRegression/bug71.sci17
-rw-r--r--tests/nonRegression/bug731.sci80
-rw-r--r--tests/nonRegression/bug743.sci23
-rw-r--r--tests/nonRegression/bug768.sci24
-rw-r--r--tests/nonRegression/bug790.sci25
-rw-r--r--tests/nonRegression/bug793.sci15
-rw-r--r--tests/nonRegression/bug797.sci48
-rw-r--r--tests/nonRegression/bug799.sci26
-rw-r--r--tests/nonRegression/bug801.sci23
-rw-r--r--tests/nonRegression/bug871.sci51
-rw-r--r--tests/nonRegression/bug883.sci131
-rw-r--r--tests/nonRegression/bug950.sci27
-rw-r--r--tests/nonRegression/bug967.sci22
-rwxr-xr-xtests/nonRegression/gain.mat0
-rwxr-xr-xtests/nonRegression/t1.wavbin22096 -> 0 bytes
60 files changed, 0 insertions, 1899 deletions
diff --git a/tests/nonRegression/bug488.sci b/tests/nonRegression/bug488.sci
deleted file mode 100644
index 388e36b..0000000
--- a/tests/nonRegression/bug488.sci
+++ /dev/null
@@ -1,51 +0,0 @@
1// <-- Non-regression test for bug 488 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=488
5//
6// <-- Short Description -->
7// Bug Report Id: 122062003795731
8// seems to have popped up in 2.7.2 - did not happen in 2.7.1
9//
10//
11//
12// On Scilab 2.7.2 with " Help menu or Editor Menu " function
13// The Error Messages are:
14// !--error 999
15// TK_EvalStr, Can't find a usable init.tcl in the following directories:
16// {C:/Program Files/Scilab-2.7.2\tcl\tcl8.3} {C:/Program Files/Scilab-2.7.2\tcl\tcl8.3} {C:/Program Files/Scilab-2.7.2
17// /tcl/tcl8.3} {C:/Program Files/Scilab-2.7.2/lib/tcl8.3}
18//
19//
20//
21// This probably means that Tcl wasn't installed properly.
22// at line 1
23// at line 13 of function tcltk_help called by :
24// line 22 of function run_help called by :
25// line 46 of function browsehelp called by :
26// line 10 of function help called by :
27// ...
28
29
30// bug488
31// 489, 491 492 496 duplicate
32
33// rechercher l'existance du répertoire tcl sous Scilab
34
35correct=%F
36tcl_dir=getenv('SCI')+"/modules/tclsci/tcl"
37correct=isdir(tcl_dir)
38if correct & MSDOS then
39 // si oui rechercher l'existance du fichier init.tcl sous un repertoire de tcl
40 tcl_list = basename(listfiles(listfiles(tcl_dir+"/tcl*")+"/init.*"))
41 correct = (grep ( tcl_list , "init") <> []) | ( grep ( tcl_list , "INIT") <> [])
42end // du if
43
44affich_result(correct, 488)
45
46// Error message :
47// --> !--error 999
48// TK_EvalStr, Can't find a usable init.tcl in the following directories:
49// {C:/PROGRAM FILES/SCILAB-2.7.2\tcl\tcl8.3}{...
50//
51// Tcl wasn't installed properly
diff --git a/tests/nonRegression/bug498.sci b/tests/nonRegression/bug498.sci
deleted file mode 100644
index 64b4cf3..0000000
--- a/tests/nonRegression/bug498.sci
+++ /dev/null
@@ -1,51 +0,0 @@
1// <-- Non-regression test for bug 498 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=498
5//
6// <-- Short Description -->
7// Bug Report Id: 12361200372510504
8// I got another one!
9//
10// On Scilab CVS with " min(), uint() " function
11// The Error Messages are:
12// none but wrong result
13// Commands: --min(2,uint16(1)) >//WRONG
14// ans =
15//
16// 2.
17//
18// -->min(2,int16(1)) //OK
19// ans =
20//
21// 1.
22//
23// -->min(2,int8(1)) //OK
24// ans =
25//
26// 1.
27// ...
28
29correct=%F
30affich_result( min(2,uint16(1)) == 1. , 498.1)
31affich_result( min(2,int16(1)) == 1. , 498.2)
32affich_result( min(2,int8(1)) == 1. , 498.3)
33affich_result( min(2,int8(10)) == 2. , 498.4)
34affich_result( min(2,uint8(1)) == 1. , 498.5)
35affich_result( max(uint8(10),2) == 10. , 498.6)
36affich_result( max(int8(10),2) == 10. , 498.7)
37affich_result( max(int8(10),-2) == 10. , 498.8)
38affich_result( max(int8(10),-2.6) == 10. , 498.9)
39affich_result( min(int8(10),-2.6) == - 2.6 , 498.11)
40
41//min(2,uint16(1)) //WRONG ans = 2.
42//min(2,int16(1)) //OK ans = 1.
43//min(2,int8(1)) //OK ans = 1.
44//min(2,int8(10)) //OK ans = 2.
45//min(2,uint8(1)) //WRONG ans = 2.
46//max(uint8(10),2) //WRONG ans = 2.
47//max(int8(10),2) //WRONG ans = 2.
48//max(int8(10),-2) //WRONGER ans = 2.
49//max(int8(10),-2.6) //EVEN WRONGER ans = 2.
50//min(int8(10),-2.6) //OK ans = - 2.6
51
diff --git a/tests/nonRegression/bug502.sci b/tests/nonRegression/bug502.sci
deleted file mode 100644
index b8e80a0..0000000
--- a/tests/nonRegression/bug502.sci
+++ /dev/null
@@ -1,49 +0,0 @@
1// <-- Non-regression test for bug 502 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=502
5//
6// <-- Short Description -->
7// Bug Report Id: 12442200382102810
8// I compiled Scilab-2.7.
9//
10// On Scilab 2.7 with " GraphicWindow " function
11// The Error Messages are:
12// If the Graphic Window is "interfered" with,
13// for example moved, crosses path of another object
14// or even when graphic Window drop down box retracts,
15// then either the x-scale or y-scale of the 2d plot changes.
16// Commands: An example like this did not show problem:
17// x=1:0.1:25;
18// y=x.^2;
19// plot2d(x,y);
20// Problem occurred, for example, with this:
21// x=-25:0.1:25;
22// y=x.^2
23// plot2d(x,y)
24//
25//
26//
27// ...
28
29
30// set old_style on;
31// remove old style graphics mode on trunk
32
33x=-25:0.1:25;
34y=x.^2;
35plot2d(x,y);
36result=execstr("for k=1:20,xclear();xtape(""replay"",0),xpause(1d5),end","errcatch","n");
37xdel();
38
39if result==0 then
40 affich_result(%T,502);
41else
42 affich_result(%F,502);
43end
44
45// The Error Messages are:
46// If the Graphic Window is "interfered" with,
47// for example moved, crosses path of another object
48// or even when graphic Window drop down box retracts,
49// then either the x-scale or y-scale of the 2d plot changes.
diff --git a/tests/nonRegression/bug525.sci b/tests/nonRegression/bug525.sci
deleted file mode 100644
index 38abe3a..0000000
--- a/tests/nonRegression/bug525.sci
+++ /dev/null
@@ -1,38 +0,0 @@
1// <-- Non-regression test for bug 525 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=525
5//
6// <-- Short Description -->
7// Bug Report Id: 126632003824121343
8// error messages are strange to say least, scilab gets stymied after the second attempt.
9//
10// ps: I realize that execstr() is most likely responsible for all what I posted earlier today about ScilabEval on the newsgroup
11//
12// On Scilab CVS with " execstr() " function
13// The Error Messages are:
14// -->execstr("function foo")
15// !--error 17
16// stack size exceeded! (Use stacksize function to increase it)
17// Memory used for variables : 17086
18// Intermediate memory needed: 982925
19// Total memory available : 1000001
20// in execstr instruction called by :
21// execstr("function foo")
22//
23//
24// -->stacksize(2e6)
25//
26// -->execstr("function foo")
27// ...
28
29// exec("bug525.sce")
30stacksize(2e6);
31
32execstr("function foo","errcatch");
33
34if lasterror()=="endfunction is missing" then
35 affich_result(%T,525);
36else
37 affich_result(%F,525);
38end
diff --git a/tests/nonRegression/bug528.sci b/tests/nonRegression/bug528.sci
deleted file mode 100644
index 12cfccf..0000000
--- a/tests/nonRegression/bug528.sci
+++ /dev/null
@@ -1,37 +0,0 @@
1// <-- Non-regression test for bug 528 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=528
5//
6// <-- Short Description -->
7// Bug Report Id: 12711200382914450
8// misleading error message (I think the error means: "hardcoded function cannot be translated in lingo")
9//
10// On Scilab CVS with " fun2string() " function
11// The Error Messages are:
12// -->fun2string(ones)
13// Warning: obsolete use of eye rand or ones
14// !
15//
16//
17// !--error 44
18// first argument is incorrect
19// at line 13 of function fun2string called by :
20// fun2string(ones)
21//
22//
23//
24// Commands: fun2string(ones)
25//
26// Enrico SEGRE on Linux version distribution RH9-i386 with as window manager
27// ...
28
29// exec("bug528.sce")
30
31execstr("fun2string(ones)","errcatch");
32
33if lasterror()=="first argument is incorrect" then
34 affich_result(%T,528);
35else
36 affich_result(%F,528);
37end
diff --git a/tests/nonRegression/bug534.sci b/tests/nonRegression/bug534.sci
deleted file mode 100644
index 6c113d6..0000000
--- a/tests/nonRegression/bug534.sci
+++ /dev/null
@@ -1,37 +0,0 @@
1// <-- Non-regression test for bug 534 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=534
5//
6// <-- Short Description -->
7// Bug Report Id: 030132003929164110
8// In order to correct error in command "geomean" it is necessary to
9// 1) take the place of
10// gm=prod(x)^(1/length(a))
11// on
12// gm=prod(x)^(1/length(x))
13// and
14// 2) take the place of
15// gm=prod(x,orien).^(1/size(a,orien))
16// on
17// gm=prod(x,orien).^(1/size(x,orien))
18//
19//
20// On Scilab 2.7.2 with " statistics " function
21// The Error Messages are:
22// !--error 4
23// undefined variable : a
24// at line 25 of function geomean called by :
25// g=geomean(x);
26// Commands: x=[3 1 5];
27// ...
28
29x=[3 1 5];
30
31iErrorCode=execstr("geomean(x)","errcatch");
32
33if iErrorCode==0 then
34 affich_result(%T,534);
35else
36 affich_result(%F,534);
37end
diff --git a/tests/nonRegression/bug539.sci b/tests/nonRegression/bug539.sci
deleted file mode 100644
index 80853b2..0000000
--- a/tests/nonRegression/bug539.sci
+++ /dev/null
@@ -1,37 +0,0 @@
1// <-- Non-regression test for bug 539 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=539
5//
6// <-- Short Description -->
7// Bug Report Id: 030612003103172113
8// Normally, as a procedure exists with an error, the message reports the calling tree, such as
9//
10// -->function foo(); a_wrong_string; endfunction
11//
12// -->foo()
13// !--error 4
14// undefined variable : a_wrong_string
15// at line 2 of function foo called by :
16// foo()
17//
18//
19// Here instead the "called by" is the last scilab command, which is pretty confusing. My claim is that the error message in the scilab window is wrong, and that is due to ScilabEval(). The use of scipad is just a quick way of accessing ScilabEval(), in order to evidence the bug; however scipad/execute would certyainly gain if the bug is corrected.
20// On Scilab CVS with " ScilabEval " function
21// The Error Messages are:
22// --> a_wrong_string,return,
23// !--error 4
24// undefined variable : a_wrong_string
25// in execstr instruction called by :
26// disp(" a_wrong_string"),return,
27// ...
28
29function foo(); a_wrong_string; endfunction
30
31tcl_script=['toplevel .w1'
32'button .w1.b -text ""Click here to see a new Scilab Graphic Window""\'
33' -command {ScilabEval ""foo()""}'
34'pack .w1.b ']
35mputl(tcl_script,TMPDIR+'/test.tcl')
36// Execute the tcl script
37TK_EvalFile(TMPDIR+'/test.tcl')
diff --git a/tests/nonRegression/bug542.sci b/tests/nonRegression/bug542.sci
deleted file mode 100644
index 02c20a4..0000000
--- a/tests/nonRegression/bug542.sci
+++ /dev/null
@@ -1,25 +0,0 @@
1// <-- Non-regression test for bug 542 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=542
5//
6// <-- Short Description -->
7// Bug Report Id: 031202003109123244
8// bitwise operations among integers used to be defined until last time I needed them. How come they aren't anymore?
9// On Scilab CVS with " &, | " function
10// The Error Messages are:
11// !--error 43
12// not implemented in scilab....
13//
14// Commands: int8(7) & int8(8)
15// Enrico SEGRE on Linux version RH9 distribution with as window manager
16// Israel
17// November 9, 2003 at 12:32:44
18
19ierror=execstr("int8(7) & int8(8)","errcatch");
20
21if ierror == 0 then
22 affich_result(%T,542);
23else
24 affich_result(%F,542);
25end;
diff --git a/tests/nonRegression/bug545.sci b/tests/nonRegression/bug545.sci
deleted file mode 100644
index a12f1ad..0000000
--- a/tests/nonRegression/bug545.sci
+++ /dev/null
@@ -1,51 +0,0 @@
1// <-- Non-regression test for bug 545 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=545
5//
6// <-- Short Description -->
7// Bug Report Id: 031202003109134720
8// This is obviously a conflict between a local variable ndims and the new function ndims().
9// I expect the same problem also in:
10//
11// macros/percent/%b_i_hm.sci
12// macros/percent/%hm_i_hm.sc
13// macros/percent/%p_i_hm.sci
14//
15// Wasn't this an already solved issue??
16// On Scilab CVS with " %i_i_hm " function
17// The Error Messages are:
18// Warning :redefining function: ndims
19// inside function: %i_i_hm
20//
21// Commands:
22// a=int8(hypermat({3 2 2}));b=hypermat({1 2 2});
23// a(1,:,:)=b
24// Enrico SEGRE on Linux version RH9 distribution with as window manager
25// Israel
26// November 9, 2003 at 13:47:20
27
28
29// Non-regression test file for bug 545
30// Copyright INRIA
31// Scilab Project
32// Date : 9 Dec 2005
33
34diary("bug545.txt");
35
36a=int8(hypermat({3 2 2}));b=hypermat({1 2 2});
37a(1,:,:)=b;
38
39diary(0);
40
41if MSDOS then
42 [rep,stat]=unix_g("findstr /c:""redefining"" bug545.txt");
43else
44 [rep,stat]=unix_g("fgrep redefining bug545.txt") ;
45end
46
47if stat == 0 then
48 affich_result(%F,545);
49else
50 affich_result(%T,545);
51end;
diff --git a/tests/nonRegression/bug546.sci b/tests/nonRegression/bug546.sci
deleted file mode 100644
index 9fea2fe..0000000
--- a/tests/nonRegression/bug546.sci
+++ /dev/null
@@ -1,48 +0,0 @@
1// <-- Non-regression test for bug 546 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=546
5//
6// <-- Short Description -->
7// Bug Report Id: 031202003109143249
8// Wasn't also this fixed?
9// On Scilab CVS with " > with int " function
10// The Error Messages are:
11// none but wrong result
12// Commands: int8(ones(10,10))>2
13// ans =
14//
15// ! T T T T F F F F F F !
16// ! T T T T F F F F F F !
17// ! T T T F F F F F F F !
18// ! T T T F F F F F F F !
19// ! T T T F F F F F F F !
20// ! T T T F F F F F F F !
21// ! T T T F F F F F F F !
22// ! T T T F F F F F F F !
23// ! T T T F F F F F F F !
24// ! T T T F F F F F F F !
25//
26// Enrico SEGRE on Linux version RH9 distribution with as window manager
27// ...
28
29//exec("bug546.sci")
30
31a=int8(ones(10,10))>2;
32
33b = [ %F %F %F %F %F %F %F %F %F %F ; ...
34 %F %F %F %F %F %F %F %F %F %F ; ...
35 %F %F %F %F %F %F %F %F %F %F ; ...
36 %F %F %F %F %F %F %F %F %F %F ; ...
37 %F %F %F %F %F %F %F %F %F %F ; ...
38 %F %F %F %F %F %F %F %F %F %F ; ...
39 %F %F %F %F %F %F %F %F %F %F ; ...
40 %F %F %F %F %F %F %F %F %F %F ; ...
41 %F %F %F %F %F %F %F %F %F %F ; ...
42 %F %F %F %F %F %F %F %F %F %F ]
43
44if a == b then
45 affich_result(%T,546);
46else
47 affich_result(%F,546);
48end;
diff --git a/tests/nonRegression/bug549.sci b/tests/nonRegression/bug549.sci
deleted file mode 100644
index 98cd28f..0000000
--- a/tests/nonRegression/bug549.sci
+++ /dev/null
@@ -1,42 +0,0 @@
1// <-- Non-regression test for bug 549 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=549
5//
6// <-- Short Description -->
7// Bug Report Id: 0321220031018153842
8// Le problème n'intervient qu'avec la version Linux de Scilab !!!
9// On Scilab 2.7 with " csim " function
10// The Error Messages are:
11// warning
12// matrix is close to singular or badly scaled. rcond = 1.0000E-08
13// computing least squares solution. (see lsq)
14// Commands: G = syslin('c', (1-p)/((p+1)*(p+3)));
15// t = [0:1/100:8];
16// csim('step',t,G);
17// Allard Benoit on Linux version 3.0 / 9.1 distribution Debian / Mandrake with WMaker / KDE as window manager
18// France
19// November 18, 2003 at 15:38:42
20
21
22p = poly(0,'p');
23G = syslin('c', (1-p)/((p+1)*(p+3)));
24t = [0:1/100:8];
25
26diary("bug549.txt");
27 csim('step',t,G);
28diary(0);
29
30if MSDOS then
31 [rep,stat]=unix_g('findstr /c:""warning"" bug549.txt')
32else
33 [rep,stat]=unix_g("fgrep warning bug549.txt") ;
34end
35
36if stat == 0 then
37 affich_result(%F,549);
38else
39 affich_result(%T,549);
40end;
41
42mdelete("bug549.txt");
diff --git a/tests/nonRegression/bug55.sci b/tests/nonRegression/bug55.sci
deleted file mode 100644
index 662e90a..0000000
--- a/tests/nonRegression/bug55.sci
+++ /dev/null
@@ -1,14 +0,0 @@
1// <-- Non-regression test for bug 55 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=55
5//
6// <-- Short Description -->
7// The sci2exp function gives wrong result with the -%inf
8// value.
9// sci2exp(-%inf) = -Inf instead of the right result = -%inf
10
11affich_result(sci2exp(%inf)=="%inf", 55.1)
12affich_result(sci2exp(-%inf)=="-%inf", 55.2)
13affich_result(sci2exp(%nan)=="%nan", 55.3)
14affich_result(sci2exp(-%nan)=="%nan", 55.4)
diff --git a/tests/nonRegression/bug553.sci b/tests/nonRegression/bug553.sci
deleted file mode 100644
index e1c9220..0000000
--- a/tests/nonRegression/bug553.sci
+++ /dev/null
@@ -1,37 +0,0 @@
1// <-- Non-regression test for bug 553 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=553
5//
6// <-- Short Description -->
7// Bug Report Id: 0327120031024153915
8// Funny behavior when an interpreted function has a function argument that is called within a loop -- the loop exits after the first pass.
9//
10// I don't know if it's related, but I just discovered that normal loop termination clears the loop variable:
11//
12// -->n=12;
13// n =
14// 12.
15//
16// -->for n=1:3; disp(n); end
17// 1.
18// 2.
19// 3.
20//
21// -->n
22// !--error 4
23// undefined variable : n
24//
25// Is this correct? I was expecting n == 3.
26// On Scilab 2.7.2 with " loopbug.sci, shown below " function
27// ...
28
29n=12;
30
31stat = execstr("for n=1:3; disp(n); end","errcatch");
32
33if stat == 0 then
34 affich_result(%T,553);
35else
36 affich_result(%F,553);
37end;
diff --git a/tests/nonRegression/bug557.sci b/tests/nonRegression/bug557.sci
deleted file mode 100644
index bdde683..0000000
--- a/tests/nonRegression/bug557.sci
+++ /dev/null
@@ -1,40 +0,0 @@
1// <-- Non-regression test for bug 557 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=557
5//
6// <-- Short Description -->
7// mprintf and diary don't work together
8// after each character of the string generated by
9// mprintf a newline character is inserted
10
11// Author : Pierre MARECHAL
12// Date : 7 Fev 2005
13
14// Génération du fichier de référence
15
16l = [" ";"-->mprintf(''hello world\n'')";"hello world";" ";"-->diary(0)"]
17l2 = ["hello world";" "]
18mputl(l,TMPDIR+'/bug557.ref');
19
20// Génération du fichier rapport
21
22diary(TMPDIR+'/bug557.dia');
23mprintf('hello world\n')
24diary(0)
25
26// Comparaison
27
28[u1,ierr]=mopen(TMPDIR+'/bug557.ref');
29[u2,ierr]=mopen(TMPDIR+'/bug557.dia');
30
31ref=mgetl(u1);mclose(u1);
32dia=mgetl(u2);mclose(u2);
33
34// Affichage du résultat
35
36if or(ref<>dia) then
37 affich_result(%F,557);
38else
39 affich_result(%T,557);
40end
diff --git a/tests/nonRegression/bug558.sci b/tests/nonRegression/bug558.sci
deleted file mode 100644
index c36ce3c..0000000
--- a/tests/nonRegression/bug558.sci
+++ /dev/null
@@ -1,29 +0,0 @@
1// <-- Non-regression test for bug 558 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=558
5//
6// <-- Short Description -->
7// mtlb_save reports an unnecessary warning. This is due to
8// line 57 of SCI/macros/mtlb/mtlb_save.sci:
9//
10// clear('rhs','lhs','kk','k','err','mtlb_thefile','or');
11//
12// the last 'or' looks superfluous to me.
13
14fileName="bug558.txt";
15diary(fileName);
16x = 20;
17mtlb_save('bug558','x')
18diary(0);
19
20w=fileinfo(fileName);
21if w(1) == 0 then
22 affich_result(%F,558);
23else
24 affich_result(%T,558);
25end;
26
27mdelete(fileName);
28mdelete('bug558.mat');
29
diff --git a/tests/nonRegression/bug562.sci b/tests/nonRegression/bug562.sci
deleted file mode 100644
index e904261..0000000
--- a/tests/nonRegression/bug562.sci
+++ /dev/null
@@ -1,24 +0,0 @@
1// <-- Non-regression test for bug 562 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=562
5//
6// <-- Short Description -->
7// Scilab crashes 99% of the time when the content of a
8// graphics window, that was put onto the clipboard, is pasted
9// e. g. into a Microsoft Word document.
10// This was already described in Bug Report 12044200362417155,
11// but the answer to that report concentrates only on GIFs.
12// The more severe problem is the crash of Scilab, not the
13// graphic file format!
14// Since we use Scilab heavily for measurement, we need to
15// document test results properly. The best way is to include
16// Scilab figures into text documents. Without the copy-past
17// cycle this is not working. It would help us a lot if this
18// bug was fixed!
19
20disp("start scilab");
21disp("start scipad");
22disp("write something in scipad");
23disp("don''t save!");
24disp("quit scilab");
diff --git a/tests/nonRegression/bug564.ref b/tests/nonRegression/bug564.ref
deleted file mode 100644
index c08011a..0000000
--- a/tests/nonRegression/bug564.ref
+++ /dev/null
@@ -1,29 +0,0 @@
1
2-->foo();
3
4 1.
5
6 2.
7
8 3.
9
10 4.
11
12 Replot
13
14-->exec(foo);
15
16 1.
17
18 2.
19 needcompile =
20
21 4.
22
23 3.
24
25 4.
26
27 Replot
28
29-->diary(0);
diff --git a/tests/nonRegression/bug564.sci b/tests/nonRegression/bug564.sci
deleted file mode 100644
index d00d95c..0000000
--- a/tests/nonRegression/bug564.sci
+++ /dev/null
@@ -1,68 +0,0 @@
1// <-- Non-regression test for bug 564 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=564
5//
6// <-- Short Description -->
7// CVS version of Scilab:
8// using break when it is not called for creates confusing
9// error messages.
10// In the following code the breaks are useless, they should do
11// nothing
12// but they create uncomprehensible error messages (this code
13// is included
14// in a macro which is execed)
15// if ok then
16// scs_m.objs(k)=XX
17// disp(1)
18// edited=%t;
19// disp(2)
20// needcompile=4
21// disp(3)
22// Cmenu='Replot';
23// disp(4),disp(Cmenu)
24// break
25// else
26// Cmenu='Open/Set'
27// ...
28
29// Non-regression test file for bug 564
30// Copyright INRIA
31
32 // Modified by Pierre MARECHAL
33// Copyright INRIA
34// Date : 23 Mar 2005
35
36function foo()
37 if ok then
38
39 disp(1);
40 edited=%t;
41 disp(2);
42 needcompile=4
43 disp(3);
44 Cmenu='Replot';
45 disp(4);,disp(Cmenu);
46 break
47 else
48 Cmenu='Open/Set'
49 break
50 end
51endfunction
52
53ok=%t;
54diary('bug564.txt");
55foo();
56exec(foo);
57diary(0);
58
59BUG564TXT = mgetl('bug564.txt');
60BUG564REF = mgetl('bug564.ref');
61
62if or(BUG564TXT<>BUG564REF) then
63 affich_result(%F,564);
64else
65 affich_result(%T,564);
66end
67
68mdelete("bug564.txt");
diff --git a/tests/nonRegression/bug566.sci b/tests/nonRegression/bug566.sci
deleted file mode 100644
index a19a1a6..0000000
--- a/tests/nonRegression/bug566.sci
+++ /dev/null
@@ -1,15 +0,0 @@
1// <-- Non-regression test for bug 566 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=566
5//
6// <-- Short Description -->
7// a(2,3,2)='x' returns an empty matrix.
8
9a(2,3,2)='y'
10
11if a == [] then
12 affich_result(%F,566);
13else
14 affich_result(%T,566);
15end
diff --git a/tests/nonRegression/bug567.sci b/tests/nonRegression/bug567.sci
deleted file mode 100644
index 924f57c..0000000
--- a/tests/nonRegression/bug567.sci
+++ /dev/null
@@ -1,18 +0,0 @@
1// <-- Non-regression test for bug 567 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=567
5//
6// <-- Short Description -->
7// When I accidentally closed scilab while scipad editor was
8// open, scipad did not ask to save the changes. This is a
9// serious bug since all unsaved changes were lost. The best
10// solution might be to leave the editor window open as a
11// separate application.
12
13
14disp("start scilab");
15disp("start scipad");
16disp("write something in scipad");
17disp("don''t save!");
18disp("quit scilab");
diff --git a/tests/nonRegression/bug568.sci b/tests/nonRegression/bug568.sci
deleted file mode 100644
index 86611cb..0000000
--- a/tests/nonRegression/bug568.sci
+++ /dev/null
@@ -1,29 +0,0 @@
1// <-- Non-regression test for bug 568 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=568
5//
6// <-- Short Description -->
7// when I have defined a variable like this :
8// -->aa=zeros(4,4,11);
9// I can't insert a part of this hypermatrix in a indexed
10// undefined variable bb.
11// -->bb(1,1,:)=aa(1,1,:) ;
12// This appears in all operating system and version 2.7, 2.7.2
13// and 2.8 alpha
14//
15// fixed in CVS version
16
17
18// exec( "/home/huynh/poubelle/testNonReg/bug568.sce");
19// exec("e:\testNonReg\bug568.sce");
20
21aa=zeros(4,4,11);
22
23iErrorCode=execstr('bb(1,1,:)=aa(1,1,:)','errcatch');
24
25if iErrorCode then
26 affich_result(%T,568)
27else
28 affich_result(%F,568)
29end;
diff --git a/tests/nonRegression/bug569.sci b/tests/nonRegression/bug569.sci
deleted file mode 100644
index cac76b3..0000000
--- a/tests/nonRegression/bug569.sci
+++ /dev/null
@@ -1,21 +0,0 @@
1// <-- Non-regression test for bug 569 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=569
5//
6// <-- Short Description -->
7// contour2d does not work for me; however, contour works as
8// expected of contour2d: 2D plot of a set of level lines.
9
10
11disp("check the result of the graphic windows");
12
13x = 0:0.1:1;
14f = sin(2*%pi*x)'*cos(2*%pi*x);
15nz = [0,0.1,0.2];
16ierror=execstr('contour(x,x,f,nz)','errcatch');
17if ierror == 0 then
18 affich_result(%T,569);
19else
20 affich_result(%F,569);
21end
diff --git a/tests/nonRegression/bug570.sci b/tests/nonRegression/bug570.sci
deleted file mode 100644
index 9c923b2..0000000
--- a/tests/nonRegression/bug570.sci
+++ /dev/null
@@ -1,16 +0,0 @@
1// <-- Non-regression test for bug 570 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=570
5//
6// <-- Short Description -->
7// missing overload for string hypermatrix insertion?
8// See bug 566
9
10
11iErrorCode=execstr('a(2,3,2)=''x''','errcatch');
12if iErrorCode then
13 affich_result(%F,570)
14else
15 affich_result(%T,570)
16end;
diff --git a/tests/nonRegression/bug573.sci b/tests/nonRegression/bug573.sci
deleted file mode 100644
index 7cf513e..0000000
--- a/tests/nonRegression/bug573.sci
+++ /dev/null
@@ -1,28 +0,0 @@
1// <-- Non-regression test for bug 573 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=573
5//
6// <-- Short Description -->
7// On Win2000 the functions tk_getdir() and tk_getfile() do
8// not accept directory names that contain space characters.
9// Given the existing path:
10// "C:/has space"
11//
12// tk_getdir("C:/has space") generates an error.
13// tk_getfile("*","C:/has space") gnerates an error.
14// The error appears to be in TK rather than Scilab itself.
15//
16// A partial work-around is:
17// chdir("C:/has space")
18// tk_getdir()
19//
20// The function xgetfile() does NOT have this problem.
21// Unfortunately there is no xgetdir() function!
22
23if MSDOS then
24 disp("windows only, selection a directory and click OK");
25 tk_getdir("c:/has space")
26 tk_getfile('*','C:/has space');
27 affich_result(%T,573);
28end
diff --git a/tests/nonRegression/bug575.sci b/tests/nonRegression/bug575.sci
deleted file mode 100644
index fd7b200..0000000
--- a/tests/nonRegression/bug575.sci
+++ /dev/null
@@ -1,22 +0,0 @@
1// <-- Non-regression test for bug 575 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=575
5//
6// <-- Short Description -->
7// [m(1),n(1)]=max([1,3,1]) is not possible.
8// But this commande is possible :
9// m(1)=max([1,3,1])
10// m =
11//
12// 3.
13//
14// I don't if it is really a bug, but MATLAB does :o( ?
15
16[m(1),n(1)]=max([1,3,1]);
17
18if m(1) == 3 & n(1) == 2 then
19 affich_result(%T,575)
20else
21 affich_result(%F,575)
22end;
diff --git a/tests/nonRegression/bug576.sci b/tests/nonRegression/bug576.sci
deleted file mode 100644
index ce3028d..0000000
--- a/tests/nonRegression/bug576.sci
+++ /dev/null
@@ -1,21 +0,0 @@
1// <-- Non-regression test for bug 576 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=576
5//
6// <-- Short Description -->
7// input() function of scilab cvs doesn't work like scilab 2.7.x
8// when the ouput argument is empty, the ouput is not detected
9// as an empty result ?
10
11disp("press enter");
12chemin=input('?','s');
13
14isempty(chemin)
15
16if isempty(chemin) == %F then
17 affich_result(%T,576);
18else
19 affich_result(%T,576);
20end;
21
diff --git a/tests/nonRegression/bug577.sci b/tests/nonRegression/bug577.sci
deleted file mode 100644
index 97ca123..0000000
--- a/tests/nonRegression/bug577.sci
+++ /dev/null
@@ -1,20 +0,0 @@
1// <-- Non-regression test for bug 577 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=577
5//
6// <-- Short Description -->
7// It can't save imaginary in MATLAB format (SCILAB 2.7.x and
8// cvs version)
9//
10// I can reproduce the bug with integers data type not with imaginary
11
12x=rand(5,5,100)+%i;
13iCodeError= execstr('mtlb_save(''gain.mat'',''x'')','errcatch' );
14lasterror()
15
16if iCodeError ==0 then
17 affich_result(%T,577)
18else
19 affich_result(%F,577)
20end;
diff --git a/tests/nonRegression/bug584.sci b/tests/nonRegression/bug584.sci
deleted file mode 100644
index 3058767..0000000
--- a/tests/nonRegression/bug584.sci
+++ /dev/null
@@ -1,32 +0,0 @@
1// <-- Non-regression test for bug 584 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=584
5//
6// <-- Short Description -->
7// logspace does not return good max value ! try this :
8// format('e',32);logspace( 3, 3, 1 )
9// ans =
10//
11// 1.0000000000000007000000000E+03
12
13// Copyright INRIA
14
15// Modified by Pierre MARECHAL
16// Copyright INRIA
17// Date : 23 Mar 2005
18
19format('e',32);
20result=logspace( 3, 3, 1 );
21
22trueValue=1.000000000000000000E+03;
23
24if result == trueValue then ;
25 format('v',10);
26 affich_result(%T,584);
27else
28 format('v',10);
29 affich_result(%F,584);
30end
31
32format('v',10);
diff --git a/tests/nonRegression/bug600.sci b/tests/nonRegression/bug600.sci
deleted file mode 100644
index c673b68..0000000
--- a/tests/nonRegression/bug600.sci
+++ /dev/null
@@ -1,22 +0,0 @@
1// <-- Non-regression test for bug 600 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=600
5//
6// <-- Short Description -->
7// I am not able to hear the sounds using either the 'Sound'
8// or 'playsnd' functions.
9//
10// The sound card is working properly with all other
11// softwares.all other wave funstions are working such as
12// wavread loadwave etc...
13
14disp("activate your sound card, and run this file");
15disp("if you hear something, that means the playsnd & PlaySnd work");
16
17y=wavread("SCI/demos/signal/sound/chimes.wav");
18playsnd(y);
19
20PlaySound("SCI/demos/signal/sound/chimes.wav");
21
22affich_result(%T,600);
diff --git a/tests/nonRegression/bug604.sci b/tests/nonRegression/bug604.sci
deleted file mode 100644
index 93abef9..0000000
--- a/tests/nonRegression/bug604.sci
+++ /dev/null
@@ -1,38 +0,0 @@
1// <-- Non-regression test for bug 604 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=604
5//
6// <-- Short Description -->
7// -->g=9.81;m=2;l=1;K=10;I=12;
8// -->M=[g*m*l,I+2m*L^2,K/l;0,1,0;0,0,1]
9//
10// returns a VERY confusing error message.
11//
12// The bug appears also in
13// -->[2m] which returns
14// ans =
15//
16// ! 2. 2. !
17// while
18// -->2m returns
19// !--error 40
20// waiting for end of command
21// and
22// -->(2m) returns
23// !--error 3
24// waiting for right parenthesis
25// as well as
26// -->(2m))))))))))))
27// ...
28
29g=9.81;m=2;l=1;K=10;I=12;
30//M=[g*m*l,I+2*m*l^2,K/l;0,1,0;0,0,1];
31
32//Le bug n'existe plus, la possibilité de faire 2m au lieu de 2*m a été supprimée
33
34if [2*m] == 4 & 2*m == 4 & (2*m) == 4 then
35 affich_result(%T,604);
36else
37 affich_result(%F,604);
38end;
diff --git a/tests/nonRegression/bug608.sci b/tests/nonRegression/bug608.sci
deleted file mode 100644
index d642384..0000000
--- a/tests/nonRegression/bug608.sci
+++ /dev/null
@@ -1,26 +0,0 @@
1// <-- Non-regression test for bug 608 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=608
5//
6// <-- Short Description -->
7// the integer types (tested with uint8 and uint16) operators
8// do not work very well. The problem only occur when one of
9// the operands is a scalar (1 by 1 matrix). That can be
10// observed in SCI/routines/int/gencheck.c that when changing
11// some value on r (pointer to the output boolean matrix), this
12// affect the scalar element, changing the comparison.
13// This occur only if the form is
14// "scalar op matrix" or "matrix op scalar", where op stands
15// for <=,<,==,<>,>= or >
16// The function is called by SCI/routines/int/i_logic.f
17
18a =uint8(zeros(4,4));
19b = (a<=uint8(0))
20c = [ %T %T %T %T ; %T %T %T %T ; %T %T %T %T ; %T %T %T %T ];
21
22if c == b then
23 affich_result(%T,608)
24else
25 affich_result(%F,608)
26end;
diff --git a/tests/nonRegression/bug610.sci b/tests/nonRegression/bug610.sci
deleted file mode 100644
index b01694c..0000000
--- a/tests/nonRegression/bug610.sci
+++ /dev/null
@@ -1,28 +0,0 @@
1// <-- Non-regression test for bug 610 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=610
5//
6// <-- Short Description -->
7// In a function with a varargout list I want to call another
8// function having a varargout list. How should I code it
9// (this is simple in Matlab)? The following is my example
10// which does not work. Any suggestions?
11
12function varargout = mysum(a, b)
13 varargout = list(a + b, a - b, a * b);
14endfunction
15
16iCodeError= execstr('function [y, varargout] = MyNew(a,b) ..
17 [y, varargout] = mysum(a,b) ..
18 endfunction' ..
19,'errcatch' );
20
21if iCodeError then
22 disp("-----------------------");
23 lasterror()
24 disp("-----------------------");
25 affich_result(%T,610)
26else
27 affich_result(%F,610)
28end;
diff --git a/tests/nonRegression/bug612.sci b/tests/nonRegression/bug612.sci
deleted file mode 100644
index c0b0cc8..0000000
--- a/tests/nonRegression/bug612.sci
+++ /dev/null
@@ -1,24 +0,0 @@
1// <-- Non-regression test for bug 612 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=612
5//
6// <-- Short Description -->
7// under unix the dimension of graphic window is limited to
8// 2^16, if one set dimensions higher than this the effective
9// dimension, the value really assigned is modulo 2^16
10//
11// The pb does not exist under windows
12
13xset("wresize",0);
14xset('wdim',2^16+3,5000);
15
16resultLinux=xget("wdim");
17resultWindows=[ 65535. 5000.];
18
19if resultLinux == resultWindows then
20 affich_result(%T,612)
21else
22 resultLinux
23 affich_result(%F,612);
24end
diff --git a/tests/nonRegression/bug614.sci b/tests/nonRegression/bug614.sci
deleted file mode 100644
index 776d456..0000000
--- a/tests/nonRegression/bug614.sci
+++ /dev/null
@@ -1,40 +0,0 @@
1// <-- Non-regression test for bug 614 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=614
5//
6// <-- Short Description -->
7// mxGetDimensions() from mex.h and mexlib.c do not work
8// properly. The reason is that it returns a pointer to int
9// like Matlab, but in fact, the dimensions in scilab are in
10// double format.
11//
12// Also occur in other OS's.
13
14// Copyright INRIA
15// Scilab Project - Serge Steer
16// Copyright INRIA 2006
17// Date : 10 janvier 2006
18
19D=pwd()
20cd(TMPDIR)
21mputl('ilib_mex_build(''libmex'',[''mexf16'',''mexfunction16'',''cmex''],[],[],''Makelib'','''','''','''')','builder.sce')
22
23mputl([
24'#include ""mex.h""'
25'void mexFunction(nlhs, plhs, nrhs, prhs)'
26' int nlhs, nrhs;'
27' mxArray *plhs[]; mxArray *prhs[];'
28'{'
29' int *dims = mxGetDimensions(prhs[0]);'
30' sciprint(""%d %d %d\n"",dims[0],dims[1],dims[2]);'
31'}'
32],'mexfunction16.c')
33exec(TMPDIR+'/builder.sce');
34exec(TMPDIR+'/loader.sce');
35diary('bug614.dia')
36mexf16(rand(2,3,2))
37diary(0)
38ok=or(mgetl('bug614.dia')=="2 3 2");
39affich_result(ok,614);
40cd(D)
diff --git a/tests/nonRegression/bug623.sci b/tests/nonRegression/bug623.sci
deleted file mode 100644
index c677ee2..0000000
--- a/tests/nonRegression/bug623.sci
+++ /dev/null
@@ -1,29 +0,0 @@
1// <-- Non-regression test for bug 623 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=623
5//
6// <-- Short Description -->
7// Even after applying the patch corresponding to bug report
8// 608, integer cast to boolean is still not perfect.
9
10// Copyright INRIA
11// Scilab Project - Pierre MARECHAL
12// Copyright INRIA 2006
13// Date : 6 juin 2006
14
15uno=int8(1);
161==[uno uno];
17
18test1 = and(1==[uno uno])&and([1 1]==[uno uno])&and([uno uno]==1)&and([uno uno]==[1 1]);
19test2 = (execstr("uint8(1) & %t","errcatch") == 144)&(execstr("%t&uint8(1)","errcatch") == 144);
20test3 = (execstr("int32(1) & %t","errcatch") == 144)&(execstr("%t&int32(1)","errcatch") == 144);
21test3 = (execstr("uint32(1) & %t","errcatch") == 144)&(execstr("%t&uint32(1)","errcatch") == 144);
22test4 = (execstr("int16(1) & %t","errcatch") == 144)&(execstr("%t&int16(1)","errcatch") == 144);
23test5 = (execstr("int8(1) & %f ","errcatch") == 144)&(execstr("%t&int8(1)","errcatch") == 144);
24
25if test1 & test2 & test3 & test4 & test5 then
26 affich_result(%T,623);
27else
28 affich_result(%F,623);
29end
diff --git a/tests/nonRegression/bug625.sci b/tests/nonRegression/bug625.sci
deleted file mode 100644
index ec2db60..0000000
--- a/tests/nonRegression/bug625.sci
+++ /dev/null
@@ -1,18 +0,0 @@
1// <-- Non-regression test for bug 625 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=625
5//
6// <-- Short Description -->
7// xget does not recognise (anymore) some of its valid keys.
8// Side effect: getmark() is very verbose and does not show
9// scaled marks.
10
11iReturnCode=execstr('xget(''mark size'')','errcatch');
12
13if iReturnCode == 0 then
14 affich_result(%T,625);
15else
16 disp (lasterror());
17 affich_result(%F,625);
18end
diff --git a/tests/nonRegression/bug629.sci b/tests/nonRegression/bug629.sci
deleted file mode 100644
index 06432d2..0000000
--- a/tests/nonRegression/bug629.sci
+++ /dev/null
@@ -1,27 +0,0 @@
1// <-- Non-regression test for bug 629 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=629
5//
6// <-- Short Description -->
7// When trying to use the wavread function I get these errors
8// that make this function totally unuseful, either calling it
9// with ONE parameter (a) or calling it with two parameters.
10// I made myself sure that the parameters would be of the form
11// indicated by help on line.
12
13
14// exec("e:\testNonReg\629.sce");
15// iReturnCode=execstr("[x,fs,bits] = wavread("e:\testNonReg\t1.wav")','errcatch');
16
17iReturnCode=execstr('wavread(''t1.wav'')','errcatch');
18//iReturnCode=execstr('wavread(''e:\testNonReg\btnenter.wav'')','errcatch');
19
20//[strError,iReturnCode]=lasterror()
21
22if iReturnCode == 0 then
23 affich_result(%T,629);
24else
25 disp (lasterror());
26 affich_result(%F,629);
27 end
diff --git a/tests/nonRegression/bug631.sci b/tests/nonRegression/bug631.sci
deleted file mode 100644
index 6b2c3ac..0000000
--- a/tests/nonRegression/bug631.sci
+++ /dev/null
@@ -1,34 +0,0 @@
1// <-- Non-regression test for bug 631 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=631
5//
6// <-- Short Description -->
7// linpro with initial guess does not work correctly.
8// linpro(-[1;1], [1 -1], zeros(1,1), zeros(2,1), [1;0], 1,
9// zeros(2,1)) returns:
10// ans =
11//
12// ! 1. !
13// ! 1. !,
14// which violates the upper-bound constraint ([1;0]).
15//
16// On the other hand, linpro without initial guess works fine.
17// -->linpro(-[1;1], [1 -1], zeros(1,1), zeros(2,1), [1;0], 1)
18// ans =
19//
20// ! 0. !
21// ! 0. !
22
23
24// Copyright INRIA
25// Scilab Project - Serge Steer
26// Copyright INRIA 2006
27// Date : 10 janvier 2006
28
29p=-[1;1];C=[1 -1];b=zeros(1,1);ci=zeros(2,1);cs=[1;0];me=1;x0=zeros(2,1)
30[x,lagr,f]=linpro(p,C,b,ci,cs,me ,x0)
31ok=%t
32if abs(C*x)>%eps then ok=%f,end
33if or(~(ci<=x&x<=cs)) then ok=%f,end
34affich_result(ok,631);
diff --git a/tests/nonRegression/bug632.sci b/tests/nonRegression/bug632.sci
deleted file mode 100644
index 467712a..0000000
--- a/tests/nonRegression/bug632.sci
+++ /dev/null
@@ -1,47 +0,0 @@
1// <-- Non-regression test for bug 632 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=632
5//
6// <-- Short Description -->
7// The function "lsqrsolve" makes the the whole Scilab crash.
8// It even does it with the example cited in the Scilab
9// documentation:
10//
11// // Data fitting problem
12// // 1 build the data
13// a=34;b=12;c=14;
14// deff('y=FF(x)','y=a*(x-b)+c*x.*x');
15// X=(0:.1:3)';Y=FF(X)+100*(rand()-.5);
16//
17// //solve
18// function e=f1(abc,m)
19// a=abc(1);b=abc(2),c=abc(3),
20// e=Y-(a*(X-b)+c*X.*X);
21// endfunction
22// [abc,v]=lsqrsolve([10;10;10],f1,size(X,1));
23// abc
24// norm(v)
25
26
27// Data fitting problem
28// 1 build the data
29//exec("632.sce");
30
31// this test will fail if scilab crashes
32a=34;b=12;c=14;
33deff('y=FF(x)','y=a*(x-b)+c*x.*x');
34X=(0:.1:3)';Y=FF(X)+100*(rand()-.5);
35
36//solve
37
38function e=f1(abc,m)
39 a=abc(1);b=abc(2),c=abc(3),
40 e=Y-(a*(X-b)+c*X.*X);
41endfunction
42
43[abc,v]=lsqrsolve([10;10;10],f1,size(X,1));
44abc
45norm(v)
46
47affich_result(%T,632);
diff --git a/tests/nonRegression/bug649.sci b/tests/nonRegression/bug649.sci
deleted file mode 100644
index e34c2db..0000000
--- a/tests/nonRegression/bug649.sci
+++ /dev/null
@@ -1,17 +0,0 @@
1// <-- Non-regression test for bug 649 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=649
5//
6// <-- Short Description -->
7// scilab crashes under windows
8// under linux, Scilab loops forever, and it uses the whole CPU
9// resource.
10
11
12// exec("bug649.sci");
13
14x=rand(5,5,100)+%i;
15iCodeError= execstr('mtlb_save gain.mat x','errcatch' );
16
17affich_result(%T,649)
diff --git a/tests/nonRegression/bug654.sci b/tests/nonRegression/bug654.sci
deleted file mode 100644
index f9371cf..0000000
--- a/tests/nonRegression/bug654.sci
+++ /dev/null
@@ -1,23 +0,0 @@
1// <-- Non-regression test for bug 654 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=654
5//
6// <-- Short Description -->
7// listfiles(getenv('SCI')+"/tcl") gives wrong result.
8//
9// - or the syntax is accepted and the result should be correct
10// - or an error message should be displayed
11//
12// of course listfiles(getenv('SCI')+"/tcl/") is OK
13
14
15// bug654
16//
17
18mode (-1)
19clear
20affich_result( and(listfiles(getenv('SCI')+"/tcl") == listfiles(getenv('SCI')+"/tcl/")) , 654)
21clear
22
23
diff --git a/tests/nonRegression/bug656.sci b/tests/nonRegression/bug656.sci
deleted file mode 100644
index 1ca9250..0000000
--- a/tests/nonRegression/bug656.sci
+++ /dev/null
@@ -1,15 +0,0 @@
1// <-- Non-regression test for bug 656 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=656
5//
6// <-- Short Description -->
7// Not the same behaviour between Linux mode and Windows mode :
8//
9// isdir(getenv('SCI'))
10// isdir(getenv('SCI')+"/")
11//
12// True for Linux, the first one is True for Windows and False
13// for the second one
14
15affich_result( isdir(getenv('SCI')) == isdir(getenv('SCI')+"/") , 656)
diff --git a/tests/nonRegression/bug657.sci b/tests/nonRegression/bug657.sci
deleted file mode 100644
index 0fa5987..0000000
--- a/tests/nonRegression/bug657.sci
+++ /dev/null
@@ -1,27 +0,0 @@
1// <-- Non-regression test for bug 657 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=657
5//
6// <-- Short Description -->
7// Strange result given with a combined command (max and int8 )
8// just after a wrong isdir instruction
9//
10// Note that max(int8(10),-2.6) gives wrong result
11
12// Copyright INRIA
13// Scilab Project - Pierre MARECHAL
14// Copyright INRIA 2005
15// Date : 6 fevrier 2005
16
17test1 = max(int8(10),2);
18err = execstr('isdir(test1)','errcatch');
19test2 = max(int8(10),2);
20pwd
21test3 = max(int8(10),2);
22
23if( (test1 == 10) & (err == 246) & (test2 == 10) & (test3 == 10) ) then
24 affich_result(%T,657);
25else
26 affich_result(%F,657);
27end
diff --git a/tests/nonRegression/bug661.sci b/tests/nonRegression/bug661.sci
deleted file mode 100644
index 3e8a9a6..0000000
--- a/tests/nonRegression/bug661.sci
+++ /dev/null
@@ -1,18 +0,0 @@
1// <-- Non-regression test for bug 661 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=661
5//
6// <-- Short Description -->
7// the function quart(x) only works with an even x.
8// Although the bug is normal, took me a whole afternoon
9// of debugging of my macro to reach the conclusion
10// that there was a problem with quart.
11
12// Copyright INRIA
13// Scilab Project - Serge Steer
14// Copyright INRIA 2006
15// Date : 10 janvier 2006
16
17ok=and(abs(quart(1:3)-[1.25;2;2.75])<10*%eps)
18affich_result(ok,661);
diff --git a/tests/nonRegression/bug670.sci b/tests/nonRegression/bug670.sci
deleted file mode 100644
index db9c9cc..0000000
--- a/tests/nonRegression/bug670.sci
+++ /dev/null
@@ -1,25 +0,0 @@
1// <-- Non-regression test for bug 670 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=670
5//
6// <-- Short Description -->
7// Stack problem in FUN2STRING. Occurs in many different
8// situations, one situation can be reproduced using the code
9// below.
10
11// Copyright INRIA
12// Scilab Project - Serge Steer
13// Copyright INRIA 2006
14// Date : 10 janvier 2006
15
16deff('a = foo()', ...
17 'b = tlist([''b''; ''c''], 0); ' + ...
18 'a = tlist([''a''; ''b''], b); ' + ...
19 'a.b.c = getText() + ''text 2'' ');
20t=fun2string(foo);
21t_ref=["function a=ans";
22" b = tlist([''b'';''c''], 0);a = tlist([''a'';''b''], b);a.b.c = getText() + ''text 2''";
23"endfunction"];
24ok=and(t==t_ref);
25affich_result(ok,670);
diff --git a/tests/nonRegression/bug71.sci b/tests/nonRegression/bug71.sci
deleted file mode 100644
index 4adbf78..0000000
--- a/tests/nonRegression/bug71.sci
+++ /dev/null
@@ -1,17 +0,0 @@
1// <-- Non-regression test for bug 71 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=71
5//
6// <-- Short Description -->
7// The macr2lst() function crashes when a macro including
8// an "exit" call is given as parameter
9
10
11function result = bug()
12// This part replay bug
13 deff("foo","exit")
14 result=execstr("macr2lst(foo)","errcatch","n")
15 clear foo;
16endfunction
17affich_result(bug()==0, 71)
diff --git a/tests/nonRegression/bug731.sci b/tests/nonRegression/bug731.sci
deleted file mode 100644
index 26494c3..0000000
--- a/tests/nonRegression/bug731.sci
+++ /dev/null
@@ -1,80 +0,0 @@
1// <-- Non-regression test for bug 731 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=731
5//
6// <-- Short Description -->
7// fun2string and macr2tree cannot cope with nested function
8// definitions
9
10// Copyright INRIA
11// Scilab Project - Pierre MARECHAL
12// Date : 3 mai 2005
13// last modified : 10 Jan 2006
14
15// =============== Test 1 ===============
16
17function y=foo(x)
18 a=sin(x)
19 function y=sq(x), y=x^2,endfunction
20 y=sq(a)+1
21endfunction
22
23CONTENTS = fun2string(foo);
24
25REFCONTENTS=["function y=ans(x)";
26 " a = sin(x)";
27 " function y=sq(x)";
28 " , y=x^2,";
29 " endfunction";
30 " y = sq(a) + 1";
31 "endfunction"];
32
33test1=~or(REFCONTENTS<>CONTENTS);
34
35// =============== Test 2 ===============
36
37function one()
38 function two()
39 // A comment
40 endfunction
41 function three()
42 // A comment
43 endfunction
44 //a comment here
45endfunction
46
47CONTENTS_II = fun2string(one);
48
49REFCONTENTS_II=["function []=ans";
50 " function two()";
51 " // A comment";
52 " endfunction";
53 " function three()";
54 " // A comment";
55 " endfunction";
56 " //a comment here";
57 "endfunction"];
58
59test2=~or(REFCONTENTS_II<>CONTENTS_II);
60
61// =============== Test 3 ===============
62
63function a=foo1()
64 a = 1 ; function foo2() ; disp("hello") ; endfunction ; disp("zut");
65 a = 2
66endfunction
67
68CONTENTS_III=fun2string(foo1);
69
70REFCONTENTS_III=["function a=ans";
71 " a = 1;function foo2() ";
72 " ; disp(""hello"") ; ";
73 " endfunction;disp(''zut'');";
74 " a = 2";
75 "endfunction"];
76
77test3=~or(REFCONTENTS_III<>CONTENTS_III);
78
79// =============== Result ===============
80affich_result(test1 & test2 & test3,731);
diff --git a/tests/nonRegression/bug743.sci b/tests/nonRegression/bug743.sci
deleted file mode 100644
index aaaf241..0000000
--- a/tests/nonRegression/bug743.sci
+++ /dev/null
@@ -1,23 +0,0 @@
1// <-- Non-regression test for bug 743 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=743
5//
6// <-- Short Description -->
7// Le code suivant tourne en scilab 2.7.2 mais pas en 3.0:
8// x = int32(253);
9// if ((x&int32(1))<>int32(0)) then
10// printf('Test\n');
11// end
12
13// Copyright INRIA
14// Scilab Project - Pierre MARECHAL
15// Copyright INRIA 2005
16// Date : 21 octobre 2005
17
18x=int32(253);
19if ((x&int32(1))<>int32(0)) then
20 affich_result(%T,753);
21else
22 affich_result(%F,753);
23end
diff --git a/tests/nonRegression/bug768.sci b/tests/nonRegression/bug768.sci
deleted file mode 100644
index b840f9c..0000000
--- a/tests/nonRegression/bug768.sci
+++ /dev/null
@@ -1,24 +0,0 @@
1// <-- Non-regression test for bug 768 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=768
5//
6// <-- Short Description -->
7// as on Scilab 2.7.2, the "window" function still has a bug
8// when choosing the "chebychev" type with its corresponding
9// parameter vector. SAys the parameters are out of bounds
10// whereas it is wrong
11
12// Copyright INRIA
13// Scilab Project - Pierre MARECHAL
14// Copyright INRIA 2005
15// Date : 6 fevrier 2005
16
17err_number = execstr('window(''ch'',128,[0.25 0.1])','errcatch');
18err_message = lasterror();
19
20if( err_message == 'Parameter par should be [dp,df] where one of dp, df is equal to -1 ') then
21 affich_result(%T,768);
22else
23 affich_result(%F,768);
24end
diff --git a/tests/nonRegression/bug790.sci b/tests/nonRegression/bug790.sci
deleted file mode 100644
index 3c888b2..0000000
--- a/tests/nonRegression/bug790.sci
+++ /dev/null
@@ -1,25 +0,0 @@
1// <-- Non-regression test for bug 790 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=790
5//
6// <-- Short Description -->
7// Scilab crashes when you enter findobj().
8// I know that it is not usefull but, the bug exists.
9
10// Author : Allan CORNET
11// Copyright INRIA
12
13 // Modified by Pierre MARECHAL
14// Copyright INRIA
15// Date : 23 Mar 2005
16
17ierr1 = execstr('findobj() == []','errcatch');
18ierr2 = execstr('findobj(''test'') == []','errcatch');
19ierr3 = execstr('findobj(''Param1'',''Param2'') == []','errcatch');
20
21if( (ierr1 == 77) & (ierr2 == 77) & (ierr3 == 0) ) then
22 affich_result(%T,790);
23else
24 affich_result(%F,790);
25end
diff --git a/tests/nonRegression/bug793.sci b/tests/nonRegression/bug793.sci
deleted file mode 100644
index 1b1fafa..0000000
--- a/tests/nonRegression/bug793.sci
+++ /dev/null
@@ -1,15 +0,0 @@
1// <-- Non-regression test for bug 793 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=793
5//
6// <-- Short Description -->
7// Getdate crashes scilab with negative arguments
8
9affich_result(getdate(-1) == [0 0 0 0 0 0 0 0 0 0], 793)
10
11//-->getdate(-1)
12//dt=getdate(x) x must be >0.
13// ans =
14//
15//! 0. 0. 0. 0. 0. 0. 0. 0. 0. !
diff --git a/tests/nonRegression/bug797.sci b/tests/nonRegression/bug797.sci
deleted file mode 100644
index 8a04373..0000000
--- a/tests/nonRegression/bug797.sci
+++ /dev/null
@@ -1,48 +0,0 @@
1// <-- Non-regression test for bug 797 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=797
5//
6// <-- Short Description -->
7// Toutes les versions
8//
9// Objet : Comportemment étrange avec format
10// REF 01062004-1545
11//
12// voici un comportement étrange avec format (testé sous la
13// 2.7.2 sur Win 2000), celui-ci est il volontaire ?
14//
15// ----------------------------------------------------------
16// -->J=0.001
17// J =
18//
19// .001
20//
21//
22// -->format("v",6)
23// -->J
24// J =
25//
26// .001 <- OK c'est bien ce qu'on souhaite
27// ...
28
29// Pierre MARECHAL - Scilab Project
30// Copyright INRIA
31// 1er juin 2005
32
33J=0.001;
34format("v",7);
35diary(TMPDIR+"/bug797.dia");
36disp(J);
37diary(0);
38
39DIAFILECONTENTS=mgetl(TMPDIR+"/bug797.dia");
40
41REFFILECONTENTS=[" ";
42 " 0.001 ";]
43
44if and(DIAFILECONTENTS==REFFILECONTENTS) then
45 affich_result(%T,797);
46else
47 affich_result(%F,797);
48end
diff --git a/tests/nonRegression/bug799.sci b/tests/nonRegression/bug799.sci
deleted file mode 100644
index b596742..0000000
--- a/tests/nonRegression/bug799.sci
+++ /dev/null
@@ -1,26 +0,0 @@
1// <-- Non-regression test for bug 799 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=799
5//
6// <-- Short Description -->
7// Reload large matrix file from disk with "fscanfMat" command
8// crashes Scilab.
9
10// Copyright INRIA
11// Scilab Project - Pierre MARECHAL
12// Copyright INRIA 2005
13// Date : 6 fevrier 2005
14
15stacksize(19e6);
16m=10593;
17n=696;
18a=rand(m,n,'u');
19fprintfMat(TMPDIR+'/Mat',a,'%5.2f');
20a1=fscanfMat(TMPDIR+'/Mat');
21
22if( a1(1,1) == 0.21 ) then
23 affich_result(%T,799);
24else
25 affich_result(%F,799);
26end
diff --git a/tests/nonRegression/bug801.sci b/tests/nonRegression/bug801.sci
deleted file mode 100644
index 070c145..0000000
--- a/tests/nonRegression/bug801.sci
+++ /dev/null
@@ -1,23 +0,0 @@
1// <-- Non-regression test for bug 801 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=801
5//
6// <-- Short Description -->
7// error in the routine covar.sci
8
9// Copyright INRIA
10// Scilab Project - Pierre MARECHAL
11// Date : 3 mai 2005
12
13x=[4 5];
14y=[3 4 5 6];
15m=[ 2 3 4 5; 5 4 3 2];
16
17correct=%F
18
19if (covar(x,y,m) <> -0.1785714) then
20 correct=%T
21end
22
23affich_result(correct,801);
diff --git a/tests/nonRegression/bug871.sci b/tests/nonRegression/bug871.sci
deleted file mode 100644
index 3f1a003..0000000
--- a/tests/nonRegression/bug871.sci
+++ /dev/null
@@ -1,51 +0,0 @@
1// <-- Non-regression test for bug 871 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=871
5//
6// <-- Short Description -->
7// The Semicolon operator does not work on functions called
8// without parenthesis on args '()'. For instance:
9//
10// --> rand() // OK
11// ans =
12//
13// 0.2113249
14//
15// --> rand(); // OK
16// [NO OUTPUT]
17//
18// --> rand // OK
19// ans =
20//
21// 0.7560439
22//
23// --> rand; // BUG: the semicolon doesn't work!!!!
24// ans =
25//
26// 0.7560439
27
28// Copyright INRIA
29// Scilab Project - Pierre MARECHAL
30// Date : 3 mai 2005
31
32SCIFILE=TMPDIR+"/bug871.dia";
33
34diary(SCIFILE);
35rand;
36diary(0);
37
38SCIFILECONTENTS=mgetl(SCIFILE);
39
40REFCONTENTS=[" ";
41 "-->rand;";
42 " ";
43 "-->diary(0);"]
44
45correct=%T
46
47if or(REFCONTENTS<>SCIFILECONTENTS) then
48 correct=%F
49end
50
51affich_result(correct,871);
diff --git a/tests/nonRegression/bug883.sci b/tests/nonRegression/bug883.sci
deleted file mode 100644
index 3dc38a5..0000000
--- a/tests/nonRegression/bug883.sci
+++ /dev/null
@@ -1,131 +0,0 @@
1// <-- Non-regression test for bug 883 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=883
5//
6// <-- Short Description -->
7// format() output oddities
8
9// Copyright INRIA
10// Scilab Project - Pierre MARECHAL
11// Date : 3 mai 2005
12
13
14SCIFILE=TMPDIR+"/bug883.dia";
15
16diary(SCIFILE);
17a=%pi/100;
18b=2*%pi/a;
19for i=1:50, format(i), disp(b), end;
20diary(0);
21
22SCIFILECONTENTS=mgetl(SCIFILE);
23
24REFCONTENTS=[" ";
25 " ** ";
26 " ";
27 " ** ";
28 " ";
29 " *** ";
30 " ";
31 " 200. ";
32 " ";
33 " 200. ";
34 " ";
35 " 200. ";
36 " ";
37 " 200. ";
38 " ";
39 " 200. ";
40 " ";
41 " 200. ";
42 " ";
43 " 200. ";
44 " ";
45 " 200. ";
46 " ";
47 " 200. ";
48 " ";
49 " 200. ";
50 " ";
51 " 200. ";
52 " ";
53 " 200. ";
54 " ";
55 " 200. ";
56 " ";
57 " 200. ";
58 " ";
59 " 200. ";
60 " ";
61 " 199.99999999999997 ";
62 " ";
63 " 199.999999999999972 ";
64 " ";
65 " 199.9999999999999716 ";
66 " ";
67 " 199.99999999999997158 ";
68 " ";
69 " 199.999999999999971578 ";
70 " ";
71 " 199.9999999999999715783 ";
72 " ";
73 " 199.99999999999997157829 ";
74 " ";
75 " 199.99999999999997157829 ";
76 " ";
77 " 199.99999999999997157829 ";
78 " ";
79 " 199.99999999999997157829 ";
80 " ";
81 " 199.99999999999997157829 ";
82 " ";
83 " 199.99999999999997157829 ";
84 " ";
85 " 199.99999999999997157829 ";
86 " ";
87 " 199.99999999999997157829 ";
88 " ";
89 " 199.99999999999997157829 ";
90 " ";
91 " 199.99999999999997157829 ";
92 " ";
93 " 199.99999999999997157829 ";
94 " ";
95 " 199.99999999999997157829 ";
96 " ";
97 " 199.99999999999997157829 ";
98 " ";
99 " 199.99999999999997157829 ";
100 " ";
101 " 199.99999999999997157829 ";
102 " ";
103 " 199.99999999999997157829 ";
104 " ";
105 " 199.99999999999997157829 ";
106 " ";
107 " 199.99999999999997157829 ";
108 " ";
109 " 199.99999999999997157829 ";
110 " ";
111 " 199.99999999999997157829 ";
112 " ";
113 " 199.99999999999997157829 ";
114 " ";
115 " 199.99999999999997157829 ";
116 " ";
117 " 199.99999999999997157829 ";
118 " ";
119 " 199.99999999999997157829 ";
120 " ";
121 " 199.99999999999997157829 ";
122 " ";
123 " 199.99999999999997157829 "]
124
125correct=%T
126
127if or(REFCONTENTS<>SCIFILECONTENTS) then
128 correct=%F
129end
130
131affich_result(correct,883);
diff --git a/tests/nonRegression/bug950.sci b/tests/nonRegression/bug950.sci
deleted file mode 100644
index 16db09b..0000000
--- a/tests/nonRegression/bug950.sci
+++ /dev/null
@@ -1,27 +0,0 @@
1// <-- Non-regression test for bug 950 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=950
5//
6// <-- Short Description -->
7// extra character in "select" line crashes Scilab instead of
8// issuing a "syntax error" message.
9
10// Copyright INRIA
11// Scilab Project - Serge Steer
12// Copyright INRIA 2006
13// Date : 10 janvier 2006
14
15try
16 function [] = Select (Type)
17 select Type, n
18 case 1 then
19 disp ("1")
20 case 2 then
21 disp ("2")
22 end;
23 endfunction;
24catch
25 ok=%t
26end
27affich_result(ok,950);
diff --git a/tests/nonRegression/bug967.sci b/tests/nonRegression/bug967.sci
deleted file mode 100644
index 6a6ef5c..0000000
--- a/tests/nonRegression/bug967.sci
+++ /dev/null
@@ -1,22 +0,0 @@
1// <-- Non-regression test for bug 967 -->
2//
3// <-- Bugzilla URL -->
4// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=967
5//
6// <-- Short Description -->
7// please read the messages posted to comp.soft-
8// sys.math.scilab with thread subject 'Nan(not-a-number), Inf
9// (infinity) question...' (1 sep 2004) and
10// 'Runtime error...' (31 aug 2004)
11
12// Pierre MARECHAL - Scilab Project
13// Copyright INRIA
14// 1er juin 2005
15
16m=[5 %inf;2 %i];
17
18if ~or(m==%nan) then
19 affich_result(%T,967);
20else
21 affich_result(%F,967);
22end
diff --git a/tests/nonRegression/gain.mat b/tests/nonRegression/gain.mat
deleted file mode 100755
index e69de29..0000000
--- a/tests/nonRegression/gain.mat
+++ /dev/null
diff --git a/tests/nonRegression/t1.wav b/tests/nonRegression/t1.wav
deleted file mode 100755
index dbdaf41..0000000
--- a/tests/nonRegression/t1.wav
+++ /dev/null
Binary files differ