[linear_algebra] fix bug_14030 test 55/19555/2
Adeline CARNIS [Tue, 28 Nov 2017 11:18:42 +0000 (12:18 +0100)]
Change-Id: I5fe03e00ddbf11b7a29f0c84fc0d933d0cbacf7f

scilab/modules/linear_algebra/tests/nonreg_tests/bug_14030.dia.ref
scilab/modules/linear_algebra/tests/nonreg_tests/bug_14030.tst

index f6f1475..bcf46f8 100644 (file)
@@ -31,11 +31,11 @@ endfunction
 assert_checkfalse(norm(X*X'-eye(X), 1)> 200*%eps);
 assert_checkequal(d, 2);
 // check error
+clear sel
 function [flg]=sel(x,y)
 endfunction
-Warning : redefining function: sel                     . Use funcprot(0) to avoid this message
 assert_checkfalse(execstr("[X,d]=schur(H,eye(H),sel)"   ,"errcatch") == 0);
-refMsg = msprintf(_("Undefined variable ''%s'' in function ''%s''."), "flg", "sel");
+refMsg = msprintf(_("Undefined variable ''%s'' in function ''%s''.\n"), "flg", "sel");
 assert_checkerror("[X,d]=schur(H,eye(H),sel)", refMsg);
 e = [0 1 0 0]';
 ksi = fft(e, -1);
index c8d5bc8..db3ffe4 100644 (file)
@@ -24,8 +24,8 @@ H=[1.    1.    1.    0.;
 ww=spec(H)
 
 function [flg]=sel(x,y)
-   flg=%f
-   if abs(x/y-ww(3))<0.0001|abs(x/y-ww(4))<0.00001 then flg=%t,end
+    flg=%f
+    if abs(x/y-ww(3))<0.0001|abs(x/y-ww(4))<0.00001 then flg=%t,end
 endfunction
 
 [X,d]=schur(H,eye(H),sel);
@@ -33,10 +33,11 @@ assert_checkfalse(norm(X*X'-eye(X), 1)> 200*%eps);
 assert_checkequal(d, 2);
 
 // check error
+clear sel
 function [flg]=sel(x,y)
 endfunction
 assert_checkfalse(execstr("[X,d]=schur(H,eye(H),sel)"   ,"errcatch") == 0);
-refMsg = msprintf(_("Undefined variable ''%s'' in function ''%s''."), "flg", "sel");
+refMsg = msprintf(_("Undefined variable ''%s'' in function ''%s''.\n"), "flg", "sel");
 assert_checkerror("[X,d]=schur(H,eye(H),sel)", refMsg);
 
 e = [0 1 0 0]';