Changeset 766 for library/tests/testsuite

Timestamp:

01/11/10 22:55:57 (14 years ago)

Author:

mido

Message:

abstract methods restored wherever they are meaningful
macros NOT_IMPLEMENTED and NOT_IMPLEMENTED_VOID defined to make sources shorter
emix::set_parameters and mmix::set_parameters removed, corresponding acces methods created and the corresponding validate methods improved appropriately
some compilator warnings were avoided
and also a few other things cleaned up

Location:

library/tests/testsuite

Files:

• emix_test.cpp (modified) (2 diffs)
• square_mat_test.cpp (modified) (1 diff)

library/tests/testsuite/emix_test.cpp

@@ -38 +38 @@
         emix M1;
         M1.set_rv ( xy );
-        M1.set_parameters ( vec ( "1" ), A1 );
+        M1._Coms() = A1;
+        M1._w() = 1;
         M1.validate();
 
@@ -68 +69 @@
         emix M2;
         M2.set_rv ( xy );
-        M2.set_parameters ( vec ( "1" ), A2 );
+        M2._Coms() = A2;
+        M2._w() = 1;
         M2.validate();
 

library/tests/testsuite/square_mat_test.cpp

@@ -20 +20 @@
         mat A = A0 * A0.T();
 
-        TMatrix sqmat ( A );
-        CHECK_EQUAL ( sz, sqmat.rows() );
-        CHECK_EQUAL ( sz, sqmat.cols() );
+        TMatrix sq_mat ( A );
+        CHECK_EQUAL ( sz, sq_mat.rows() );
+        CHECK_EQUAL ( sz, sq_mat.cols() );
 
-        mat res = sqmat.to_mat();
+        mat res = sq_mat.to_mat();
         CHECK_CLOSE ( A, res, epsilon );
 
         vec v = randu ( sz );
         double w = randu();
-        TMatrix sqmat2 = sqmat;
-        sqmat2.opupdt ( v, w );
+        TMatrix sq_mat2 = sq_mat;
+        sq_mat2.opupdt ( v, w );
 
         res = A + w * outer_product ( v, v );
-        CHECK_CLOSE ( res, sqmat2.to_mat(), epsilon );
+        CHECK_CLOSE ( res, sq_mat2.to_mat(), epsilon );
 
         TMatrix invmat ( sz );
-        sqmat.inv ( invmat );
+        sq_mat.inv ( invmat );
         mat invA = inv ( A );
         CHECK_CLOSE ( invA, invmat.to_mat(), epsilon );
 
         double d = det ( A );
-        CHECK_CLOSE ( log ( d ), sqmat.logdet(), epsilon );
+        CHECK_CLOSE ( log ( d ), sq_mat.logdet(), epsilon );
 
-        double q = sqmat.qform ( ones ( sz ) );
+        double q = sq_mat.qform ( ones ( sz ) );
         CHECK_CLOSE ( sumsum ( A ), q, epsilon );
 
-        q = sqmat.qform ( v );
+        q = sq_mat.qform ( v );
         double r = ( A * v ) * v;
         CHECK_CLOSE ( r, q, epsilon );
 
-        q = sqmat.invqform ( v );
+        q = sq_mat.invqform ( v );
         r = ( invA * v ) * v;
         CHECK_CLOSE ( r, q, epsilon );
 
-        sqmat2 = sqmat;
-        sqmat2.clear();
-        CHECK_EQUAL ( 0, sqmat2.qform ( ones ( sz ) ) );
+        sq_mat2 = sq_mat;
+        sq_mat2.clear();
+        CHECK_EQUAL ( 0, sq_mat2.qform ( ones ( sz ) ) );
 
-        TMatrix twice = sqmat;
-        twice += sqmat;
+        TMatrix twice = sq_mat;
+        twice += sq_mat;
         res = 2 * A;
         CHECK_CLOSE ( res, twice.to_mat(), epsilon );
 
-        twice = sqmat;
+        twice = sq_mat;
         twice *= 2;
         CHECK_CLOSE ( res, twice.to_mat(), epsilon );
 
-        sqmat2 = sqmat;
+        sq_mat2 = sq_mat;
         mat B = randu ( sz, sz );
-        sqmat2.mult_sym ( B );
+        sq_mat2.mult_sym ( B );
         res = ( B * A ) * B.T();
-        CHECK_CLOSE ( res, sqmat2.to_mat(), epsilon );
+        CHECK_CLOSE ( res, sq_mat2.to_mat(), epsilon );
 
         mat C = randu ( sz, sz - 1 );
         TMatrix CAC ( sz - 1 );
-        sqmat.mult_sym_t ( C, CAC );
+        sq_mat.mult_sym_t ( C, CAC );
         res = ( C.T() * A ) * C;
         CHECK_CLOSE ( res, CAC.to_mat(), epsilon );
 
-        sqmat2 = sqmat;
-        sqmat2.mult_sym_t ( B );
+        sq_mat2 = sq_mat;
+        sq_mat2.mult_sym_t ( B );
         res = ( B.T() * A ) * B;
-        CHECK_CLOSE ( res, sqmat2.to_mat(), epsilon );
+        CHECK_CLOSE ( res, sq_mat2.to_mat(), epsilon );
 }