diff options
| author | Pierre Marechal <pierre.marechal@scilab.org> | 2007-11-27 14:36:18 +0000 |
|---|---|---|
| committer | Pierre Marechal <pierre.marechal@scilab.org> | 2007-11-27 14:36:18 +0000 |
| commit | 6428ebb6859b2bccd09bc017e1452a30b039d2be (patch) | |
| tree | 37bfdf01e0c48c21dfe95cc14ac940d3808e0618 /tests | |
| parent | 56a7632b5aea38bd191cd6d5b68ac9550479550a (diff) | |
| download | scilab-6428ebb6859b2bccd09bc017e1452a30b039d2be.zip scilab-6428ebb6859b2bccd09bc017e1452a30b039d2be.tar.gz | |
Incoporate non-regression test files in the scilab source tree
Diffstat (limited to 'tests')
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 | |||
| 35 | correct=%F | ||
| 36 | tcl_dir=getenv('SCI')+"/modules/tclsci/tcl" | ||
| 37 | correct=isdir(tcl_dir) | ||
| 38 | if 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") <> []) | ||
| 42 | end // du if | ||
| 43 | |||
| 44 | affich_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 | |||
| 29 | correct=%F | ||
| 30 | affich_result( min(2,uint16(1)) == 1. , 498.1) | ||
| 31 | affich_result( min(2,int16(1)) == 1. , 498.2) | ||
| 32 | affich_result( min(2,int8(1)) == 1. , 498.3) | ||
| 33 | affich_result( min(2,int8(10)) == 2. , 498.4) | ||
| 34 | affich_result( min(2,uint8(1)) == 1. , 498.5) | ||
| 35 | affich_result( max(uint8(10),2) == 10. , 498.6) | ||
| 36 | affich_result( max(int8(10),2) == 10. , 498.7) | ||
| 37 | affich_result( max(int8(10),-2) == 10. , 498.8) | ||
| 38 | affich_result( max(int8(10),-2.6) == 10. , 498.9) | ||
| 39 | affich_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 | |||
| 33 | x=-25:0.1:25; | ||
| 34 | y=x.^2; | ||
| 35 | plot2d(x,y); | ||
| 36 | result=execstr("for k=1:20,xclear();xtape(""replay"",0),xpause(1d5),end","errcatch","n"); | ||
| 37 | xdel(); | ||
| 38 | |||
| 39 | if result==0 then | ||
| 40 | affich_result(%T,502); | ||
| 41 | else | ||
| 42 | affich_result(%F,502); | ||
| 43 | end | ||
| 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") | ||
| 30 | stacksize(2e6); | ||
| 31 | |||
| 32 | execstr("function foo","errcatch"); | ||
| 33 | |||
| 34 | if lasterror()=="endfunction is missing" then | ||
| 35 | affich_result(%T,525); | ||
| 36 | else | ||
| 37 | affich_result(%F,525); | ||
| 38 | end | ||
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 | |||
| 31 | execstr("fun2string(ones)","errcatch"); | ||
| 32 | |||
| 33 | if lasterror()=="first argument is incorrect" then | ||
| 34 | affich_result(%T,528); | ||
| 35 | else | ||
| 36 | affich_result(%F,528); | ||
| 37 | end | ||
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 | |||
| 29 | x=[3 1 5]; | ||
| 30 | |||
| 31 | iErrorCode=execstr("geomean(x)","errcatch"); | ||
| 32 | |||
| 33 | if iErrorCode==0 then | ||
| 34 | affich_result(%T,534); | ||
| 35 | else | ||
| 36 | affich_result(%F,534); | ||
| 37 | end | ||
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 | |||
| 29 | function foo(); a_wrong_string; endfunction | ||
| 30 | |||
| 31 | tcl_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 '] | ||
| 35 | mputl(tcl_script,TMPDIR+'/test.tcl') | ||
| 36 | // Execute the tcl script | ||
| 37 | TK_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 | |||
| 19 | ierror=execstr("int8(7) & int8(8)","errcatch"); | ||
| 20 | |||
| 21 | if ierror == 0 then | ||
| 22 | affich_result(%T,542); | ||
| 23 | else | ||
| 24 | affich_result(%F,542); | ||
| 25 | end; | ||
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 | |||
| 34 | diary("bug545.txt"); | ||
| 35 | |||
| 36 | a=int8(hypermat({3 2 2}));b=hypermat({1 2 2}); | ||
| 37 | a(1,:,:)=b; | ||
| 38 | |||
| 39 | diary(0); | ||
| 40 | |||
| 41 | if MSDOS then | ||
| 42 | [rep,stat]=unix_g("findstr /c:""redefining"" bug545.txt"); | ||
| 43 | else | ||
| 44 | [rep,stat]=unix_g("fgrep redefining bug545.txt") ; | ||
| 45 | end | ||
| 46 | |||
| 47 | if stat == 0 then | ||
| 48 | affich_result(%F,545); | ||
| 49 | else | ||
| 50 | affich_result(%T,545); | ||
| 51 | end; | ||
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 | |||
| 31 | a=int8(ones(10,10))>2; | ||
| 32 | |||
| 33 | b = [ %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 | |||
| 44 | if a == b then | ||
| 45 | affich_result(%T,546); | ||
| 46 | else | ||
| 47 | affich_result(%F,546); | ||
| 48 | end; | ||
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 | |||
| 22 | p = poly(0,'p'); | ||
| 23 | G = syslin('c', (1-p)/((p+1)*(p+3))); | ||
| 24 | t = [0:1/100:8]; | ||
| 25 | |||
| 26 | diary("bug549.txt"); | ||
| 27 | csim('step',t,G); | ||
| 28 | diary(0); | ||
| 29 | |||
| 30 | if MSDOS then | ||
| 31 | [rep,stat]=unix_g('findstr /c:""warning"" bug549.txt') | ||
| 32 | else | ||
| 33 | [rep,stat]=unix_g("fgrep warning bug549.txt") ; | ||
| 34 | end | ||
| 35 | |||
| 36 | if stat == 0 then | ||
| 37 | affich_result(%F,549); | ||
| 38 | else | ||
| 39 | affich_result(%T,549); | ||
| 40 | end; | ||
| 41 | |||
| 42 | mdelete("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 | |||
| 11 | affich_result(sci2exp(%inf)=="%inf", 55.1) | ||
| 12 | affich_result(sci2exp(-%inf)=="-%inf", 55.2) | ||
| 13 | affich_result(sci2exp(%nan)=="%nan", 55.3) | ||
| 14 | affich_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 | |||
| 29 | n=12; | ||
| 30 | |||
| 31 | stat = execstr("for n=1:3; disp(n); end","errcatch"); | ||
| 32 | |||
| 33 | if stat == 0 then | ||
| 34 | affich_result(%T,553); | ||
| 35 | else | ||
| 36 | affich_result(%F,553); | ||
| 37 | end; | ||
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 | |||
| 16 | l = [" ";"-->mprintf(''hello world\n'')";"hello world";" ";"-->diary(0)"] | ||
| 17 | l2 = ["hello world";" "] | ||
| 18 | mputl(l,TMPDIR+'/bug557.ref'); | ||
| 19 | |||
| 20 | // Génération du fichier rapport | ||
| 21 | |||
| 22 | diary(TMPDIR+'/bug557.dia'); | ||
| 23 | mprintf('hello world\n') | ||
| 24 | diary(0) | ||
| 25 | |||
| 26 | // Comparaison | ||
| 27 | |||
| 28 | [u1,ierr]=mopen(TMPDIR+'/bug557.ref'); | ||
| 29 | [u2,ierr]=mopen(TMPDIR+'/bug557.dia'); | ||
| 30 | |||
| 31 | ref=mgetl(u1);mclose(u1); | ||
| 32 | dia=mgetl(u2);mclose(u2); | ||
| 33 | |||
| 34 | // Affichage du résultat | ||
| 35 | |||
| 36 | if or(ref<>dia) then | ||
| 37 | affich_result(%F,557); | ||
| 38 | else | ||
| 39 | affich_result(%T,557); | ||
| 40 | end | ||
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 | |||
| 14 | fileName="bug558.txt"; | ||
| 15 | diary(fileName); | ||
| 16 | x = 20; | ||
| 17 | mtlb_save('bug558','x') | ||
| 18 | diary(0); | ||
| 19 | |||
| 20 | w=fileinfo(fileName); | ||
| 21 | if w(1) == 0 then | ||
| 22 | affich_result(%F,558); | ||
| 23 | else | ||
| 24 | affich_result(%T,558); | ||
| 25 | end; | ||
| 26 | |||
| 27 | mdelete(fileName); | ||
| 28 | mdelete('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 | |||
| 20 | disp("start scilab"); | ||
| 21 | disp("start scipad"); | ||
| 22 | disp("write something in scipad"); | ||
| 23 | disp("don''t save!"); | ||
| 24 | disp("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 | |||
| 36 | function 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 | ||
| 51 | endfunction | ||
| 52 | |||
| 53 | ok=%t; | ||
| 54 | diary('bug564.txt"); | ||
| 55 | foo(); | ||
| 56 | exec(foo); | ||
| 57 | diary(0); | ||
| 58 | |||
| 59 | BUG564TXT = mgetl('bug564.txt'); | ||
| 60 | BUG564REF = mgetl('bug564.ref'); | ||
| 61 | |||
| 62 | if or(BUG564TXT<>BUG564REF) then | ||
| 63 | affich_result(%F,564); | ||
| 64 | else | ||
| 65 | affich_result(%T,564); | ||
| 66 | end | ||
| 67 | |||
| 68 | mdelete("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 | |||
| 9 | a(2,3,2)='y' | ||
| 10 | |||
| 11 | if a == [] then | ||
| 12 | affich_result(%F,566); | ||
| 13 | else | ||
| 14 | affich_result(%T,566); | ||
| 15 | end | ||
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 | |||
| 14 | disp("start scilab"); | ||
| 15 | disp("start scipad"); | ||
| 16 | disp("write something in scipad"); | ||
| 17 | disp("don''t save!"); | ||
| 18 | disp("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 | |||
| 21 | aa=zeros(4,4,11); | ||
| 22 | |||
| 23 | iErrorCode=execstr('bb(1,1,:)=aa(1,1,:)','errcatch'); | ||
| 24 | |||
| 25 | if iErrorCode then | ||
| 26 | affich_result(%T,568) | ||
| 27 | else | ||
| 28 | affich_result(%F,568) | ||
| 29 | end; | ||
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 | |||
| 11 | disp("check the result of the graphic windows"); | ||
| 12 | |||
| 13 | x = 0:0.1:1; | ||
| 14 | f = sin(2*%pi*x)'*cos(2*%pi*x); | ||
| 15 | nz = [0,0.1,0.2]; | ||
| 16 | ierror=execstr('contour(x,x,f,nz)','errcatch'); | ||
| 17 | if ierror == 0 then | ||
| 18 | affich_result(%T,569); | ||
| 19 | else | ||
| 20 | affich_result(%F,569); | ||
| 21 | end | ||
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 | |||
| 11 | iErrorCode=execstr('a(2,3,2)=''x''','errcatch'); | ||
| 12 | if iErrorCode then | ||
| 13 | affich_result(%F,570) | ||
| 14 | else | ||
| 15 | affich_result(%T,570) | ||
| 16 | end; | ||
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 | |||
| 23 | if 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); | ||
| 28 | end | ||
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 | |||
| 18 | if m(1) == 3 & n(1) == 2 then | ||
| 19 | affich_result(%T,575) | ||
| 20 | else | ||
| 21 | affich_result(%F,575) | ||
| 22 | end; | ||
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 | |||
| 11 | disp("press enter"); | ||
| 12 | chemin=input('?','s'); | ||
| 13 | |||
| 14 | isempty(chemin) | ||
| 15 | |||
| 16 | if isempty(chemin) == %F then | ||
| 17 | affich_result(%T,576); | ||
| 18 | else | ||
| 19 | affich_result(%T,576); | ||
| 20 | end; | ||
| 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 | |||
| 12 | x=rand(5,5,100)+%i; | ||
| 13 | iCodeError= execstr('mtlb_save(''gain.mat'',''x'')','errcatch' ); | ||
| 14 | lasterror() | ||
| 15 | |||
| 16 | if iCodeError ==0 then | ||
| 17 | affich_result(%T,577) | ||
| 18 | else | ||
| 19 | affich_result(%F,577) | ||
| 20 | end; | ||
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 | |||
| 19 | format('e',32); | ||
| 20 | result=logspace( 3, 3, 1 ); | ||
| 21 | |||
| 22 | trueValue=1.000000000000000000E+03; | ||
| 23 | |||
| 24 | if result == trueValue then ; | ||
| 25 | format('v',10); | ||
| 26 | affich_result(%T,584); | ||
| 27 | else | ||
| 28 | format('v',10); | ||
| 29 | affich_result(%F,584); | ||
| 30 | end | ||
| 31 | |||
| 32 | format('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 | |||
| 14 | disp("activate your sound card, and run this file"); | ||
| 15 | disp("if you hear something, that means the playsnd & PlaySnd work"); | ||
| 16 | |||
| 17 | y=wavread("SCI/demos/signal/sound/chimes.wav"); | ||
| 18 | playsnd(y); | ||
| 19 | |||
| 20 | PlaySound("SCI/demos/signal/sound/chimes.wav"); | ||
| 21 | |||
| 22 | affich_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 | |||
| 29 | g=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 | |||
| 34 | if [2*m] == 4 & 2*m == 4 & (2*m) == 4 then | ||
| 35 | affich_result(%T,604); | ||
| 36 | else | ||
| 37 | affich_result(%F,604); | ||
| 38 | end; | ||
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 | |||
| 18 | a =uint8(zeros(4,4)); | ||
| 19 | b = (a<=uint8(0)) | ||
| 20 | c = [ %T %T %T %T ; %T %T %T %T ; %T %T %T %T ; %T %T %T %T ]; | ||
| 21 | |||
| 22 | if c == b then | ||
| 23 | affich_result(%T,608) | ||
| 24 | else | ||
| 25 | affich_result(%F,608) | ||
| 26 | end; | ||
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 | |||
| 12 | function varargout = mysum(a, b) | ||
| 13 | varargout = list(a + b, a - b, a * b); | ||
| 14 | endfunction | ||
| 15 | |||
| 16 | iCodeError= execstr('function [y, varargout] = MyNew(a,b) .. | ||
| 17 | [y, varargout] = mysum(a,b) .. | ||
| 18 | endfunction' .. | ||
| 19 | ,'errcatch' ); | ||
| 20 | |||
| 21 | if iCodeError then | ||
| 22 | disp("-----------------------"); | ||
| 23 | lasterror() | ||
| 24 | disp("-----------------------"); | ||
| 25 | affich_result(%T,610) | ||
| 26 | else | ||
| 27 | affich_result(%F,610) | ||
| 28 | end; | ||
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 | |||
| 13 | xset("wresize",0); | ||
| 14 | xset('wdim',2^16+3,5000); | ||
| 15 | |||
| 16 | resultLinux=xget("wdim"); | ||
| 17 | resultWindows=[ 65535. 5000.]; | ||
| 18 | |||
| 19 | if resultLinux == resultWindows then | ||
| 20 | affich_result(%T,612) | ||
| 21 | else | ||
| 22 | resultLinux | ||
| 23 | affich_result(%F,612); | ||
| 24 | end | ||
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 | |||
| 19 | D=pwd() | ||
| 20 | cd(TMPDIR) | ||
| 21 | mputl('ilib_mex_build(''libmex'',[''mexf16'',''mexfunction16'',''cmex''],[],[],''Makelib'','''','''','''')','builder.sce') | ||
| 22 | |||
| 23 | mputl([ | ||
| 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') | ||
| 33 | exec(TMPDIR+'/builder.sce'); | ||
| 34 | exec(TMPDIR+'/loader.sce'); | ||
| 35 | diary('bug614.dia') | ||
| 36 | mexf16(rand(2,3,2)) | ||
| 37 | diary(0) | ||
| 38 | ok=or(mgetl('bug614.dia')=="2 3 2"); | ||
| 39 | affich_result(ok,614); | ||
| 40 | cd(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 | |||
| 15 | uno=int8(1); | ||
| 16 | 1==[uno uno]; | ||
| 17 | |||
| 18 | test1 = and(1==[uno uno])&and([1 1]==[uno uno])&and([uno uno]==1)&and([uno uno]==[1 1]); | ||
| 19 | test2 = (execstr("uint8(1) & %t","errcatch") == 144)&(execstr("%t&uint8(1)","errcatch") == 144); | ||
| 20 | test3 = (execstr("int32(1) & %t","errcatch") == 144)&(execstr("%t&int32(1)","errcatch") == 144); | ||
| 21 | test3 = (execstr("uint32(1) & %t","errcatch") == 144)&(execstr("%t&uint32(1)","errcatch") == 144); | ||
| 22 | test4 = (execstr("int16(1) & %t","errcatch") == 144)&(execstr("%t&int16(1)","errcatch") == 144); | ||
| 23 | test5 = (execstr("int8(1) & %f ","errcatch") == 144)&(execstr("%t&int8(1)","errcatch") == 144); | ||
| 24 | |||
| 25 | if test1 & test2 & test3 & test4 & test5 then | ||
| 26 | affich_result(%T,623); | ||
| 27 | else | ||
| 28 | affich_result(%F,623); | ||
| 29 | end | ||
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 | |||
| 11 | iReturnCode=execstr('xget(''mark size'')','errcatch'); | ||
| 12 | |||
| 13 | if iReturnCode == 0 then | ||
| 14 | affich_result(%T,625); | ||
| 15 | else | ||
| 16 | disp (lasterror()); | ||
| 17 | affich_result(%F,625); | ||
| 18 | end | ||
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 | |||
| 17 | iReturnCode=execstr('wavread(''t1.wav'')','errcatch'); | ||
| 18 | //iReturnCode=execstr('wavread(''e:\testNonReg\btnenter.wav'')','errcatch'); | ||
| 19 | |||
| 20 | //[strError,iReturnCode]=lasterror() | ||
| 21 | |||
| 22 | if iReturnCode == 0 then | ||
| 23 | affich_result(%T,629); | ||
| 24 | else | ||
| 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 | |||
| 29 | p=-[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) | ||
| 31 | ok=%t | ||
| 32 | if abs(C*x)>%eps then ok=%f,end | ||
| 33 | if or(~(ci<=x&x<=cs)) then ok=%f,end | ||
| 34 | affich_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 | ||
| 32 | a=34;b=12;c=14; | ||
| 33 | deff('y=FF(x)','y=a*(x-b)+c*x.*x'); | ||
| 34 | X=(0:.1:3)';Y=FF(X)+100*(rand()-.5); | ||
| 35 | |||
| 36 | //solve | ||
| 37 | |||
| 38 | function e=f1(abc,m) | ||
| 39 | a=abc(1);b=abc(2),c=abc(3), | ||
| 40 | e=Y-(a*(X-b)+c*X.*X); | ||
| 41 | endfunction | ||
| 42 | |||
| 43 | [abc,v]=lsqrsolve([10;10;10],f1,size(X,1)); | ||
| 44 | abc | ||
| 45 | norm(v) | ||
| 46 | |||
| 47 | affich_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 | |||
| 14 | x=rand(5,5,100)+%i; | ||
| 15 | iCodeError= execstr('mtlb_save gain.mat x','errcatch' ); | ||
| 16 | |||
| 17 | affich_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 | |||
| 18 | mode (-1) | ||
| 19 | clear | ||
| 20 | affich_result( and(listfiles(getenv('SCI')+"/tcl") == listfiles(getenv('SCI')+"/tcl/")) , 654) | ||
| 21 | clear | ||
| 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 | |||
| 15 | affich_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 | |||
| 17 | test1 = max(int8(10),2); | ||
| 18 | err = execstr('isdir(test1)','errcatch'); | ||
| 19 | test2 = max(int8(10),2); | ||
| 20 | pwd | ||
| 21 | test3 = max(int8(10),2); | ||
| 22 | |||
| 23 | if( (test1 == 10) & (err == 246) & (test2 == 10) & (test3 == 10) ) then | ||
| 24 | affich_result(%T,657); | ||
| 25 | else | ||
| 26 | affich_result(%F,657); | ||
| 27 | end | ||
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 | |||
| 17 | ok=and(abs(quart(1:3)-[1.25;2;2.75])<10*%eps) | ||
| 18 | affich_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 | |||
| 16 | deff('a = foo()', ... | ||
| 17 | 'b = tlist([''b''; ''c''], 0); ' + ... | ||
| 18 | 'a = tlist([''a''; ''b''], b); ' + ... | ||
| 19 | 'a.b.c = getText() + ''text 2'' '); | ||
| 20 | t=fun2string(foo); | ||
| 21 | t_ref=["function a=ans"; | ||
| 22 | " b = tlist([''b'';''c''], 0);a = tlist([''a'';''b''], b);a.b.c = getText() + ''text 2''"; | ||
| 23 | "endfunction"]; | ||
| 24 | ok=and(t==t_ref); | ||
| 25 | affich_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 | |||
| 11 | function result = bug() | ||
| 12 | // This part replay bug | ||
| 13 | deff("foo","exit") | ||
| 14 | result=execstr("macr2lst(foo)","errcatch","n") | ||
| 15 | clear foo; | ||
| 16 | endfunction | ||
| 17 | affich_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 | |||
| 17 | function y=foo(x) | ||
| 18 | a=sin(x) | ||
| 19 | function y=sq(x), y=x^2,endfunction | ||
| 20 | y=sq(a)+1 | ||
| 21 | endfunction | ||
| 22 | |||
| 23 | CONTENTS = fun2string(foo); | ||
| 24 | |||
| 25 | REFCONTENTS=["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 | |||
| 33 | test1=~or(REFCONTENTS<>CONTENTS); | ||
| 34 | |||
| 35 | // =============== Test 2 =============== | ||
| 36 | |||
| 37 | function one() | ||
| 38 | function two() | ||
| 39 | // A comment | ||
| 40 | endfunction | ||
| 41 | function three() | ||
| 42 | // A comment | ||
| 43 | endfunction | ||
| 44 | //a comment here | ||
| 45 | endfunction | ||
| 46 | |||
| 47 | CONTENTS_II = fun2string(one); | ||
| 48 | |||
| 49 | REFCONTENTS_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 | |||
| 59 | test2=~or(REFCONTENTS_II<>CONTENTS_II); | ||
| 60 | |||
| 61 | // =============== Test 3 =============== | ||
| 62 | |||
| 63 | function a=foo1() | ||
| 64 | a = 1 ; function foo2() ; disp("hello") ; endfunction ; disp("zut"); | ||
| 65 | a = 2 | ||
| 66 | endfunction | ||
| 67 | |||
| 68 | CONTENTS_III=fun2string(foo1); | ||
| 69 | |||
| 70 | REFCONTENTS_III=["function a=ans"; | ||
| 71 | " a = 1;function foo2() "; | ||
| 72 | " ; disp(""hello"") ; "; | ||
| 73 | " endfunction;disp(''zut'');"; | ||
| 74 | " a = 2"; | ||
| 75 | "endfunction"]; | ||
| 76 | |||
| 77 | test3=~or(REFCONTENTS_III<>CONTENTS_III); | ||
| 78 | |||
| 79 | // =============== Result =============== | ||
| 80 | affich_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 | |||
| 18 | x=int32(253); | ||
| 19 | if ((x&int32(1))<>int32(0)) then | ||
| 20 | affich_result(%T,753); | ||
| 21 | else | ||
| 22 | affich_result(%F,753); | ||
| 23 | end | ||
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 | |||
| 17 | err_number = execstr('window(''ch'',128,[0.25 0.1])','errcatch'); | ||
| 18 | err_message = lasterror(); | ||
| 19 | |||
| 20 | if( err_message == 'Parameter par should be [dp,df] where one of dp, df is equal to -1 ') then | ||
| 21 | affich_result(%T,768); | ||
| 22 | else | ||
| 23 | affich_result(%F,768); | ||
| 24 | end | ||
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 | |||
| 17 | ierr1 = execstr('findobj() == []','errcatch'); | ||
| 18 | ierr2 = execstr('findobj(''test'') == []','errcatch'); | ||
| 19 | ierr3 = execstr('findobj(''Param1'',''Param2'') == []','errcatch'); | ||
| 20 | |||
| 21 | if( (ierr1 == 77) & (ierr2 == 77) & (ierr3 == 0) ) then | ||
| 22 | affich_result(%T,790); | ||
| 23 | else | ||
| 24 | affich_result(%F,790); | ||
| 25 | end | ||
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 | |||
| 9 | affich_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 | |||
| 33 | J=0.001; | ||
| 34 | format("v",7); | ||
| 35 | diary(TMPDIR+"/bug797.dia"); | ||
| 36 | disp(J); | ||
| 37 | diary(0); | ||
| 38 | |||
| 39 | DIAFILECONTENTS=mgetl(TMPDIR+"/bug797.dia"); | ||
| 40 | |||
| 41 | REFFILECONTENTS=[" "; | ||
| 42 | " 0.001 ";] | ||
| 43 | |||
| 44 | if and(DIAFILECONTENTS==REFFILECONTENTS) then | ||
| 45 | affich_result(%T,797); | ||
| 46 | else | ||
| 47 | affich_result(%F,797); | ||
| 48 | end | ||
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 | |||
| 15 | stacksize(19e6); | ||
| 16 | m=10593; | ||
| 17 | n=696; | ||
| 18 | a=rand(m,n,'u'); | ||
| 19 | fprintfMat(TMPDIR+'/Mat',a,'%5.2f'); | ||
| 20 | a1=fscanfMat(TMPDIR+'/Mat'); | ||
| 21 | |||
| 22 | if( a1(1,1) == 0.21 ) then | ||
| 23 | affich_result(%T,799); | ||
| 24 | else | ||
| 25 | affich_result(%F,799); | ||
| 26 | end | ||
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 | |||
| 13 | x=[4 5]; | ||
| 14 | y=[3 4 5 6]; | ||
| 15 | m=[ 2 3 4 5; 5 4 3 2]; | ||
| 16 | |||
| 17 | correct=%F | ||
| 18 | |||
| 19 | if (covar(x,y,m) <> -0.1785714) then | ||
| 20 | correct=%T | ||
| 21 | end | ||
| 22 | |||
| 23 | affich_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 | |||
| 32 | SCIFILE=TMPDIR+"/bug871.dia"; | ||
| 33 | |||
| 34 | diary(SCIFILE); | ||
| 35 | rand; | ||
| 36 | diary(0); | ||
| 37 | |||
| 38 | SCIFILECONTENTS=mgetl(SCIFILE); | ||
| 39 | |||
| 40 | REFCONTENTS=[" "; | ||
| 41 | "-->rand;"; | ||
| 42 | " "; | ||
| 43 | "-->diary(0);"] | ||
| 44 | |||
| 45 | correct=%T | ||
| 46 | |||
| 47 | if or(REFCONTENTS<>SCIFILECONTENTS) then | ||
| 48 | correct=%F | ||
| 49 | end | ||
| 50 | |||
| 51 | affich_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 | |||
| 14 | SCIFILE=TMPDIR+"/bug883.dia"; | ||
| 15 | |||
| 16 | diary(SCIFILE); | ||
| 17 | a=%pi/100; | ||
| 18 | b=2*%pi/a; | ||
| 19 | for i=1:50, format(i), disp(b), end; | ||
| 20 | diary(0); | ||
| 21 | |||
| 22 | SCIFILECONTENTS=mgetl(SCIFILE); | ||
| 23 | |||
| 24 | REFCONTENTS=[" "; | ||
| 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 | |||
| 125 | correct=%T | ||
| 126 | |||
| 127 | if or(REFCONTENTS<>SCIFILECONTENTS) then | ||
| 128 | correct=%F | ||
| 129 | end | ||
| 130 | |||
| 131 | affich_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 | |||
| 15 | try | ||
| 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; | ||
| 24 | catch | ||
| 25 | ok=%t | ||
| 26 | end | ||
| 27 | affich_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 | |||
| 16 | m=[5 %inf;2 %i]; | ||
| 17 | |||
| 18 | if ~or(m==%nan) then | ||
| 19 | affich_result(%T,967); | ||
| 20 | else | ||
| 21 | affich_result(%F,967); | ||
| 22 | end | ||
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 | |||