1// =============================================================================
2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3// Copyright (C) 2008 - INRIA -
4//
5//  This file is distributed under the same license as the Scilab package.
6// =============================================================================
7// <-- CLI SHELL MODE -->
8// =============================================================================
9// Unitary tests for isdir function
10// =============================================================================
11if isdir(SCIHOME) <> %t then bugmes();quit;end
12if isdir(SCI) <> %t then bugmes();quit;end
13if isdir(SCIHOME+filesep()) <> %t then bugmes();quit;end
14if isdir(SCI+filesep()) <> %t then bugmes();quit;end
15if isdir('A_NAME_OF_DIRECTORY') <> %f then bugmes();quit;end
16DIR_NAME_TST = TMPDIR+filesep()+'MY_TMPDIR_DIR';
17if mkdir(DIR_NAME_TST) <> 1 then bugmes();quit;end
18if isdir(DIR_NAME_TST) <> %t then bugmes();quit;end
19if isdir(DIR_NAME_TST+filesep()) <> %t then bugmes();quit;end
20if removedir(DIR_NAME_TST) <> %t then bugmes();quit;end
21