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