Matio loadmafile with assert function 08/8708/1
Bruno JOFRET [Tue, 14 Aug 2012 14:47:01 +0000 (16:47 +0200)]
Change-Id: I628956abf14bcb4c28fc1cd4d269904bed622b30

scilab/modules/matio/tests/unit_tests/loadmatfile.dia.ref
scilab/modules/matio/tests/unit_tests/loadmatfile.tst

index 2cca5ed..edb55e7 100644 (file)
@@ -20,12 +20,12 @@ for formatIndex = 1:size(binFormats, "*")
   // TESTS FOR CELL ARRAYS
   //
   if binFormats(formatIndex) <> "-v4" then // Cell arrays can not be stored in Matlab 4 binary files
-    if or(emptycell <> cell()) then bugmes();quit;end
-    if or(scalarcell <> makecell([1 1], 1.23)) then bugmes();quit;end
-    if or(rowcell <> makecell([1 3], "abc", [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], 1.23)) then bugmes();quit;end
-    if or(colcell <> makecell([3 1], [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], "abc", 1.23)) then bugmes();quit;end
-    if or(arraycell <> makecell([2 3], "a", [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], int8(1), "abc", 1.23, eye(100,100))) then bugmes();quit;end
-    if or(stringcell <> makecell([2 3], "abc", "def", "ghi", "jkl", "mno", "pqr")) then bugmes();quit;end
+    assert_checkequal(emptycell , cell());
+    assert_checkequal(scalarcell , makecell([1 1], 1.23));
+    assert_checkequal(rowcell , makecell([1 3], "abc", [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], 1.23));
+    assert_checkequal(colcell , makecell([3 1], [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], "abc", 1.23));
+    assert_checkequal(arraycell , makecell([2 3], "a", [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], int8(1), "abc", 1.23, eye(100,100)));
+    assert_checkequal(stringcell , makecell([2 3], "abc", "def", "ghi", "jkl", "mno", "pqr"));
     clear emptycell scalarcell rowcell colcell arraycell stringcell
   end
   //
@@ -33,21 +33,21 @@ for formatIndex = 1:size(binFormats, "*")
   //
   if binFormats(formatIndex) <> "-v4" then // Struct arrays can not be stored in Matlab 4 binary files
     sciemptystruct = struct();
-    if or(emptystruct <> sciemptystruct) then bugmes();quit;end
+    assert_checkequal(emptystruct , sciemptystruct);
     sciscalarstruct = struct("f1", 10, "ftwo", "Hello", "field3", int8(12));
-    if or(scalarstruct <> sciscalarstruct) then bugmes();quit;end
+    assert_checkequal(scalarstruct , sciscalarstruct);
     scirowstruct = struct("field1", 10, "field2", "Hello", "field3", int8(12));
     scirowstruct(1,2).field1 = "test";
     scirowstruct(1,2).field2 = eye(10, 10);
     scirowstruct(1,3).field2 = "a field contents";
     scirowstruct(1,3).field3 = 1.23+4.56*%i;
-    if or(rowstruct <> scirowstruct) then bugmes();quit;end
+    assert_checkequal(rowstruct , scirowstruct);
     scicolstruct = struct("name", 10, "phone", "Hello", "address", int8(12));
     scicolstruct(2,1).name = "test";
     scicolstruct(2,1).phone = eye(10, 10);
     scicolstruct(3,1).phone = "a field contents";
     scicolstruct(3,1).address = 1.23+4.56*%i;
-    if or(colstruct <> scicolstruct) then bugmes();quit;end
+    assert_checkequal(colstruct , scicolstruct);
     sciarraystruct = struct("field1", 10, "field2", "Hello", "field3", int8(12));
     sciarraystruct(1,2).field1 = "test";
     sciarraystruct(1,2).field2 = eye(10, 10);
@@ -57,7 +57,7 @@ for formatIndex = 1:size(binFormats, "*")
     sciarraystruct(2,1).phone = eye(10, 10);
     sciarraystruct(3,1).phone = "a field contents";
     sciarraystruct(3,1).address = 1.23+4.56*%i;
-    if or(arraystruct <> sciarraystruct) then bugmes();quit;end
+    assert_checkequal(arraystruct , sciarraystruct);
     clear emptystruct scalarstruct rowstruct colstruct arraystruct
     clear sciemptystruct sciscalarstruct scirowstruct scicolstruct sciarraystruct
   end
@@ -68,24 +68,24 @@ for formatIndex = 1:size(binFormats, "*")
   //
   // TESTS FOR CHARACTER ARRAYS
   //
-  if or(emptystringmatrix <> "") then bugmes();quit;end
-  if or(stringscalar <> "a") then bugmes();quit;end
-  if or(stringrowvector <> ["abc"]) then bugmes();quit;end
-  if or(stringcolvector <> ["a";"b";"c"]) then bugmes();quit;end
-  if or(stringmatrix <> ["abc";"def"]) then bugmes();quit;end
+  assert_checkequal(emptystringmatrix , "");
+  assert_checkequal(stringscalar , "a");
+  assert_checkequal(stringrowvector , ["abc"]);
+  assert_checkequal(stringcolvector , ["a";"b";"c"]);
+  assert_checkequal(stringmatrix , ["abc";"def"]);
   clear emptystringmatrix stringscalar stringrowvector stringcolvector stringmatrix
   //
   // TESTS FOR DOUBLE PRECISION ARRAYS
   //
-  if or(emptydoublematrix <> []) then bugmes();quit;end
-  if or(realdoublescalar <> 1.23) then bugmes();quit;end
-  if or(cplxdoublescalar <> 1.23 + 4.56*%i) then bugmes();quit;end
-  if or(realdoublerowvector <> [1.23 -4.56 7.89]) then bugmes();quit;end
-  if or(cplxdoublerowvector <> [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i]) then bugmes();quit;end
-  if or(realdoublecolvector <> [1.23;-4.56;7.89]) then bugmes();quit;end
-  if or(cplxdoublecolvector <> [1.23+7.89*%i;4.56-1.23*%i;7.89+4.56*%i]) then bugmes();quit;end
-  if or(realdoublematrix <> [1.23 -4.56 7.89;9.87 6.54 -3.21]) then bugmes();quit;end
-  if or(cplxdoublematrix <> [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i;9.87+3.21*%i 6.54+9.87*%i 3.21-6.54*%i]) then bugmes();quit;end
+  assert_checkequal(emptydoublematrix , []);
+  assert_checkequal(realdoublescalar , 1.23);
+  assert_checkequal(cplxdoublescalar , 1.23 + 4.56*%i);
+  assert_checkequal(realdoublerowvector , [1.23 -4.56 7.89]);
+  assert_checkequal(cplxdoublerowvector , [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i]);
+  assert_checkequal(realdoublecolvector , [1.23;-4.56;7.89]);
+  assert_checkequal(cplxdoublecolvector , [1.23+7.89*%i;4.56-1.23*%i;7.89+4.56*%i]);
+  assert_checkequal(realdoublematrix , [1.23 -4.56 7.89;9.87 6.54 -3.21]);
+  assert_checkequal(cplxdoublematrix , [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i;9.87+3.21*%i 6.54+9.87*%i 3.21-6.54*%i]);
   clear emptydoublematrix realdoublescalar cplxdoublescalar realdoublerowvector cplxdoublerowvector realdoublecolvector cplxdoublecolvector realdoublematrix cplxdoublematrix
   //
   // TESTS FOR SINGLE PRECISION ARRAYS
@@ -95,94 +95,95 @@ for formatIndex = 1:size(binFormats, "*")
   // TESTS FOR SPARSE MATRICES
   //
   if binFormats(formatIndex) <> "-v4" then // Integers can not be stored in Matlab 4 binary files
-  if or(emptysparse <> []) then bugmes();quit;end
-  if or(realscalarsparse <> sparse(1.23)) then bugmes();quit;end
-  //if or(cplxscalarsparse <> sparse(1.23 + 4.56i)) then bugmes();quit;end
-  if or(realrowvectorsparse <> sparse([1.23 0 7.89])) then bugmes();quit;end
-  //if or(cplxrowvectorsparse <> sparse([1.23+7.89i 0 7.89+4.56i])) then bugmes();quit;end
-  if or(realcolvectorsparse <> sparse([1.23;0;7.89])) then bugmes();quit;end
-  //if or(cplxcolvectorsparse <> sparse([1.23+7.89i;;7.89+4.56i])) then bugmes();quit;end
-  if or(realmatrixsparse <> sparse([1.23 0 7.89;0 6.54 -3.21])) then bugmes();quit;end
-  //if or(cplxmatrixsparse <> sparse([1.23+7.89i 0 7.89+4.56i;0 6.54+9.87i 3.21-6.54i])) then bugmes();quit;end
+  assert_checkequal(emptysparse , []);
+  assert_checkequal(realscalarsparse , sparse(1.23));
+  //assert_checkequal(cplxscalarsparse , sparse(1.23 + 4.56i));
+  assert_checkequal(realrowvectorsparse , sparse([1.23 0 7.89]));
+  //assert_checkequal(cplxrowvectorsparse , sparse([1.23+7.89i 0 7.89+4.56i]));
+  assert_checkequal(realcolvectorsparse , sparse([1.23;0;7.89]));
+  //assert_checkequal(cplxcolvectorsparse , sparse([1.23+7.89i;;7.89+4.56i]));
+  assert_checkequal(realmatrixsparse , sparse([1.23 0 7.89;0 6.54 -3.21]));
+  //assert_checkequal(cplxmatrixsparse , sparse([1.23+7.89i 0 7.89+4.56i;0 6.54+9.87i 3.21-6.54i]));
 end
   if binFormats(formatIndex) <> "-v4" then // Integers can not be stored in Matlab 4 binary files
     //
     // TESTS FOR 8-BITS SIGNED INTEGERS
     //
-    if or(emptyint8matrix <> int8([])) then bugmes();quit;end
-    if or(int8scalar <> int8(1)) then bugmes();quit;end
-    if or(int8rowvector <> int8([1 -4 7])) then bugmes();quit;end
-    if or(int8colvector <> int8([1;-4;7])) then bugmes();quit;end
-    if or(int8matrix <> int8([1 -4 7;-9 6 -3])) then bugmes();quit;end
+    assert_checkequal(emptyint8matrix , int8([]));
+    assert_checkequal(int8scalar , int8(1));
+    assert_checkequal(int8rowvector , int8([1 -4 7]));
+    assert_checkequal(int8colvector , int8([1;-4;7]));
+    assert_checkequal(int8matrix , int8([1 -4 7;-9 6 -3]));
     clear emptyint8matrix int8scalar int8rowvector int8colvector int8matrix
     //
     // TESTS FOR 16-BITS SIGNED INTEGERS
     //
-    if or(emptyint16matrix <> int16([])) then bugmes();quit;end
-    if or(int16scalar <> int16(1)) then bugmes();quit;end
-    if or(int16rowvector <> int16([1 -4 7])) then bugmes();quit;end
-    if or(int16colvector <> int16([1;-4;7])) then bugmes();quit;end
-    if or(int16matrix <> int16([1 -4 7;-9 6 -3])) then bugmes();quit;end
+    assert_checkequal(emptyint16matrix , int16([]));
+    assert_checkequal(int16scalar , int16(1));
+    assert_checkequal(int16rowvector , int16([1 -4 7]));
+    assert_checkequal(int16colvector , int16([1;-4;7]));
+    assert_checkequal(int16matrix , int16([1 -4 7;-9 6 -3]));
     clear emptyint16matrix int16scalar int16rowvector int16colvector int16matrix
     //
     // TESTS FOR 32-BITS SIGNED INTEGERS
     //
-    if or(emptyint32matrix <> int32([])) then bugmes();quit;end
-    if or(int32scalar <> int32(1)) then bugmes();quit;end
-    if or(int32rowvector <> int32([1 -4 7])) then bugmes();quit;end
-    if or(int32colvector <> int32([1;-4;7])) then bugmes();quit;end
-    if or(int32matrix <> int32([1 -4 7;-9 6 -3])) then bugmes();quit;end
+    assert_checkequal(emptyint32matrix , int32([]));
+    assert_checkequal(int32scalar , int32(1));
+    assert_checkequal(int32rowvector , int32([1 -4 7]));
+    assert_checkequal(int32colvector , int32([1;-4;7]));
+    assert_checkequal(int32matrix , int32([1 -4 7;-9 6 -3]));
     clear emptyint32matrix int32scalar int32rowvector int32colvector int32matrix
     // TODO: int64 tests ?
     //
     // TESTS FOR 8-BITS UNSIGNED INTEGERS
     //
-    if or(emptyuint8matrix <> uint8([])) then bugmes();quit;end
-    if or(uint8scalar <> uint8(1)) then bugmes();quit;end
-    //if or(uint8rowvector <> uint8([1 -4 7])) then bugmes();quit;end
-    if or(uint8rowvector <> [1 0 7]) then bugmes();quit;end
-    //if or(uint8colvector <> uint8([1;-4;7])) then bugmes();quit;end
-    if or(uint8colvector <> [1;0;7]) then bugmes();quit;end
-    //if or(uint8matrix <> uint8([1 -4 7;-9 6 -3])) then bugmes();quit;end
-    if or(uint8matrix <> [1 0 7;0 6 0]) then bugmes();quit;end
+    assert_checkequal(emptyuint8matrix , uint8([]));
+    assert_checkequal(uint8scalar , uint8(1));
+    //assert_checkequal(uint8rowvector , uint8([1 -4 7]));
+    assert_checkequal(uint8rowvector , uint8([1 0 7]));
+    //assert_checkequal(uint8colvector , uint8([1;-4;7]));
+    assert_checkequal(uint8colvector , uint8([1;0;7]));
+    //assert_checkequal(uint8matrix , uint8([1 -4 7;-9 6 -3]));
+    assert_checkequal(uint8matrix , uint8([1 0 7;0 6 0]));
     clear emptyuint8matrix uint8scalar uint8rowvector uint8colvector uint8matrix
     //
     // TESTS FOR 16-BITS UNSIGNED INTEGERS
     //
-    if or(emptyuint16matrix <> uint16([])) then bugmes();quit;end
-    if or(uint16scalar <> uint16(1)) then bugmes();quit;end
-    //if or(uint16rowvector <> uint16([1 -4 7])) then bugmes();quit;end
-    if or(uint16rowvector <> [1 0 7]) then bugmes();quit;end
-    //if or(uint16colvector <> uint16([1;-4;7])) then bugmes();quit;end
-    if or(uint16colvector <> [1;0;7]) then bugmes();quit;end
-    //if or(uint16matrix <> uint16([1 -4 7;-9 6 -3])) then bugmes();quit;end
-    if or(uint16matrix <> [1 0 7;0 6 0]) then bugmes();quit;end
+    assert_checkequal(emptyuint16matrix , uint16([]));
+    assert_checkequal(uint16scalar , uint16(1));
+    //assert_checkequal(uint16rowvector , uint16([1 -4 7]));
+    assert_checkequal(uint16rowvector , uint16([1 0 7]));
+    //assert_checkequal(uint16colvector , uint16([1;-4;7]));
+    assert_checkequal(uint16colvector , uint16([1;0;7]));
+    //assert_checkequal(uint16matrix , uint16([1 -4 7;-9 6 -3]));
+    assert_checkequal(uint16matrix , uint16([1 0 7;0 6 0]));
     clear emptyuint16matrix uint16scalar uint16rowvector uint16colvector uint16matrix
     //
     // TESTS FOR 32-BITS UNSIGNED INTEGERS
     //
-    if or(emptyuint32matrix <> uint32([])) then bugmes();quit;end
-    if or(uint32scalar <> uint32(1)) then bugmes();quit;end
-    //if or(uint32rowvector <> uint32([1 -4 7])) then bugmes();quit;end
-    if or(uint32rowvector <> [1 0 7]) then bugmes();quit;end
-    //if or(uint32colvector <> uint32([1;-4;7])) then bugmes();quit;end
-    if or(uint32colvector <> [1;0;7]) then bugmes();quit;end
-    //if or(uint32matrix <> uint32([1 -4 7;-9 6 -3])) then bugmes();quit;end
-    if or(uint32matrix <> [1 0 7;0 6 0]) then bugmes();quit;end
+    assert_checkequal(emptyuint32matrix , uint32([]));
+    assert_checkequal(uint32scalar , uint32(1));
+    //assert_checkequal(uint32rowvector , uint32([1 -4 7]));
+    assert_checkequal(uint32rowvector , uint32([1 0 7]));
+    //assert_checkequal(uint32colvector , uint32([1;-4;7]));
+    assert_checkequal(uint32colvector , uint32([1;0;7]));
+    //assert_checkequal(uint32matrix , uint32([1 -4 7;-9 6 -3]));
+    assert_checkequal(uint32matrix , uint32([1 0 7;0 6 0]));
     clear emptyuint32matrix uint32scalar uint32rowvector uint32colvector uint32matrix
     // TODO: uint64 tests ?
     //
     // TESTS FOR ND-ARRAYS
     //
-    if or(emptyNDarray.dims <> [0 0 0]) | or(emptyNDarray.entries <> []) then bugmes();quit;end
-    if or(realdoubleNDarray <> matrix(1:24, 2, 3, 4)) then bugmes();quit;end
-    if or(complexdoubleNDarray <> matrix((1:24) + (1:24)*%i, 2, 3, 4)) then bugmes();quit;end
+    assert_checkequal(emptyNDarray.dims , int32([0 0 0]));
+    assert_checkequal(emptyNDarray.entries , []);
+    assert_checkequal(realdoubleNDarray , matrix(1:24, 2, 3, 4));
+    assert_checkequal(complexdoubleNDarray , matrix((1:24) + (1:24)*%i, 2, 3, 4));
     clear emptyNDarray realdoubleNDarray complexdoubleNDarray
   end
   //
   // MISC
   //
-  if or(eye100x100 <> eye(100,100)) then bugmes();quit;end
+  assert_checkequal(eye100x100 , eye(100,100));
 end
  
  cplxdoublecolvector-v4.mat   
index 8eb95b0..02ae6f9 100644 (file)
@@ -25,42 +25,42 @@ for formatIndex = 1:size(binFormats, "*")
   // TESTS FOR CELL ARRAYS
   //
   if binFormats(formatIndex) <> "-v4" then // Cell arrays can not be stored in Matlab 4 binary files
-    
-    if or(emptycell <> cell()) then pause, end
-    if or(scalarcell <> makecell([1 1], 1.23)) then pause, end
-    if or(rowcell <> makecell([1 3], "abc", [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], 1.23)) then pause, end
-    if or(colcell <> makecell([3 1], [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], "abc", 1.23)) then pause, end
-    if or(arraycell <> makecell([2 3], "a", [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], int8(1), "abc", 1.23, eye(100,100))) then pause, end
-    if or(stringcell <> makecell([2 3], "abc", "def", "ghi", "jkl", "mno", "pqr")) then pause, end
-  
+
+    assert_checkequal(emptycell , cell());
+    assert_checkequal(scalarcell , makecell([1 1], 1.23));
+    assert_checkequal(rowcell , makecell([1 3], "abc", [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], 1.23));
+    assert_checkequal(colcell , makecell([3 1], [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], "abc", 1.23));
+    assert_checkequal(arraycell , makecell([2 3], "a", [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], int8(1), "abc", 1.23, eye(100,100)));
+    assert_checkequal(stringcell , makecell([2 3], "abc", "def", "ghi", "jkl", "mno", "pqr"));
+
     clear emptycell scalarcell rowcell colcell arraycell stringcell
   end
-  
+
   //
   // TESTS FOR STRUCTURE ARRAYS
   //
   if binFormats(formatIndex) <> "-v4" then // Struct arrays can not be stored in Matlab 4 binary files
-    
+
     sciemptystruct = struct();
-    if or(emptystruct <> sciemptystruct) then pause, end
-    
+    assert_checkequal(emptystruct , sciemptystruct);
+
     sciscalarstruct = struct("f1", 10, "ftwo", "Hello", "field3", int8(12));
-    if or(scalarstruct <> sciscalarstruct) then pause, end
-    
+    assert_checkequal(scalarstruct , sciscalarstruct);
+
     scirowstruct = struct("field1", 10, "field2", "Hello", "field3", int8(12));
     scirowstruct(1,2).field1 = "test";
     scirowstruct(1,2).field2 = eye(10, 10);
     scirowstruct(1,3).field2 = "a field contents";
     scirowstruct(1,3).field3 = 1.23+4.56*%i;
-    if or(rowstruct <> scirowstruct) then pause, end
-    
+    assert_checkequal(rowstruct , scirowstruct);
+
     scicolstruct = struct("name", 10, "phone", "Hello", "address", int8(12));
     scicolstruct(2,1).name = "test";
     scicolstruct(2,1).phone = eye(10, 10);
     scicolstruct(3,1).phone = "a field contents";
     scicolstruct(3,1).address = 1.23+4.56*%i;
-    if or(colstruct <> scicolstruct) then pause, end
-    
+    assert_checkequal(colstruct , scicolstruct);
+
     sciarraystruct = struct("field1", 10, "field2", "Hello", "field3", int8(12));
     sciarraystruct(1,2).field1 = "test";
     sciarraystruct(1,2).field2 = eye(10, 10);
@@ -70,11 +70,11 @@ for formatIndex = 1:size(binFormats, "*")
     sciarraystruct(2,1).phone = eye(10, 10);
     sciarraystruct(3,1).phone = "a field contents";
     sciarraystruct(3,1).address = 1.23+4.56*%i;
-    if or(arraystruct <> sciarraystruct) then pause, end
-    
+    assert_checkequal(arraystruct , sciarraystruct);
+
     clear emptystruct scalarstruct rowstruct colstruct arraystruct
     clear sciemptystruct sciscalarstruct scirowstruct scicolstruct sciarraystruct
-  
+
   end
 
   //
@@ -87,11 +87,11 @@ for formatIndex = 1:size(binFormats, "*")
   // TESTS FOR CHARACTER ARRAYS
   //
 
-  if or(emptystringmatrix <> "") then pause, end
-  if or(stringscalar <> "a") then pause, end
-  if or(stringrowvector <> ["abc"]) then pause, end
-  if or(stringcolvector <> ["a";"b";"c"]) then pause, end
-  if or(stringmatrix <> ["abc";"def"]) then pause, end
+  assert_checkequal(emptystringmatrix , "");
+  assert_checkequal(stringscalar , "a");
+  assert_checkequal(stringrowvector , ["abc"]);
+  assert_checkequal(stringcolvector , ["a";"b";"c"]);
+  assert_checkequal(stringmatrix , ["abc";"def"]);
 
   clear emptystringmatrix stringscalar stringrowvector stringcolvector stringmatrix
 
@@ -99,19 +99,19 @@ for formatIndex = 1:size(binFormats, "*")
   // TESTS FOR DOUBLE PRECISION ARRAYS
   //
 
-  if or(emptydoublematrix <> []) then pause, end
+  assert_checkequal(emptydoublematrix , []);
 
-  if or(realdoublescalar <> 1.23) then pause, end
-  if or(cplxdoublescalar <> 1.23 + 4.56*%i) then pause, end
+  assert_checkequal(realdoublescalar , 1.23);
+  assert_checkequal(cplxdoublescalar , 1.23 + 4.56*%i);
 
-  if or(realdoublerowvector <> [1.23 -4.56 7.89]) then pause, end
-  if or(cplxdoublerowvector <> [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i]) then pause, end
+  assert_checkequal(realdoublerowvector , [1.23 -4.56 7.89]);
+  assert_checkequal(cplxdoublerowvector , [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i]);
 
-  if or(realdoublecolvector <> [1.23;-4.56;7.89]) then pause, end
-  if or(cplxdoublecolvector <> [1.23+7.89*%i;4.56-1.23*%i;7.89+4.56*%i]) then pause, end
+  assert_checkequal(realdoublecolvector , [1.23;-4.56;7.89]);
+  assert_checkequal(cplxdoublecolvector , [1.23+7.89*%i;4.56-1.23*%i;7.89+4.56*%i]);
 
-  if or(realdoublematrix <> [1.23 -4.56 7.89;9.87 6.54 -3.21]) then pause, end
-  if or(cplxdoublematrix <> [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i;9.87+3.21*%i 6.54+9.87*%i 3.21-6.54*%i]) then pause, end
+  assert_checkequal(realdoublematrix , [1.23 -4.56 7.89;9.87 6.54 -3.21]);
+  assert_checkequal(cplxdoublematrix , [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i;9.87+3.21*%i 6.54+9.87*%i 3.21-6.54*%i]);
 
   clear emptydoublematrix realdoublescalar cplxdoublescalar realdoublerowvector cplxdoublerowvector realdoublecolvector cplxdoublecolvector realdoublematrix cplxdoublematrix
 
@@ -126,31 +126,31 @@ for formatIndex = 1:size(binFormats, "*")
   //
 
   if binFormats(formatIndex) <> "-v4" then // Integers can not be stored in Matlab 4 binary files
-  if or(emptysparse <> []) then pause, end
-
-  if or(realscalarsparse <> sparse(1.23)) then pause, end
-  //if or(cplxscalarsparse <> sparse(1.23 + 4.56i)) then pause, end
-  
-  if or(realrowvectorsparse <> sparse([1.23 0 7.89])) then pause, end
-  //if or(cplxrowvectorsparse <> sparse([1.23+7.89i 0 7.89+4.56i])) then pause, end
-  
-  if or(realcolvectorsparse <> sparse([1.23;0;7.89])) then pause, end
-  //if or(cplxcolvectorsparse <> sparse([1.23+7.89i;;7.89+4.56i])) then pause, end
-  
-  if or(realmatrixsparse <> sparse([1.23 0 7.89;0 6.54 -3.21])) then pause, end
-  //if or(cplxmatrixsparse <> sparse([1.23+7.89i 0 7.89+4.56i;0 6.54+9.87i 3.21-6.54i])) then pause, end
+  assert_checkequal(emptysparse , []);
+
+  assert_checkequal(realscalarsparse , sparse(1.23));
+  //assert_checkequal(cplxscalarsparse , sparse(1.23 + 4.56i));
+
+  assert_checkequal(realrowvectorsparse , sparse([1.23 0 7.89]));
+  //assert_checkequal(cplxrowvectorsparse , sparse([1.23+7.89i 0 7.89+4.56i]));
+
+  assert_checkequal(realcolvectorsparse , sparse([1.23;0;7.89]));
+  //assert_checkequal(cplxcolvectorsparse , sparse([1.23+7.89i;;7.89+4.56i]));
+
+  assert_checkequal(realmatrixsparse , sparse([1.23 0 7.89;0 6.54 -3.21]));
+  //assert_checkequal(cplxmatrixsparse , sparse([1.23+7.89i 0 7.89+4.56i;0 6.54+9.87i 3.21-6.54i]));
 end
   if binFormats(formatIndex) <> "-v4" then // Integers can not be stored in Matlab 4 binary files
-    
+
     //
     // TESTS FOR 8-BITS SIGNED INTEGERS
     //
 
-    if or(emptyint8matrix <> int8([])) then pause, end
-    if or(int8scalar <> int8(1)) then pause, end
-    if or(int8rowvector <> int8([1 -4 7])) then pause, end
-    if or(int8colvector <> int8([1;-4;7])) then pause, end
-    if or(int8matrix <> int8([1 -4 7;-9 6 -3])) then pause, end
+    assert_checkequal(emptyint8matrix , int8([]));
+    assert_checkequal(int8scalar , int8(1));
+    assert_checkequal(int8rowvector , int8([1 -4 7]));
+    assert_checkequal(int8colvector , int8([1;-4;7]));
+    assert_checkequal(int8matrix , int8([1 -4 7;-9 6 -3]));
 
     clear emptyint8matrix int8scalar int8rowvector int8colvector int8matrix
 
@@ -158,11 +158,11 @@ end
     // TESTS FOR 16-BITS SIGNED INTEGERS
     //
 
-    if or(emptyint16matrix <> int16([])) then pause, end
-    if or(int16scalar <> int16(1)) then pause, end
-    if or(int16rowvector <> int16([1 -4 7])) then pause, end
-    if or(int16colvector <> int16([1;-4;7])) then pause, end
-    if or(int16matrix <> int16([1 -4 7;-9 6 -3])) then pause, end
+    assert_checkequal(emptyint16matrix , int16([]));
+    assert_checkequal(int16scalar , int16(1));
+    assert_checkequal(int16rowvector , int16([1 -4 7]));
+    assert_checkequal(int16colvector , int16([1;-4;7]));
+    assert_checkequal(int16matrix , int16([1 -4 7;-9 6 -3]));
 
     clear emptyint16matrix int16scalar int16rowvector int16colvector int16matrix
 
@@ -170,11 +170,11 @@ end
     // TESTS FOR 32-BITS SIGNED INTEGERS
     //
 
-    if or(emptyint32matrix <> int32([])) then pause, end
-    if or(int32scalar <> int32(1)) then pause, end
-    if or(int32rowvector <> int32([1 -4 7])) then pause, end
-    if or(int32colvector <> int32([1;-4;7])) then pause, end
-    if or(int32matrix <> int32([1 -4 7;-9 6 -3])) then pause, end
+    assert_checkequal(emptyint32matrix , int32([]));
+    assert_checkequal(int32scalar , int32(1));
+    assert_checkequal(int32rowvector , int32([1 -4 7]));
+    assert_checkequal(int32colvector , int32([1;-4;7]));
+    assert_checkequal(int32matrix , int32([1 -4 7;-9 6 -3]));
 
     clear emptyint32matrix int32scalar int32rowvector int32colvector int32matrix
 
@@ -184,14 +184,14 @@ end
     // TESTS FOR 8-BITS UNSIGNED INTEGERS
     //
 
-    if or(emptyuint8matrix <> uint8([])) then pause, end
-    if or(uint8scalar <> uint8(1)) then pause, end
-    //if or(uint8rowvector <> uint8([1 -4 7])) then pause, end
-    if or(uint8rowvector <> [1 0 7]) then pause, end
-    //if or(uint8colvector <> uint8([1;-4;7])) then pause, end
-    if or(uint8colvector <> [1;0;7]) then pause, end
-    //if or(uint8matrix <> uint8([1 -4 7;-9 6 -3])) then pause, end
-    if or(uint8matrix <> [1 0 7;0 6 0]) then pause, end
+    assert_checkequal(emptyuint8matrix , uint8([]));
+    assert_checkequal(uint8scalar , uint8(1));
+    //assert_checkequal(uint8rowvector , uint8([1 -4 7]));
+    assert_checkequal(uint8rowvector , uint8([1 0 7]));
+    //assert_checkequal(uint8colvector , uint8([1;-4;7]));
+    assert_checkequal(uint8colvector , uint8([1;0;7]));
+    //assert_checkequal(uint8matrix , uint8([1 -4 7;-9 6 -3]));
+    assert_checkequal(uint8matrix , uint8([1 0 7;0 6 0]));
 
     clear emptyuint8matrix uint8scalar uint8rowvector uint8colvector uint8matrix
 
@@ -199,14 +199,14 @@ end
     // TESTS FOR 16-BITS UNSIGNED INTEGERS
     //
 
-    if or(emptyuint16matrix <> uint16([])) then pause, end
-    if or(uint16scalar <> uint16(1)) then pause, end
-    //if or(uint16rowvector <> uint16([1 -4 7])) then pause, end
-    if or(uint16rowvector <> [1 0 7]) then pause, end
-    //if or(uint16colvector <> uint16([1;-4;7])) then pause, end
-    if or(uint16colvector <> [1;0;7]) then pause, end
-    //if or(uint16matrix <> uint16([1 -4 7;-9 6 -3])) then pause, end
-    if or(uint16matrix <> [1 0 7;0 6 0]) then pause, end
+    assert_checkequal(emptyuint16matrix , uint16([]));
+    assert_checkequal(uint16scalar , uint16(1));
+    //assert_checkequal(uint16rowvector , uint16([1 -4 7]));
+    assert_checkequal(uint16rowvector , uint16([1 0 7]));
+    //assert_checkequal(uint16colvector , uint16([1;-4;7]));
+    assert_checkequal(uint16colvector , uint16([1;0;7]));
+    //assert_checkequal(uint16matrix , uint16([1 -4 7;-9 6 -3]));
+    assert_checkequal(uint16matrix , uint16([1 0 7;0 6 0]));
 
     clear emptyuint16matrix uint16scalar uint16rowvector uint16colvector uint16matrix
 
@@ -214,14 +214,14 @@ end
     // TESTS FOR 32-BITS UNSIGNED INTEGERS
     //
 
-    if or(emptyuint32matrix <> uint32([])) then pause, end
-    if or(uint32scalar <> uint32(1)) then pause, end
-    //if or(uint32rowvector <> uint32([1 -4 7])) then pause, end
-    if or(uint32rowvector <> [1 0 7]) then pause, end
-    //if or(uint32colvector <> uint32([1;-4;7])) then pause, end
-    if or(uint32colvector <> [1;0;7]) then pause, end
-    //if or(uint32matrix <> uint32([1 -4 7;-9 6 -3])) then pause, end
-    if or(uint32matrix <> [1 0 7;0 6 0]) then pause, end
+    assert_checkequal(emptyuint32matrix , uint32([]));
+    assert_checkequal(uint32scalar , uint32(1));
+    //assert_checkequal(uint32rowvector , uint32([1 -4 7]));
+    assert_checkequal(uint32rowvector , uint32([1 0 7]));
+    //assert_checkequal(uint32colvector , uint32([1;-4;7]));
+    assert_checkequal(uint32colvector , uint32([1;0;7]));
+    //assert_checkequal(uint32matrix , uint32([1 -4 7;-9 6 -3]));
+    assert_checkequal(uint32matrix , uint32([1 0 7;0 6 0]));
 
     clear emptyuint32matrix uint32scalar uint32rowvector uint32colvector uint32matrix
 
@@ -231,9 +231,10 @@ end
     //
     // TESTS FOR ND-ARRAYS
     //
-    if or(emptyNDarray.dims <> [0 0 0]) | or(emptyNDarray.entries <> []) then pause, end
-    if or(realdoubleNDarray <> matrix(1:24, 2, 3, 4)) then pause, end
-    if or(complexdoubleNDarray <> matrix((1:24) + (1:24)*%i, 2, 3, 4)) then pause, end
+    assert_checkequal(emptyNDarray.dims , int32([0 0 0]));
+    assert_checkequal(emptyNDarray.entries , []);
+    assert_checkequal(realdoubleNDarray , matrix(1:24, 2, 3, 4));
+    assert_checkequal(complexdoubleNDarray , matrix((1:24) + (1:24)*%i, 2, 3, 4));
 
     clear emptyNDarray realdoubleNDarray complexdoubleNDarray
 
@@ -242,7 +243,7 @@ end
   //
   // MISC
   //
-  if or(eye100x100 <> eye(100,100)) then pause, end
+  assert_checkequal(eye100x100 , eye(100,100));
 
 end