scilab/modules/fileio/tests/nonreg_tests/bug_2059.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2008 - INRIA
   4 //
   5 //  This file is distributed under the same license as the Scilab package.
   6 // =============================================================================
   7
   8 // test bug 2059
   9
  10 fd = mopen(SCI+'/modules/fileio/tests/nonreg_tests/bug_2059.txt','rt');
  11
  12 ierr = execstr("dataReadFromFile = mgetl(fd,100)","errcatch");
  13 if ierr <> 0 then pause,end
  14
  15 close(fd);
  16
  17 if size(dataReadFromFile,'*') <> 4 then pause,end