1// ============================================================================ 2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab 3// Copyright (C) 2008 - INRIA - Sylvestre Ledru 4// 5// This file is distributed under the same license as the Scilab package. 6// ============================================================================ 7 8// <-- CLI SHELL MODE --> 9 10// ============================================================================ 11// Unitary tests for rmdir function 12// ============================================================================ 13 14baseDir=pathconvert(TMPDIR+"/test_rmdir",%F,%F); 15 16mkdir(baseDir); 17mkdir(pathconvert(baseDir+"/test_rmdir_1",%F,%F)); 18mkdir(pathconvert(baseDir+"/test_rmdir_1/test_rmdir_2",%F,%F)); 19mkdir(pathconvert(baseDir+"/test_rmdir_1/test_rmdir_2/test_rmdir_3",%F,%F)); 20 21if ~isdir(pathconvert(baseDir+"/test_rmdir_1/test_rmdir_2/test_rmdir_3",%F,%F)) then pause,end 22 23res=rmdir(baseDir,'s'); 24 25if ~res then pause,end 26if isdir(baseDir) then pause,end 27