diff options
author | Olaf Alders <olaf@wundersolutions.com> | 2022-10-03 11:27:39 -0400 |
---|---|---|
committer | Olaf Alders <olaf@wundersolutions.com> | 2022-10-03 11:27:39 -0400 |
commit | 30eecf59f525027326f935e37cb9950e216a6225 (patch) | |
tree | eb1dd95a54adf741a6d8e31575c509c60903f1a1 | |
parent | 699e061c8ba61b29590c0e0c3801b66f1af27b27 (diff) | |
download | uri-30eecf59f525027326f935e37cb9950e216a6225.tar.gz |
Apply perlimports to tests
-rw-r--r-- | t/cwd.t | 2 | ||||
-rw-r--r-- | t/escape.t | 2 | ||||
-rw-r--r-- | t/file.t | 2 | ||||
-rw-r--r-- | t/heuristic.t | 2 | ||||
-rw-r--r-- | t/idna.t | 2 | ||||
-rw-r--r-- | t/iri.t | 4 | ||||
-rw-r--r-- | t/mix.t | 2 | ||||
-rw-r--r-- | t/old-absconf.t | 2 | ||||
-rw-r--r-- | t/old-base.t | 4 | ||||
-rw-r--r-- | t/old-file.t | 2 | ||||
-rw-r--r-- | t/old-relbase.t | 2 | ||||
-rw-r--r-- | t/punycode.t | 2 | ||||
-rw-r--r-- | t/roy-test.t | 2 | ||||
-rw-r--r-- | t/split.t | 2 | ||||
-rw-r--r-- | t/storable-test.pl | 2 | ||||
-rw-r--r-- | t/utf8.t | 2 |
16 files changed, 18 insertions, 18 deletions
@@ -7,7 +7,7 @@ use Test::More; plan tests => 1; -use URI::file; +use URI::file (); $ENV{PATH} = "/bin:/usr/bin"; my $cwd = eval { URI::file->cwd }; @@ -3,7 +3,7 @@ use warnings; use Test::More tests => 12; -use URI::Escape qw(%escapes uri_escape uri_escape_utf8 uri_unescape); +use URI::Escape qw( %escapes uri_escape uri_escape_utf8 uri_unescape ); is uri_escape("|abcå"), "%7Cabc%E5"; @@ -4,7 +4,7 @@ use strict; use warnings; use Test::More; -use URI::file; +use URI::file (); subtest 'OS related tests (unix, win32, mac)' => sub { diff --git a/t/heuristic.t b/t/heuristic.t index 037497b..e3062cf 100644 --- a/t/heuristic.t +++ b/t/heuristic.t @@ -15,7 +15,7 @@ BEGIN { use Test::More tests => 26; -use URI::Heuristic qw(uf_url uf_urlstr); +use URI::Heuristic qw( uf_url uf_urlstr ); if (shift) { $URI::Heuristic::DEBUG++; open(STDERR, ">&STDOUT"); # redirect STDERR @@ -3,7 +3,7 @@ use warnings; use utf8; use Test::More tests => 7; -use URI::_idna; +use URI::_idna (); is URI::_idna::encode("www.example.com"), "www.example.com"; is URI::_idna::decode("www.example.com"), "www.example.com"; @@ -3,7 +3,7 @@ use warnings; use utf8; use Test::More; -use Config qw(%Config); +use Config qw( %Config ); if (defined $Config{useperlio}) { plan tests=>26; @@ -12,7 +12,7 @@ if (defined $Config{useperlio}) { } use URI (); -use URI::IRI; +use URI::IRI (); my $u; @@ -5,7 +5,7 @@ use Test::More tests => 6; # Test mixing of URI and URI::WithBase objects use URI (); -use URI::WithBase; +use URI::WithBase (); use URI::URL (); my $str = "http://www.sn.no/"; diff --git a/t/old-absconf.t b/t/old-absconf.t index 5be6a02..5963fd2 100644 --- a/t/old-absconf.t +++ b/t/old-absconf.t @@ -3,7 +3,7 @@ use warnings; use Test::More tests => 6; -use URI::URL qw(url); +use URI::URL qw( url ); # Test configuration via some global variables. diff --git a/t/old-base.t b/t/old-base.t index bef71eb..df01c2a 100644 --- a/t/old-base.t +++ b/t/old-base.t @@ -2,12 +2,12 @@ use strict; use warnings; use Test::More 0.96; -use URI::URL qw(url); +use URI::URL qw( url ); use URI::Escape qw(uri_escape uri_unescape); use File::Temp qw(tempdir); # want compatibility -use URI::file; +use URI::file (); $URI::file::DEFAULT_AUTHORITY = undef; diff --git a/t/old-file.t b/t/old-file.t index 30bb45a..7e522f6 100644 --- a/t/old-file.t +++ b/t/old-file.t @@ -3,7 +3,7 @@ use warnings; use Test::More; -use URI::file; +use URI::file (); $URI::file::DEFAULT_AUTHORITY = undef; my @tests = ( diff --git a/t/old-relbase.t b/t/old-relbase.t index c679880..54cb743 100644 --- a/t/old-relbase.t +++ b/t/old-relbase.t @@ -3,7 +3,7 @@ use warnings; use Test::More tests => 5; -use URI::URL qw(url); +use URI::URL qw( url ); # We used to have problems with URLs that used a base that was # not absolute itself. diff --git a/t/punycode.t b/t/punycode.t index 36d8e96..070632b 100644 --- a/t/punycode.t +++ b/t/punycode.t @@ -3,7 +3,7 @@ use warnings; use utf8; use Test::More tests => 15; -use URI::_punycode qw(decode_punycode encode_punycode); +use URI::_punycode qw( decode_punycode encode_punycode ); my %RFC_3492 = ( A => { diff --git a/t/roy-test.t b/t/roy-test.t index d2b78f4..9f5ac26 100644 --- a/t/roy-test.t +++ b/t/roy-test.t @@ -4,7 +4,7 @@ use warnings; use Test::More tests => 102; use URI (); -use File::Spec::Functions qw(catfile); +use File::Spec::Functions qw( catfile ); my $no = 1; @@ -3,7 +3,7 @@ use warnings; use Test::More tests => 17; -use URI::Split qw(uri_join uri_split); +use URI::Split qw( uri_join uri_split ); sub j { join("-", map { defined($_) ? $_ : "<undef>" } @_) } diff --git a/t/storable-test.pl b/t/storable-test.pl index 63ca5b1..0660de2 100644 --- a/t/storable-test.pl +++ b/t/storable-test.pl @@ -1,6 +1,6 @@ use strict; use warnings; -use Storable; +use Storable qw( retrieve store ); if (@ARGV && $ARGV[0] eq "store") { require URI; @@ -14,7 +14,7 @@ is( $uri->query, "mooi%E2%82%ACe=mooi%E2%82%ACe" ); is( ($uri->query_form)[1], "mooi\xE2\x82\xACe" ); # RT#70161 -use Encode qw(decode_utf8); +use Encode qw( decode_utf8 ); $uri = URI->new(decode_utf8 '?Query=%C3%A4%C3%B6%C3%BC'); is( ($uri->query_form)[1], "\xC3\xA4\xC3\xB6\xC3\xBC"); is( decode_utf8(($uri->query_form)[1]), 'äöü'); |