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
|
--TEST--
System commands tests
--SKIPIF--
<?php
if (!getenv('PHP_PEAR_RUNTESTS')) {
echo 'skip ';
}
?>
--FILE--
<?php
require_once 'System.php';
$sep = DIRECTORY_SEPARATOR;
// setup
// Single directory creation
System::mkDir('rm_singledir');
if( !is_dir('rm_singledir') ){
print "System::mkDir('rm_singledir'); failed\n";
}
System::rm('rm_singledir');
// Multiple directory creation
System::mkDir('rm_dir1 rm_dir2 rm_dir3');
if (!@is_dir('rm_dir1') || !@is_dir('rm_dir2') || !@is_dir('rm_dir3')) {
print "System::mkDir('rm_dir1 rm_dir2 rm_dir3'); failed\n";
}
// Parent creation without "-p" fail
if (@System::mkDir("rm_dir4{$sep}rm_dir3")) {
print "System::mkDir(\"rm_dir4{$sep}rm_dir3\") did not failed\n";
}
// Create a directory which is a file already fail
touch('rm_file4');
$res = @System::mkDir('rm_file4 rm_dir5');
if ($res) {
print "System::mkDir('rm_file4 rm_dir5') did not failed\n";
}
if (!@is_dir('rm_dir5')) {
print "System::mkDir('rm_file4 rm_dir5') failed\n";
}
// Parent directory creation
System::mkDir("-p rm_dir2{$sep}rm_dir21 rm_dir6{$sep}rm_dir61{$sep}rm_dir611");
if (!@is_dir("rm_dir2{$sep}rm_dir21") || !@is_dir("rm_dir6{$sep}rm_dir61{$sep}rm_dir611")) {
print "System::mkDir(\"-p rm_dir2{$sep}rm_dir21 rm_dir6{$sep}rm_dir61{$sep}rm_dir611\")); failed\n";
}
/*******************
rm
********************/
echo "Testing: rm\n";
if (OS_WINDOWS) {
mkdir('rm_dir1\\oops');
} else {
mkdir('rm_dir1/oops');
}
// Try to delete a dir without "-r" option
if (@System::rm('rm_dir1')) {
print "System::rm('rm_dir1') did not fail\n";
}
// Multiple and recursive delete
$del = "rm_dir1 rm_dir2 rm_dir3 rm_file4 rm_dir5 rm_dir6";
if (!@System::rm("-r $del")) {
print "System::rm(\"-r $del\") failed\n";
}
print "end\n";
?>
--EXPECT--
Testing: rm
end
|
