mseek parameter offset passed as double for file size more than 2GB.
[scilab.git] / scilab / modules / fileio / tests / nonreg_tests / bug_6511.tst
index ba5685c..c301ca1 100644 (file)
@@ -4,7 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-// <-- INTERACTIVE TEST -->
+// <-- LONG TIME EXECUTION -->
 // <-- Non-regression test for bug 6511 -->
 //
 // <-- Bugzilla URL -->
 // creates a very big file > 2 Go and try to read
 // resquires 10 minutes or more to execute
 
-SIZE_FILE = 4e8; 
-file3 = TMPDIR + '/test3.bin';
-fd1= mopen(file3,'wb');
-for i=1:SIZE_FILE, mput(i,'d'); end 
+SIZE_FILE = 4e8;
+file3 = TMPDIR + "/test3.bin";
+fd1= mopen(file3,"wb");
+for i=1:SIZE_FILE, mput(i,"d"); end
 mseek(0);
-mput(678,'d');
-mseek(0,fd1,'end');
+mput(678,"d");
+mseek(0,fd1,"end");
 lastpos = mtell(fd1);
-mput(932,'d');
+mput(932,"d");
 mtell(fd1);
 mclose(fd1);
 
-fd2= mopen(file3,'rb');
+fd2= mopen(file3,"rb");
 
-mseek(0,fd2,'set');
-res = mget(1,'d',fd2);
+mseek(0,fd2,"set");
+res = mget(1,"d",fd2);
 if res <> 678 then pause,end;
 
 mseek(0,fd2);
 mseek(lastpos,fd2);
-res = mget(1,'d',fd2);
+res = mget(1,"d",fd2);
 if res <> 932 then pause,end;
 
 mclose(fd2);