Revert "savematfile allows double of any dimension" 24/16424/2
Vincent COUVERT [Thu, 30 Apr 2015 08:59:09 +0000 (09:59 +0100)]
This reverts commit 57409d4c06eac6ed1f3f5822dbed55a8db7cc83c.

Change-Id: Iac90678d0c18273c612b34146c95f149e6429523

scilab/modules/compatibility_functions/tests/nonreg_tests/bug_577.dia.ref
scilab/modules/compatibility_functions/tests/nonreg_tests/bug_577.tst

index 3c0e865..fdfa2c2 100644 (file)
 //
 //    I can reproduce the bug with integers data type not with imaginary
 // 2009-01-09 mtlb_save is removed => savematfile
-// 2015-04-13 savematfile allows double of any dimension
 my_mat_file = TMPDIR+"/bug_577.mat";
-x=rand(5,5,100)+%i*rand(5,5,100);
-savematfile(my_mat_file,"x");
-WARNING: Option -v7 added.
-ref = x;
-clear x;
-loadmatfile(my_mat_file);
-assert_checkequal(x,ref);
-assert_checkequal: Incompatible input arguments #1 and #2: Same sizes expected.
-at line    80 of function assert_checkequal called by :
-assert_checkequal(x, ref)
-at line    44 of exec file called by :
+x=rand(5,5,100)+%i;
+warning('off');
+ierr = execstr("savematfile(my_mat_file,""x"")","errcatch");
+warning('on');
+if ierr == 0 then bugmes();quit;end
+if lasterror()<>msprintf(gettext("%s: Mlists of type %s can not be written to Matlab binary files.\n"), "GetMlistVariable", "hm") then bugmes();quit;end
index b9ba577..54c8748 100644 (file)
 //    I can reproduce the bug with integers data type not with imaginary
 
 // 2009-01-09 mtlb_save is removed => savematfile
-// 2015-04-13 savematfile allows double of any dimension
 
 my_mat_file = TMPDIR+"/bug_577.mat";
 
-x=rand(5,5,100)+%i*rand(5,5,100);
-savematfile(my_mat_file,"x");
+x=rand(5,5,100)+%i;
+warning('off');
+ierr = execstr("savematfile(my_mat_file,""x"")","errcatch");
+warning('on');
 
-ref = x;
-clear x;
-
-loadmatfile(my_mat_file);
-assert_checkequal(x,ref);
\ No newline at end of file
+if ierr == 0 then pause,end
+if lasterror()<>msprintf(gettext("%s: Mlists of type %s can not be written to Matlab binary files.\n"), "GetMlistVariable", "hm") then pause,end