diff options
author | James Raspass <jraspass@gmail.com> | 2022-08-21 20:48:21 +0100 |
---|---|---|
committer | Olaf Alders <olaf@wundersolutions.com> | 2022-08-22 08:26:51 -0400 |
commit | d58d34967abc31ad7d22a71aa5e15d407d77799a (patch) | |
tree | 68fb1ea013aa4f496a9267260e38b533146572c6 /t/mix.t | |
parent | 9cc1f62cb927c7a022f3f3b0d30c6e3f9a06a924 (diff) | |
download | uri-d58d34967abc31ad7d22a71aa5e15d407d77799a.tar.gz |
Replace raw TAP printing with "Test::More"
Diffstat (limited to 't/mix.t')
-rw-r--r-- | t/mix.t | 52 |
1 files changed, 23 insertions, 29 deletions
@@ -1,7 +1,7 @@ use strict; use warnings; -print "1..6\n"; +use Test::More tests => 6; # Test mixing of URI and URI::WithBase objects use URI (); @@ -27,32 +27,28 @@ sub Dump } #Dump(); -print "not " unless $a->isa("URI") && - ref($b) eq ref($uw) && - ref($c) eq ref($uu) && - $d->isa("URI"); -print "ok 1\n"; +ok($a->isa("URI") && + ref($b) eq ref($uw) && + ref($c) eq ref($uu) && + $d->isa("URI")); -print "not " if $b->base && $c->base; -print "ok 2\n"; +ok(not $b->base && $c->base); $a = URI::URL->new($rel, $u); $b = URI::URL->new($rel, $uw); $c = URI::URL->new($rel, $uu); $d = URI::URL->new($rel, $str); -print "not " unless ref($a) eq "URI::URL" && - ref($b) eq "URI::URL" && - ref($c) eq "URI::URL" && - ref($d) eq "URI::URL"; -print "ok 3\n"; +ok(ref($a) eq "URI::URL" && + ref($b) eq "URI::URL" && + ref($c) eq "URI::URL" && + ref($d) eq "URI::URL"); -print "not " unless ref($b->base) eq ref($uw) && - $b->base eq $uw && - ref($c->base) eq ref($uu) && - $c->base eq $uu && - $d->base eq $str; -print "ok 4\n"; +ok(ref($b->base) eq ref($uw) && + $b->base eq $uw && + ref($c->base) eq ref($uu) && + $c->base eq $uu && + $d->base eq $str); @@ -62,19 +58,17 @@ $c = URI->new($uu, $uu); $d = URI->new($uu, $str); #Dump(); -print "not " unless ref($a) eq ref($b) && - ref($b) eq ref($c) && - ref($c) eq ref($d) && - ref($d) eq ref($u); -print "ok 5\n"; +ok(ref($a) eq ref($b) && + ref($b) eq ref($c) && + ref($c) eq ref($d) && + ref($d) eq ref($u)); $a = URI::URL->new($u, $u); $b = URI::URL->new($u, $uw); $c = URI::URL->new($u, $uu); $d = URI::URL->new($u, $str); -print "not " unless ref($a) eq "URI::URL" && - ref($b) eq "URI::URL" && - ref($c) eq "URI::URL" && - ref($d) eq "URI::URL"; -print "ok 6\n"; +ok(ref($a) eq "URI::URL" && + ref($b) eq "URI::URL" && + ref($c) eq "URI::URL" && + ref($d) eq "URI::URL"); |