signal_processing plugged.
[scilab.git] / scilab / modules / signal_processing / tests / unit_tests / rpem.tst
index 3890c5f..74ba24c 100644 (file)
@@ -1,7 +1,5 @@
-// -*- scilab -*-
-
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2009 - Digiteo - Vincent Liard
+// Copyright (C) 2011 - DIGITEO
 //
 // This file must be used under the terms of the CeCILL.
 // This source file is licensed as described in the file COPYING, which
@@ -9,12 +7,7 @@
 // are also available at    
 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
-// 'rpem' unit tests
-
-test_path = pathconvert(SCI + '/modules/signal_processing/tests/unit_tests');
-
-// requires test_utilities.sci
-exec(test_path + 'test_utilities.sci');
+test_path = SCI + '/modules/signal_processing/tests/unit_tests/';
 
 n = 2;
 theta = zeros(1,3*n);
@@ -29,36 +22,34 @@ lambda = [1 1 1];
 kappa = [1 1 1];
 c = 500;
 
-// test 1 ****************************************************************
-load(test_path + 'rpem_ref1.dat', 'w1_ref1', 'v_ref1');
-
-check(rpem(w0, u0, y0), w1_ref1);
-
+import_from_hdf5(test_path + "rpem_ref1.h5");
+w1 = rpem(w0, u0, y0);
+if w1 <> w1_ref then pause, end
 [w1,v] = rpem(w0, u0, y0);
-check(w1, w1_ref1);
-check(v, v_ref1);
-// test 2 ****************************************************************
-load(test_path + 'rpem_ref2.dat', 'w1_ref2', 'v_ref2');
+if w1 <> w1_ref1 then pause, end
+if v <> v_ref1 then pause, end
 
-check(rpem(w0, u0, y0, lambda), w1_ref2);
+import_from_hdf5(test_path + "rpem_ref2.h5");
+w1 = rpem(w0, u0, y0, lambda);
+if w1 <> w1_ref2 then pause, end
 
 [w1,v] = rpem(w0, u0, y0, lambda);
-check(w1, w1_ref2);
-check(v, v_ref2);
-// test 3 ****************************************************************
-load(test_path + 'rpem_ref3.dat', 'w1_ref3', 'v_ref3');
+if w1 <> w1_ref2 then pause, end
+if v <> v_ref2 then pause, end
+
+import_from_hdf5(test_path + "rpem_ref3.h5");
 
-check(rpem(w0, u0, y0, lambda, kappa), w1_ref3);
+w1 = rpem(w0, u0, y0, lambda, kappa);
+if w1 <> w1_ref3 then pause, end
 
 [w1,v] = rpem(w0, u0, y0, lambda, kappa);
-check(w1, w1_ref3);
-check(v, v_ref3);
-// test 4 ****************************************************************
-load(test_path + 'rpem_ref4.dat', 'w1_ref4', 'v_ref4');
+if w1 <> w1_ref3 then pause, end
+if v <> v_ref3 then pause, end
 
-check(rpem(w0, u0, y0, lambda, kappa, c), w1_ref4);
+import_from_hdf5(test_path + "rpem_ref4.h5");
+w1 = rpem(w0, u0, y0, lambda, kappa, c);
+if w1 <> w1_ref4 then pause, end
 
 [w1,v] = rpem(w0, u0, y0, lambda, kappa, c);
-check(w1, w1_ref4);
-check(v, v_ref4);
-//****************************************************************
+if w1 <> w1_ref4 then pause, end
+if v <> v_ref4 then pause, end