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