Merge remote-tracking branch 'origin/master' into YaSp
[scilab.git] / scilab / modules / fileio / tests / unit_tests / mtell.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2011 - DIGITEO - Bruno JOFRET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- ENGLISH IMPOSED -->
9 //
10 // <-- CLI SHELL MODE -->
11 //
12 testFile=TMPDIR + '/testFile.bin';
13 fd = mopen(testFile,'wb');
14
15 // file should be empty
16 if mtell(fd) <> 0 then pause, end
17 for j=1:100
18   for i=1:j
19     mput(i,'d');
20   end
21   // 'd' is 8 bytes
22   if mtell(fd) <> 8 * j then pause, end
23   mseek(0);
24 end
25 mclose(fd);
26
27 try
28     mtell(fd);
29 catch
30     errorMessage = sprintf(gettext("%s: Error while opening, reading or writing.\n"), "mtell");
31     [message, ierr]=lasterror();
32     if message <> errorMessage then bugmes();quit;end
33 end
34
35 fd = mopen(testFile,'wb');
36 // file should be empty
37 if mtell(fd) <> 0 then pause, end
38 for j=1:100
39   for i=1:j
40     mput(i,'us');
41   end
42   // 'us' is 2 bytes
43   if mtell(fd) <> 2 * j then pause, end
44   mseek(0);
45 end
46 mclose(fd);
47
48 fd = mopen(testFile,'wb');
49 // file should be empty
50 if mtell(fd) <> 0 then pause, end
51 for j=1:100
52   for i=1:j
53     mput(i,'ul');
54   end
55   // 'ul' is 8 bytes
56   if mtell(fd) <> 8 * j then pause, end
57   mseek(0);
58 end
59 mclose(fd);
60