scilab/modules/fileio/tests/unit_tests/fileinfo.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2009 - DIGITEO
   4 //
   5 //  This file is distributed under the same license as the Scilab package.
   6 // =============================================================================
   7
   8 // <-- CLI SHELL MODE -->
   9
  10 [x,err] = fileinfo(SCI);
  11 if err <> 0 then pause,end
  12 if size(x,"*") <> 13 then pause,end
  13
  14 [x,err] = fileinfo("My_file_not_exist");
  15 if err == 0 then pause,end
  16 if x <> [] then pause,end
  17
  18 ierr = execstr("fileinfo([SCI,SCIHOME])","errcatch");
  19 if ierr <> 999 then pause,end
  20
  21 FILES = [SCI;"My_file_not_exist";SCIHOME;TMPDIR];
  22 [X,ERRS] = fileinfo(FILES);
  23
  24 if    or(isnan(X(1,:))) then pause,end
  25 if ~ and(isnan(X(2,:))) then pause,end
  26 if    or(isnan(X(3,:))) then pause,end
  27 if    or(isnan(X(4,:))) then pause,end
  28
  29 if size(X(1,:),"*") <> 13 then pause,end
  30 if size(FILES,"*") <> size(ERRS,"*") then pause,end