Fix some tests
Pierre Marechal [Tue, 15 Jan 2008 12:38:25 +0000 (12:38 +0000)]
scilab/modules/differential_equations/tests/nonreg_tests/bug_2344.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/nonreg_tests/bug_1693.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_1693.tst

diff --git a/scilab/modules/differential_equations/tests/nonreg_tests/bug_2344.dia.ref b/scilab/modules/differential_equations/tests/nonreg_tests/bug_2344.dia.ref
new file mode 100644 (file)
index 0000000..92cb168
--- /dev/null
@@ -0,0 +1,36 @@
+// <-- Non-regression test for bug 2344 -->
+//
+// <-- Bugzilla URL -->
+// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=2344
+//
+// <-- Short Description -->
+//    dassl interface bug with the info parameter
+//
+//    Whenever a non default info parameter is given to dassl, a wrong error
+//    pops up.
+//
+//    This has been reported first in the Scilab newsgroup:
+//
+//    http://groups.google.com/group/comp.soft-
+//    sys.math.scilab/browse_frm/thread/ad556ab9e14f3005/c20f3f4f6031f338
+//
+//    Francois
+// Author : Francois Vogel
+// Date   : 16 March 2007
+//
+// Extracted and expanded from dassldasrt.tst
+//X1DOT + 10.0*X1 = 0
+//X1 + X2 = 1
+//X1(0) = 1.0, X2(0) = 0.0
+t    = 1:10;
+t0   = 0;
+y0   = [1;0];
+y0d  = [-10;0];
+info = list([],0,[],[],[],0,0);
+deff('[r,ires]=dres1(t,y,ydot)','r=[ydot(1)+10*y(1);y(2)+y(1)-1];ires=0')
+ml      = 1;
+mu      = 1;
+info(3) =[ml,mu];
+execstr("yy0=dassl([y0,y0d],t0,t,dres1,info);","errcatch");
+error_str = lasterror();
+if error_str <> []  then bugmes();quit;end
index 59f2f8a..f9fcdba 100644 (file)
@@ -40,31 +40,19 @@ else
        if pwd() <> '/' then bugmes();quit;end
 end
 // ================== Test 2 ==================
-cd home
- ans  =
- /home/pmarecha   
+cd home;
 if pwd() <> home then bugmes();quit;end
 // ================== Test 3 ==================
 if MSDOS then
-       cd WSCI
+       cd WSCI;
        if pwd() <> WSCI then bugmes();quit;end
 end
 // ================== Test 4 ==================
-cd SCIHOME
- ans  =
- /home/pmarecha/.Scilab/scilab-trunk-SVN   
+cd SCIHOME;
 if pwd() <> SCIHOME then bugmes();quit;end
 // ================== Test 5 ==================
-cd SCIHOME
- ans  =
- /home/pmarecha/.Scilab/scilab-trunk-SVN   
+cd SCIHOME;
 if pwd() <> SCIHOME then bugmes();quit;end
 // ================== Test 6 ==================
-cd PWD
- ans  =
- /home/pmarecha   
+cd PWD;
 if pwd() <> PWD then bugmes();quit;end
index 8765339..50fcfe7 100644 (file)
@@ -43,27 +43,27 @@ end
 
 // ================== Test 2 ==================
 
-cd home
+cd home;
 if pwd() <> home then pause,end
 
 // ================== Test 3 ==================
 
 if MSDOS then
-       cd WSCI
+       cd WSCI;
        if pwd() <> WSCI then pause,end
 end
 
 // ================== Test 4 ==================
 
-cd SCIHOME
+cd SCIHOME;
 if pwd() <> SCIHOME then pause,end
 
 // ================== Test 5 ==================
 
-cd SCIHOME
+cd SCIHOME;
 if pwd() <> SCIHOME then pause,end
 
 // ================== Test 6 ==================
 
-cd PWD
+cd PWD;
 if pwd() <> PWD then pause,end