// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2011 - DIGITEO - Bruno JOFRET
//
//  This file is distributed under the same license as the Scilab package.
// =============================================================================
//
// <-- ENGLISH IMPOSED -->
//
// <-- CLI SHELL MODE -->
//
testFile=TMPDIR + '/testFile.bin';
fd = mopen(testFile,'wb');
// file should be empty
if mtell(fd) <> 0 then bugmes();quit;end
for j=1:100
  for i=1:j
    mput(i,'d');
  end
  // 'd' is 8 bytes
  if mtell(fd) <> 8 * j then bugmes();quit;end
  mseek(0);
end
mclose(fd);
try
  mtell(fd);
mtell: Error while opening, reading or writing.
catch
  [message, ierr]=lasterror();
  if ierr <> 10000 then bugmes();quit;end
end
fd = mopen(testFile,'wb');
// file should be empty
if mtell(fd) <> 0 then bugmes();quit;end
for j=1:100
  for i=1:j
    mput(i,'us');
  end
  // 'us' is 2 bytes
  if mtell(fd) <> 2 * j then bugmes();quit;end
  mseek(0);
end
mclose(fd);
fd = mopen(testFile,'wb');
// file should be empty
if mtell(fd) <> 0 then bugmes();quit;end
for j=1:100
  for i=1:j
    mput(i,'ul');
  end
  // 'ul' is 8 bytes
  if mtell(fd) <> 8 * j then bugmes();quit;end
  mseek(0);
end
mclose(fd);