fix assert_checkequal
[scilab.git] / scilab / modules / development_tools / tests / unit_tests / assert / checkequal.tst
index a701b96..3ffaae8 100644 (file)
 // <-- ENGLISH IMPOSED -->
 
 function flag = MY_assert_equal ( computed , expected )
-  if ( and ( computed==expected ) ) then
-    flag = 1;
-  else
-    flag = 0;
-  end
-  if flag <> 1 then pause,end
+    if ( and ( computed==expected ) ) then
+        flag = 1;
+    else
+        flag = 0;
+    end
+    if flag <> 1 then pause,end
 endfunction
 
 function checkassert ( flag , errmsg , ctype )
-  if ( ctype == "success" ) then
-    MY_assert_equal ( (flag==%t) & (errmsg==""), %t )
-  else
-    MY_assert_equal ( (flag==%f) & (errmsg<>""), %t )
-  end
+    if ( ctype == "success" ) then
+        MY_assert_equal ( (flag==%t) & (errmsg==""), %t )
+    else
+        MY_assert_equal ( (flag==%f) & (errmsg<>""), %t )
+    end
 endfunction
 
 format("v",10);
@@ -113,12 +113,12 @@ checkassert ( flag , errmsg , "success" );
 // Check various types
 //
 //  Mlist
-s=mlist(['V','name','value'],['a','b';'c' 'd'],[1 2; 3 4]);
+s=mlist(["V","name","value"],["a","b";"c" "d"],[1 2; 3 4]);
 t=s;
 assert_checkequal(s, t);
 //
 //  Tlist
-s=tlist(['V','name','value'],['a','b';'c' 'd'],[1 2; 3 4]);
+s=tlist(["V","name","value"],["a","b";"c" "d"],[1 2; 3 4]);
 t=s;
 assert_checkequal(s, t);
 //
@@ -131,6 +131,11 @@ assert_checkequal(s, t);
 s=spzeros(3,5);
 t=s;
 assert_checkequal(s, t);
+s(1)=12;
+instr="assert_checkequal(s, t)";
+ierr=execstr(instr,"errcatch");
+MY_assert_equal(ierr, 10000);
+
 //
 // Boolean
 s=(ones(3,5)==ones(3,5));
@@ -141,6 +146,11 @@ assert_checkequal(s, t);
 s=(spzeros(3,5)==spzeros(3,5));
 t=s;
 assert_checkequal(s, t);
+s(1)=%f;
+instr="assert_checkequal(s, t)";
+ierr=execstr(instr,"errcatch");
+MY_assert_equal(ierr, 10000);
+
 //
 // Integer  8
 s=int8(3);