fix bug 2003 test 42/15442/2
Anais AUBERT [Thu, 30 Oct 2014 10:59:15 +0000 (11:59 +0100)]
Change-Id: I9d966e55e761d659bf5eafe254ca18f7017d3c10

scilab/modules/sparse/tests/nonreg_tests/bug_2003.dia.ref
scilab/modules/sparse/tests/nonreg_tests/bug_2003.tst

index 38fa22a..8388754 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- CLI SHELL MODE -->
 // <-- Non-regression test for bug 2003 -->
 //
 // <-- Bugzilla URL -->
@@ -24,12 +25,12 @@ if norm(a*x-b)>1d-10 then bugmes();quit;end
 [P,L,U,Q]=luget(h);
 if norm(P*L*U*Q-A)>1d-10 then bugmes();quit;end
 ludel(h)
-if execstr('x=lusolve(h,b);','errcatch')<>247 then bugmes();quit;end
-if execstr('ludel(h);','errcatch')<>247 then bugmes();quit;end
-if execstr('[P,L,U,Q]=luget(h);','errcatch')<>247 then bugmes();quit;end
+if execstr("x=lusolve(h,b);","errcatch")<>999 then bugmes();quit;end
+if execstr("ludel(h);","errcatch")<>999 then bugmes();quit;end
+if execstr("[P,L,U,Q]=luget(h);","errcatch")<>999 then bugmes();quit;end
 //try to allocate a lot of handles
 for k=1:20
-  [h1,rk]=lufact(A);
-end    
+    [h1,rk]=lufact(A);
+end
 x=lusolve(h1,b);
 if norm(a*x-b)>1d-10 then bugmes();quit;end
index 550d760..7451502 100644 (file)
@@ -28,14 +28,14 @@ if norm(a*x-b)>1d-10 then pause,end
 [P,L,U,Q]=luget(h);
 if norm(P*L*U*Q-A)>1d-10 then pause,end
 ludel(h)
-if execstr('x=lusolve(h,b);','errcatch')<>247 then pause,end
-if execstr('ludel(h);','errcatch')<>247 then pause,end
-if execstr('[P,L,U,Q]=luget(h);','errcatch')<>247 then pause,end
+if execstr("x=lusolve(h,b);","errcatch")<>999 then pause,end
+if execstr("ludel(h);","errcatch")<>999 then pause,end
+if execstr("[P,L,U,Q]=luget(h);","errcatch")<>999 then pause,end
 
 //try to allocate a lot of handles
 for k=1:20
-  [h1,rk]=lufact(A);
-end    
+    [h1,rk]=lufact(A);
+end
 
 x=lusolve(h1,b);
 if norm(a*x-b)>1d-10 then pause,end