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);
11if err <> 0 then pause,end
12if size(x,"*") <> 13 then pause,end
13
14[x,err] = fileinfo("My_file_not_exist");
15if err == 0 then pause,end
16if x <> [] then pause,end
17
18ierr = execstr("fileinfo([SCI,SCIHOME])","errcatch");
19if ierr <> 0 then pause,end
20
21FILES = [SCI;"My_file_not_exist";SCIHOME;TMPDIR];
22[X,ERRS] = fileinfo(FILES);
23
24if    or(isnan(X(1,:))) then pause,end
25if ~ and(isnan(X(2,:))) then pause,end
26if    or(isnan(X(3,:))) then pause,end
27if    or(isnan(X(4,:))) then pause,end
28
29if size(X(1,:),"*") <> 13 then pause,end
30if size(FILES,"*") <> size(ERRS,"*") then pause,end
31