1//<-- CLI SHELL MODE --> 2// ============================================================================= 3// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab 4// Copyright (C) 2009 - DIGITEO - Allan CORNET 5// 6// This file is distributed under the same license as the Scilab package. 7// ============================================================================= 8 9// <-- JVM MANDATORY --> 10 11cd(TMPDIR); 12 13exec(SCI+"/modules/localization/tests/unit_tests/CreateDir.sce", -1); 14 15 16tab_ref = [ 17"世界您好", 18"азеазея", 19"ハロー・ワールド", 20"حريات وحقوق", 21"תוכנית"]; 22 23for i = 1 : size(tab_ref,'*') 24 fz = TMPDIR + filesep() + "dir_" + tab_ref(i) + filesep() + 'file_' + tab_ref(i) +'.txt'; 25 fd = mopen(fz,'wt'); mclose(fd); 26 if isfile(fz) <> %t then pause,end 27end 28// ============================================================================= 29f = [SCI+'/etc/scilab.start';SCI+'/etc/scilab.quit';SCI+'/Wrong_file_or_path']; 30ref = [%T;%T;%F]; 31if and(isfile(f) <> ref) then pause,end 32// ============================================================================= 33f = SCI+ '/modules/'; 34ref = %f; 35if and(isfile(f) <> ref) then pause,end 36// ============================================================================= 37ierr = execstr('isfile()','errcatch'); 38if ierr <> 77 then pause,end 39// ============================================================================= 40ierr = execstr('isfile(1)','errcatch'); 41if ierr <> 999 then pause,end 42// ============================================================================= 43ierr = execstr('isfile(%f)','errcatch'); 44if ierr <> 999 then pause,end 45// ============================================================================= 46ierr = execstr('isfile(''file1'',''file2'')','errcatch'); 47if ierr <> 77 then pause,end 48// ============================================================================= 49