php-src/pear/tests/pear_system.phpt
Ilia Alshanetsky dd56de8d1e Disable PEAR tests. These tests have too many dependcies such as
pre-installed PEAR, needing to run as root user, most tests
will fail if PEAR install directory is not inside include_path and so on.
2002-10-22 14:19:02 +00:00

102 lines
2.4 KiB
PHP

--TEST--
System commands tests
--SKIPIF--
skip
--FILE--
<?php
error_reporting(E_ALL);
require_once 'System.php';
$sep = DIRECTORY_SEPARATOR;
/*******************
mkDir
********************/
// Single directory creation
System::mkDir('singledir');
if( !is_dir('singledir') ){
print "System::mkDir('singledir'); failed\n";
}
// 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";
}
/*******************
which
********************/
if (OS_UNIX) {
if (System::which('ls') != '/bin/ls') {
print "System::which('ls') failed\n";
}
if (System::which('i_am_not_a_command')) {
print "System::which('i_am_not_a_command') did not failed\n";
}
} // XXX Windows test
/*******************
cat
********************/
// Missing tests yet
print "end\n";
?>
--EXPECT--
end