correction of the binary test - thanks pierre - create a new ref
Yann Collette [Tue, 30 Jun 2009 13:16:42 +0000 (15:16 +0200)]
scilab/modules/elementary_functions/tests/unit_tests/binary.dia.ref
scilab/modules/elementary_functions/tests/unit_tests/binary.tst

index cf14c9b..5688e4d 100644 (file)
@@ -9,7 +9,7 @@
 // TEST 1
 // -----------------------------------------------------------------------------
 file_1 = TMPDIR+'/test_binary_1.bin';
-mopen(file_1,'wb');
+fid = mopen(file_1,'wb');
 mput(1996,'l');
 mput(1996,'i');
 mput(1996,'s');
@@ -43,8 +43,8 @@ mput(98  ,'ucb');
 mput(1996,'db');
 mput(1996,'fb');
 mputstr('Scilab');
-mclose();
-mopen(file_1,'rb');
+mclose(fid);
+fid = mopen(file_1,'rb');
 if 1996<>mget(1,'l')  then bugmes();quit;end
 if 1996<>mget(1,'i')  then bugmes();quit;end
 if 1996<>mget(1,'s')  then bugmes();quit;end
@@ -78,7 +78,7 @@ if   98<>mget(1,'ucb') then bugmes();quit;end
 if 1996<>mget(1,'db')  then bugmes();quit;end
 if 1996<>mget(1,'fb')  then bugmes();quit;end
 if 'Scilab'<>mgetstr(6) then bugmes();quit;end
-mclose();
+mclose(fid);
 // -----------------------------------------------------------------------------
 // TEST 2
 // An example with two files
@@ -131,20 +131,20 @@ if a<>0 then bugmes();quit;end
 // Examples with arrays
 // -----------------------------------------------------------------------------
 file_5 = TMPDIR+'/test_binary_5.bin';
-mopen(file_5,'wb');
+fid = mopen(file_5,'wb');
 mput(1:100,'l');
-mclose();
-mopen(file_5,'rb');
+mclose(fid);
+fid = mopen(file_5,'rb');
 X=mget(200,'l');
-mclose();
+mclose(fid);
 if size(X,'*')<> 100        then bugmes();quit;end
 if norm(X-(1:100))> 10*%eps then bugmes();quit;end
 file_6 = TMPDIR+'/test_binary_6.bin';
-mopen(file_6,'wb');
+fid = mopen(file_6,'wb');
 mput(1:100,'c');
-mclose();
-mopen(file_6,'rb');
+mclose(fid);
+fid = mopen(file_6,'rb');
 X=mget(200,'c');
-mclose();
+mclose(fid);
 if size(X,'*')<> 100        then bugmes();quit;end
 if norm(X-(1:100))> 10*%eps then bugmes();quit;end
index 11a6f44..a3f7ecb 100644 (file)
@@ -13,7 +13,7 @@
 
 file_1 = TMPDIR+'/test_binary_1.bin';
 
-mopen(file_1,'wb');
+fid = mopen(file_1,'wb');
 
 mput(1996,'l');
 mput(1996,'i');
@@ -51,9 +51,9 @@ mput(1996,'db');
 mput(1996,'fb');
 
 mputstr('Scilab');
-mclose();
+mclose(fid);
 
-mopen(file_1,'rb');
+fid = mopen(file_1,'rb');
 
 if 1996<>mget(1,'l')  then pause,end
 if 1996<>mget(1,'i')  then pause,end
@@ -91,7 +91,7 @@ if 1996<>mget(1,'db')  then pause,end
 if 1996<>mget(1,'fb')  then pause,end
 
 if 'Scilab'<>mgetstr(6) then pause,end
-mclose();
+mclose(fid);
 
 // -----------------------------------------------------------------------------
 // TEST 2
@@ -163,25 +163,25 @@ if a<>0 then pause,end
 
 file_5 = TMPDIR+'/test_binary_5.bin';
 
-mopen(file_5,'wb');
+fid = mopen(file_5,'wb');
 mput(1:100,'l');
-mclose();
+mclose(fid);
 
-mopen(file_5,'rb');
+fid = mopen(file_5,'rb');
 X=mget(200,'l');
-mclose();
+mclose(fid);
 
 if size(X,'*')<> 100        then pause,end
 if norm(X-(1:100))> 10*%eps then pause,end
 
 file_6 = TMPDIR+'/test_binary_6.bin';
-mopen(file_6,'wb');
+fid = mopen(file_6,'wb');
 mput(1:100,'c');
-mclose();
+mclose(fid);
 
-mopen(file_6,'rb');
+fid = mopen(file_6,'rb');
 X=mget(200,'c');
-mclose();
+mclose(fid);
 
 if size(X,'*')<> 100        then pause,end
 if norm(X-(1:100))> 10*%eps then pause,end