diff options
| -rw-r--r-- | t/escape.t | 4 | ||||
| -rw-r--r--[-rwxr-xr-x] | t/path-segments.t | 0 | ||||
| -rw-r--r-- | t/scheme-exceptions.t | 9 |
3 files changed, 8 insertions, 5 deletions
@@ -1,7 +1,7 @@ use strict; use warnings; -use Test::More tests => 21; +use Test::More; use URI::Escape qw( %escapes uri_escape uri_escape_utf8 uri_unescape ); @@ -83,3 +83,5 @@ ok !eval { print uri_escape("abc" . chr(300)); 1 }; like $@, qr/^Can\'t escape \\x\{012C\}, try uri_escape_utf8\(\) instead/; is uri_escape_utf8(chr(0xFFF)), "%E0%BF%BF"; + +done_testing; diff --git a/t/path-segments.t b/t/path-segments.t index ea9b4fa..ea9b4fa 100755..100644 --- a/t/path-segments.t +++ b/t/path-segments.t diff --git a/t/scheme-exceptions.t b/t/scheme-exceptions.t index e1cb568..e400591 100644 --- a/t/scheme-exceptions.t +++ b/t/scheme-exceptions.t @@ -4,13 +4,14 @@ use warnings; use Test::More; use URI (); -plan skip_all => 'this test assumes that URI::javascript does not exist' - if eval { +require URI::javascript }; -plan tests => 4; +plan skip_all => 'this test assumes that URI::notreal does not exist' + if eval { +require URI::notreal }; for (0..1) { - my $uri = URI->new('javascript://foo/bar'); + my $uri = URI->new('notreal://foo/bar'); is($@, '', 'no exception when trying to load a scheme handler class'); ok($uri->isa('URI'), 'but URI still instantiated as foreign'); } + +done_testing; |