Return to test007.phpt CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / tests / run-test

php

--TEST--
dirname test
--FILE--
<?php

// Allow for either Win32 or Unix.
$s = dirname("/foo");
// $s should be either / (Unix) or \ (Win32)

function check_dirname($path) {
    global $s;
    $path1 = str_replace("%",$s,$path);
    $path2 = dirname($path1);
    $path3 = str_replace($s,"%",$path2);
    print "dirname($path) == $path3\n";
}

check_dirname("%foo%");
check_dirname("%foo");
check_dirname("%foo%bar");
check_dirname("%");
check_dirname("...%foo");
check_dirname(".%foo");
check_dirname("foobar%%%");
check_dirname("%\0%\0%\0.%\0.");

function same($a,$b) {
    if ($a == $b) {
        print "OK\n";
    } else {
        print "FAIL  $a == $b\n";
    }
}

if ('/' == $s) {
    same(".",dirname("d:\\foo\\bar.inc"));
    same(".",dirname("c:\\foo"));
    same(".",dirname("c:\\"));
    same(".",dirname("c:"));
} else {
    same("d:\\foo",dirname("d:\\foo\\bar.inc"));
    same("c:\\",dirname("c:\\foo"));
    same("c:\\",dirname("c:\\"));
    same("c:",dirname("c:"));
}

?>
--EXPECT--
dirname(%foo%) == %
dirname(%foo) == %
dirname(%foo%bar) == %foo
dirname(%) == %
dirname(...%foo) == ...
dirname(.%foo) == .
dirname(foobar%%%) == .
dirname(%%%.%.) == %%%.
OK
OK
OK
OK