1 files changed, 43 insertions, 0 deletions
diff --git a/debian/perl-framework/t/php/dirname.t b/debian/perl-framework/t/php/dirname.t
new file mode 100644
index 0000000..f1f1a9f
--- /dev/null
+++ b/debian/perl-framework/t/php/dirname.t
@@ -0,0 +1,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;