blob: f1f1a9f9952df0b6ffe0a7576309f2b77b015b48 (
plain)
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
|
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;
|
