Fix test win 64b : test_run(signal_processing, corr) 02/11002/2
Adeline CARNIS [Tue, 26 Mar 2013 08:25:46 +0000 (09:25 +0100)]
Change-Id: I6f6f14c8e6721d34de3b3fd65409274cb1303d2f

scilab/modules/signal_processing/tests/unit_tests/corr.dia.ref
scilab/modules/signal_processing/tests/unit_tests/corr.tst

index 6ae6d25..3fae6c9 100644 (file)
@@ -1,6 +1,7 @@
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2008 - DIGITEO
+// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
@@ -16,13 +17,17 @@ x=x-mxy(1)*ones(x);
 y=y-mxy(2)*ones(y);
 c1=corr(x,y,32);
 c2=corr(x,32);
-if norm(c1+c2,1) > %eps then bugmes();quit;end
+assert_checkalmostequal(c1, -c2, [], 10*%eps);
 [c3,m3]=corr('fft',xx,yy,256,32);
-if norm(c1-c3,1) > 10 *%eps then bugmes();quit;end
+assert_checkalmostequal(c1, c3, [], 10*%eps);
 [c4,m4]=corr('fft',xx,256,32);
-if or(size(c4)<>[1 32]) then bugmes();quit;end
-if or(size(m4)<>[1 1]) then bugmes();quit;end
-if norm(m3,1) > %eps then bugmes();quit;end
-if norm(m4,1) > %eps then bugmes();quit;end
-if norm(c3-c1,1) > 10*%eps then bugmes();quit;end
-if norm(c4-c2,1) > 10*%eps then bugmes();quit;end
+assert_checkalmostequal(c1, -c2, [], 10*%eps)
+ ans  =
+  T  
+assert_checkequal(size(c4), [1 32]);
+assert_checkequal(size(m4), [1 1]);
+assert_checkalmostequal(norm(m3, 1), %eps, [], %eps);
+assert_checkalmostequal(norm(m4,1), %eps, [], %eps);
+assert_checkalmostequal(c3, c1, [], 10*%eps);
+assert_checkalmostequal(c4, c2, [], 10*%eps);
index b1c17f3..1d624ef 100644 (file)
@@ -1,6 +1,7 @@
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2008 - DIGITEO
+// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
@@ -19,18 +20,17 @@ x=x-mxy(1)*ones(x);
 y=y-mxy(2)*ones(y);
 c1=corr(x,y,32);
 c2=corr(x,32);
-if norm(c1+c2,1) > %eps then pause,end
+assert_checkalmostequal(c1, -c2, [], 10*%eps);
 
 [c3,m3]=corr('fft',xx,yy,256,32);
-if norm(c1-c3,1) > 10 *%eps then pause,end
+assert_checkalmostequal(c1, c3, [], 10*%eps);
 
 [c4,m4]=corr('fft',xx,256,32);
-if or(size(c4)<>[1 32]) then pause,end
-if or(size(m4)<>[1 1]) then pause,end
+assert_checkalmostequal(c1, -c2, [], 10*%eps)
+assert_checkequal(size(c4), [1 32]);
+assert_checkequal(size(m4), [1 1]);
 
-if norm(m3,1) > %eps then pause,end
-if norm(m4,1) > %eps then pause,end
-if norm(c3-c1,1) > 10*%eps then pause,end
-if norm(c4-c2,1) > 10*%eps then pause,end
-
\ No newline at end of file
+assert_checkalmostequal(norm(m3, 1), %eps, [], %eps);
+assert_checkalmostequal(norm(m4,1), %eps, [], %eps);
+assert_checkalmostequal(c3, c1, [], 10*%eps);
+assert_checkalmostequal(c4, c2, [], 10*%eps);