43 lines
1.2 KiB
Perl
43 lines
1.2 KiB
Perl
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
use Apache::Test;
|
|
use Apache::TestRequest;
|
|
|
|
plan tests => 1, need_php;
|
|
|
|
## dirname.php source:
|
|
## <?php
|
|
##
|
|
## function check_dirname($path)
|
|
## {
|
|
## print "dirname($path) == " . dirname($path) . "\n";
|
|
## }
|
|
##
|
|
## check_dirname("/foo/");
|
|
## check_dirname("/foo");
|
|
## check_dirname("/foo/bar");
|
|
## check_dirname("d:\\foo\\bar.inc");
|
|
## check_dirname("/");
|
|
## check_dirname(".../foo");
|
|
## check_dirname("./foo");
|
|
## check_dirname("foobar///");
|
|
## check_dirname("c:\\foo");
|
|
## ?>
|
|
##
|
|
## result should be:
|
|
## dirname(/foo/) == /
|
|
## dirname(/foo) == /
|
|
## dirname(/foo/bar) == /foo
|
|
## dirname(d:\foo\bar.inc) == .
|
|
## dirname(/) == /
|
|
## dirname(.../foo) == ...
|
|
## dirname(./foo) == .
|
|
## dirname(foobar///) == .
|
|
## dirname(c:\foo) == .
|
|
|
|
|
|
my $expected = "dirname(/foo/) == /\ndirname(/foo) == /\ndirname(/foo/bar) == /foo\ndirname(d\:\\foo\\bar.inc) == .\ndirname(/) == /\ndirname(.../foo) == ...\ndirname(./foo) == .\ndirname(foobar///) == .\ndirname(c\:\\foo) == .\n";
|
|
|
|
my $result = GET_BODY "/php/dirname.php";
|
|
ok $result eq $expected;
|