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