mirror of
https://github.com/php/php-src.git
synced 2024-10-14 13:02:37 +00:00
96 lines
2.2 KiB
Plaintext
96 lines
2.2 KiB
Plaintext
|
--TEST--
|
||
|
System commands tests
|
||
|
--SKIPIF--
|
||
|
--FILE--
|
||
|
<?php
|
||
|
error_reporting(E_ALL);
|
||
|
require_once 'System.php';
|
||
|
|
||
|
$sep = DIRECTORY_SEPARATOR;
|
||
|
|
||
|
/*******************
|
||
|
mkDir
|
||
|
********************/
|
||
|
|
||
|
// Multiple directory creation
|
||
|
System::mkDir('dir1 dir2 dir3');
|
||
|
if (!@is_dir('dir1') || !@is_dir('dir2') || !@is_dir('dir3')) {
|
||
|
print "System::mkDir('dir1 dir2 dir3'); failed\n";
|
||
|
}
|
||
|
|
||
|
// Parent creation without "-p" fail
|
||
|
if (@System::mkDir("dir4{$sep}dir3")) {
|
||
|
print "System::mkDir(\"dir4{$sep}dir3\") did not failed\n";
|
||
|
}
|
||
|
|
||
|
// Create a directory which is a file already fail
|
||
|
touch('file4');
|
||
|
$res = @System::mkDir('file4 dir5');
|
||
|
if ($res) {
|
||
|
print "System::mkDir('file4 dir5') did not failed\n";
|
||
|
}
|
||
|
if (!@is_dir('dir5')) {
|
||
|
print "System::mkDir('file4 dir5') failed\n";
|
||
|
}
|
||
|
|
||
|
// Parent directory creation
|
||
|
System::mkDir("-p dir2{$sep}dir21 dir6{$sep}dir61{$sep}dir611");
|
||
|
if (!@is_dir("dir2{$sep}dir21") || !@is_dir("dir6{$sep}dir61{$sep}dir611")) {
|
||
|
print "System::mkDir(\"-p dir2{$sep}dir21 dir6{$sep}dir61{$sep}dir611\")); failed\n";
|
||
|
}
|
||
|
|
||
|
/*******************
|
||
|
mkTemp
|
||
|
********************/
|
||
|
|
||
|
// Create a temporal file with "tst" as filename prefix
|
||
|
$tmpfile = System::mkTemp('tst');
|
||
|
$tmpenv = System::tmpDir();
|
||
|
if (!@is_file($tmpfile) || !ereg("^$tmpenv{$sep}tst", $tmpfile)) {
|
||
|
print "System::mkTemp('tst') failed\n";
|
||
|
}
|
||
|
|
||
|
// Create a temporal dir in "dir1" with default prefix "tmp"
|
||
|
$tmpdir = System::mkTemp('-d -t dir1');
|
||
|
if (!@is_dir($tmpdir) || !ereg("^dir1{$sep}tmp", $tmpdir)) {
|
||
|
print "System::mkTemp('-d -t dir1') failed\n";
|
||
|
}
|
||
|
|
||
|
/*******************
|
||
|
rm
|
||
|
********************/
|
||
|
|
||
|
// Try to delete a dir without "-r" option
|
||
|
if (@System::rm('dir1')) {
|
||
|
print "System::rm('dir1') did not fail\n";
|
||
|
}
|
||
|
|
||
|
// Multiple and recursive delete
|
||
|
$del = "dir1 dir2 dir3 file4 dir5 dir6";
|
||
|
if (!@System::rm("-r $del")) {
|
||
|
print "System::rm(\"-r $del\") failed\n";
|
||
|
}
|
||
|
|
||
|
/*******************
|
||
|
type
|
||
|
********************/
|
||
|
|
||
|
if (OS_UNIX) {
|
||
|
if (System::type('ls') != '/bin/ls') {
|
||
|
print "System::type('ls') failed\n";
|
||
|
}
|
||
|
if (System::type('i_am_not_a_command')) {
|
||
|
print "System::type('i_am_not_a_command') did not failed\n";
|
||
|
}
|
||
|
} // XXX Windows test
|
||
|
|
||
|
/*******************
|
||
|
cat
|
||
|
********************/
|
||
|
// Missing tests yet
|
||
|
|
||
|
print "end\n";
|
||
|
?>
|
||
|
--EXPECT--
|
||
|
end
|