1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
--TEST--
System commands tests
--SKIPIF--
<?php
if (!getenv('PHP_PEAR_RUNTESTS')) {
echo 'skip ';
}
?>
--FILE--
<?php
require_once 'System.php';
$sep = DIRECTORY_SEPARATOR;
/*******************
mkDir
********************/
echo "Testing: MkDir\n";
// Single directory creation
System::mkDir('mkdir_singledir');
if( !is_dir('mkdir_singledir') ){
print "System::mkDir('mkdir_singledir'); failed\n";
}
System::rm('mkdir_singledir');
// Multiple directory creation
System::mkDir('mkdir_dir1 mkdir_dir2 mkdir_dir3');
if (!@is_dir('mkdir_dir1') || !@is_dir('mkdir_dir2') || !@is_dir('mkdir_dir3')) {
print "System::mkDir('mkdir_dir1 mkdir_dir2 mkdir_dir3'); failed\n";
}
// Parent creation without "-p" fail
if (@System::mkDir("mkdir_dir4{$sep}mkdir_dir3")) {
print "System::mkDir(\"mkdir_dir4{$sep}mkdir_dir3\") did not failed\n";
}
// Create a directory which is a file already fail
touch('mkdir_file4');
$res = @System::mkDir('mkdir_file4 mkdir_dir5');
if ($res) {
print "System::mkDir('mkdir_file4 mkdir_dir5') did not failed\n";
}
if (!@is_dir('mkdir_dir5')) {
print "System::mkDir('mkdir_file4 mkdir_dir5') failed\n";
}
// Parent directory creation
System::mkDir("-p mkdir_dir2{$sep}mkdir_dir21 mkdir_dir6{$sep}mkdir_dir61{$sep}mkdir_dir611");
if (!@is_dir("mkdir_dir2{$sep}mkdir_dir21") || !@is_dir("mkdir_dir6{$sep}mkdir_dir61{$sep}mkdir_dir611")) {
print "System::mkDir(\"-p mkdir_dir2{$sep}mkdir_dir21 mkdir_dir6{$sep}mkdir_dir61{$sep}mkdir_dir611\")); failed\n";
}
// Cleanup
if (OS_WINDOWS) {
mkdir('mkdir_dir1\\oops');
} else {
mkdir('mkdir_dir1/oops');
}
// Try to delete a dir without "-r" option
if (@System::rm('mkdir_dir1')) {
print "System::rm('mkdir_dir1') did not fail\n";
}
// Multiple and recursive delete
$del = "mkdir_dir1 mkdir_dir2 mkdir_dir3 mkdir_file4 mkdir_dir5 mkdir_dir6";
if (!@System::rm("-r $del")) {
print "System::rm(\"-r $del\") failed\n";
}
print "end\n";
?>
--EXPECT--
Testing: MkDir
end
|
