eecebc70e0d57db12bb3ccfd7296621f62eaf557
[scilab.git] / scilab / modules / fileio / tests / unit_tests / fileinfo.dia.ref
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 // <-- CLI SHELL MODE -->
8 [x,err] = fileinfo(SCI);
9 if err <> 0 then bugmes();quit;end
10 if size(x,"*") <> 13 then bugmes();quit;end
11 [x,err] = fileinfo("My_file_not_exist");
12 if err == 0 then bugmes();quit;end
13 if x <> [] then bugmes();quit;end
14 ierr = execstr("fileinfo([SCI,SCIHOME])","errcatch");
15 if ierr <> 999 then bugmes();quit;end
16 FILES = [SCI;"My_file_not_exist";SCIHOME;TMPDIR];
17 [X,ERRS] = fileinfo(FILES);
18 if    or(isnan(X(1,:))) then bugmes();quit;end
19 if ~ and(isnan(X(2,:))) then bugmes();quit;end
20 if    or(isnan(X(3,:))) then bugmes();quit;end
21 if    or(isnan(X(4,:))) then bugmes();quit;end
22 if size(X(1,:),"*") <> 13 then bugmes();quit;end
23 if size(FILES,"*") <> size(ERRS,"*") then bugmes();quit;end