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