diff options
Diffstat (limited to 't/old-relbase.t')
-rw-r--r-- | t/old-relbase.t | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/t/old-relbase.t b/t/old-relbase.t new file mode 100644 index 0000000..3bd0ae8 --- /dev/null +++ b/t/old-relbase.t @@ -0,0 +1,37 @@ +use strict; +use warnings; + +print "1..5\n"; + +use URI::URL; + +# We used to have problems with URLs that used a base that was +# not absolute itself. + +my $u1 = url("/foo/bar", "http://www.acme.com/"); +my $u2 = url("../foo/", $u1); +my $u3 = url("zoo/foo", $u2); + +my $a1 = $u1->abs->as_string; +my $a2 = $u2->abs->as_string; +my $a3 = $u3->abs->as_string; + +print "$a1\n$a2\n$a3\n"; + +print "not " unless $a1 eq "http://www.acme.com/foo/bar"; +print "ok 1\n"; +print "not " unless $a2 eq "http://www.acme.com/foo/"; +print "ok 2\n"; +print "not " unless $a3 eq "http://www.acme.com/foo/zoo/foo"; +print "ok 3\n"; + +# We used to have problems with URI::URL as the base class :-( +my $u4 = url("foo", "URI::URL"); +my $a4 = $u4->abs; +print "$a4\n"; +print "not " unless $u4 eq "foo" && $a4 eq "uri:/foo"; +print "ok 4\n"; + +# Test new_abs for URI::URL objects +print "not " unless URI::URL->new_abs("foo", "http://foo/bar") eq "http://foo/foo"; +print "ok 5\n"; |