summaryrefslogtreecommitdiff
path: root/t/escape.t
diff options
context:
space:
mode:
authorOlaf Alders <olaf@wundersolutions.com>2021-01-12 23:09:21 -0500
committerOlaf Alders <olaf@wundersolutions.com>2021-01-13 09:40:02 -0500
commit4ae14b130afa39ca9d395d34b0a758f6d4af43cd (patch)
tree0ddd33697ddd16b01d152c349f3d8977db5dbd9b /t/escape.t
parent091356cf1474689b0fad9363799f6a60621cdb96 (diff)
downloaduri-4ae14b130afa39ca9d395d34b0a758f6d4af43cd.tar.gz
Tidy import statementsoalder/tidy-imports
Diffstat (limited to 't/escape.t')
-rw-r--r--t/escape.t8
1 files changed, 1 insertions, 7 deletions
diff --git a/t/escape.t b/t/escape.t
index 05b8022..689277b 100644
--- a/t/escape.t
+++ b/t/escape.t
@@ -3,7 +3,7 @@ use warnings;
use Test::More tests => 12;
-use URI::Escape;
+use URI::Escape qw(%escapes uri_escape uri_escape_utf8 uri_unescape);
is uri_escape("|abcå"), "%7Cabc%E5";
@@ -19,14 +19,8 @@ is uri_unescape("%7Cabc%e5"), "|abcå";
is_deeply [uri_unescape("%40A%42", "CDE", "F%47H")], [qw(@AB CDE FGH)];
-
-use URI::Escape qw(%escapes);
-
is $escapes{"%"}, "%25";
-
-use URI::Escape qw(uri_escape_utf8);
-
is uri_escape_utf8("|abcå"), "%7Cabc%C3%A5";
skip "Perl 5.8.0 or higher required", 3 if $] < 5.008;