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