Apply perlimports to t directory

oalders · oalders · commit a998a29544fa · 2022-07-28T17:35:02.000-04:00
diff --git a/t/00-load.t b/t/00-load.t
@@ -4,7 +4,7 @@ use warnings;
 use strict;
 use lib 't';
 use Test::More tests => 2;
-use Tools;
+use Tools qw( $canTMC );
 
 use_ok( 'WWW::Mechanize' );
 use_ok( 'WWW::Mechanize::Link' );
diff --git a/t/TestServer.pm b/t/TestServer.pm
@@ -2,8 +2,8 @@ package TestServer;
 use strict;
 use warnings;
 
-use HTTP::Daemon;
-use File::Spec;
+use HTTP::Daemon ();
+use File::Spec ();
 
 sub new {
     my $class = shift;
diff --git a/t/area_link.t b/t/area_link.t
@@ -8,14 +8,14 @@ use Test::More tests => 9;
 use lib 't';
 
 BEGIN {
-    use Tools;
+    use Tools qw( $canTMC memory_cycle_ok );
 }
 
 BEGIN {
     use_ok( 'WWW::Mechanize' );
 }
 
-use URI::file;
+use URI::file ();
 
 my $mech = WWW::Mechanize->new( cookie_jar => undef );
 isa_ok( $mech, 'WWW::Mechanize' );
diff --git a/t/bad-request.t b/t/bad-request.t
@@ -19,7 +19,7 @@ parameter.
 
 =cut
 
-use WWW::Mechanize;
+use WWW::Mechanize ();
 
 my $mech = WWW::Mechanize->new();
 
diff --git a/t/cookies.t b/t/cookies.t
@@ -13,11 +13,11 @@ else {
     plan tests => 14;
 }
 
-use WWW::Mechanize;
-use URI::Escape qw( uri_unescape uri_escape );
+use WWW::Mechanize ();
+use URI::Escape qw( uri_escape uri_unescape );
 
 use lib 't/';
-use TestServer;
+use TestServer ();
 
 my $ncookies = 0;
 
diff --git a/t/credentials-api.t b/t/credentials-api.t
@@ -2,9 +2,9 @@ use strict;
 use warnings;
 
 use Test::More tests => 4;
-use LWP::UserAgent;
-use WWW::Mechanize;
-use URI;
+use LWP::UserAgent ();
+use WWW::Mechanize ();
+use URI ();
 
 =pod
 
diff --git a/t/credentials.t b/t/credentials.t
@@ -3,9 +3,9 @@
 use warnings;
 use strict;
 
-use WWW::Mechanize;
+use WWW::Mechanize ();
 use Test::More;
-use Test::Fatal;
+use Test::Fatal qw( exception );
 
 my $mech = WWW::Mechanize->new;
 isa_ok( $mech, 'WWW::Mechanize' );
diff --git a/t/field.t b/t/field.t
@@ -2,8 +2,9 @@
 
 use warnings;
 use strict;
+
 use Test::More;
-use URI::file;
+use URI::file ();
 
 BEGIN {
     delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1
@@ -48,4 +49,4 @@ for my $name (qw/__value/) {
     is( $mech->value( $name ), 'foo', "$name changed" );
 }
 
-done_testing;
+done_testing;
diff --git a/t/find_frame.t b/t/find_frame.t
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 use Test::More tests => 5;
-use URI::file;
+use URI::file ();
 
 BEGIN {
     delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)};  # Placates taint-unsafe Cwd.pm in 5.6.1
diff --git a/t/find_image.t b/t/find_image.t
@@ -4,10 +4,10 @@ use warnings;
 use strict;
 
 use Test::More;
-use Test::Fatal;
+use Test::Fatal qw( exception );
 use Test::Warnings ':all';
-use Test::Deep;
-use URI::file;
+use Test::Deep qw( all cmp_deeply isa methods re superhashof );
+use URI::file ();
 
 BEGIN {
     delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)};  # Placates taint-unsafe Cwd.pm in 5.6.1
diff --git a/t/find_inputs.t b/t/find_inputs.t
@@ -4,7 +4,7 @@ use warnings;
 use strict;
 
 use Test::More tests => 11;
-use URI::file;
+use URI::file ();
 
 BEGIN {
     delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)};  # Placates taint-unsafe Cwd.pm in 5.6.1
diff --git a/t/find_link_id.t b/t/find_link_id.t
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 use Test::More 'no_plan';
-use URI::file;
+use URI::file ();
 
 BEGIN {
     delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)};  # Placates taint-unsafe Cwd.pm in 5.6.1
diff --git a/t/find_link_xhtml.t b/t/find_link_xhtml.t
@@ -4,7 +4,7 @@ use warnings;
 use strict;
 
 use Test::More;
-use URI::file;
+use URI::file ();
 
 BEGIN {
     delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)};  # Placates taint-unsafe Cwd.pm in 5.6.1
diff --git a/t/form-parsing.t b/t/form-parsing.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 use Test::More tests=>1;
-use HTML::Form;
+use HTML::Form ();
 
 my $base = 'http://localhost/';
 my $content = do { local $/ = undef; <DATA> };
diff --git a/t/form_with_fields.t b/t/form_with_fields.t
@@ -3,9 +3,9 @@
 use warnings;
 use strict;
 use Test::More 'no_plan';
-use Test::Fatal;
+use Test::Fatal qw( exception );
 use Test::Warnings ':all';
-use Test::Deep;
+use Test::Deep qw( cmp_deeply re );
 use URI::file ();
 
 BEGIN {
diff --git a/t/form_with_fields_passthrough_params.t b/t/form_with_fields_passthrough_params.t
@@ -3,9 +3,9 @@
 use warnings;
 use strict;
 use Test::More 'no_plan';
-use Test::Fatal;
+use Test::Fatal qw( exception );
 use Test::Warnings ':all';
-use Test::Deep;
+use Test::Deep qw( cmp_deeply re );
 use URI::file ();
 
 BEGIN {
diff --git a/t/frames.t b/t/frames.t
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 use Test::More tests => 7;
-use URI::file;
+use URI::file ();
 
 BEGIN {
     delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)};  # Placates taint-unsafe Cwd.pm in 5.6.1
diff --git a/t/history.t b/t/history.t
@@ -7,8 +7,8 @@ use lib qw( t/local );
 
 use LocalServer ();
 use Path::Tiny qw( path );
-use Test::Deep;
-use Test::Fatal;
+use Test::Deep qw( all cmp_deeply isa methods re );
+use Test::Fatal qw( exception );
 use Test::More;
 use URI::file ();
 use WWW::Mechanize ();
diff --git a/t/image-parse.t b/t/image-parse.t
@@ -4,7 +4,7 @@ use warnings;
 use strict;
 
 use Test::More tests => 47;
-use URI::file;
+use URI::file ();
 
 BEGIN {
     delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)};  # Placates taint-unsafe Cwd.pm in 5.6.1
diff --git a/t/link-relative.t b/t/link-relative.t
@@ -4,7 +4,7 @@ use warnings;
 use strict;
 
 use Test::More tests => 6;
-use URI::file;
+use URI::file ();
 
 BEGIN {
     delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1
diff --git a/t/local/LocalServer.pm b/t/local/LocalServer.pm
@@ -12,11 +12,11 @@ BEGIN {
   )};
 }
 
-use Carp qw(carp croak);
+use Carp qw( carp croak );
 use File::Temp ();
 use LWP::Simple qw( get );
 use Path::Tiny qw( path );
-use URI::URL qw();
+use URI::URL ();
 
 =head1 SYNOPSIS
 
diff --git a/t/local/back.t b/t/local/back.t
@@ -2,8 +2,7 @@ use warnings;
 use strict;
 use Test::More tests => 47;
 use lib qw( t t/local );
-use LocalServer;
-use HTTP::Response;
+use LocalServer ();
 
 
 =head1 NAME
@@ -16,7 +15,7 @@ and subsequently enriched to deal with RT ticket #8109.
 =cut
 
 BEGIN {
-    use Tools;
+    use Tools qw( $canTMC memory_cycle_ok );
 }
 
 BEGIN {
diff --git a/t/local/click.t b/t/local/click.t
@@ -1,7 +1,7 @@
 use warnings;
 use strict;
 use lib 't/local';
-use LocalServer;
+use LocalServer ();
 use Test::More tests => 9;
 
 BEGIN {
diff --git a/t/local/click_button.t b/t/local/click_button.t
@@ -3,7 +3,7 @@ use strict;
 
 use lib 't/local';
 
-use LocalServer;
+use LocalServer ();
 use Test::More 0.96;
 use Test::Exception;
 
diff --git a/t/local/content.t b/t/local/content.t
@@ -1,7 +1,7 @@
 use warnings;
 use strict;
 use lib 't/local';
-use LocalServer;
+use LocalServer ();
 use Test::More tests => 10;
 
 BEGIN {
diff --git a/t/local/encoding.t b/t/local/encoding.t
@@ -2,7 +2,7 @@ use warnings;
 use strict;
 use Test::More tests => 6;
 use lib qw( t/local );
-use LocalServer;
+use LocalServer ();
 
 BEGIN {
     delete @ENV{qw( IFS CDPATH ENV BASH_ENV )};
diff --git a/t/local/failure.t b/t/local/failure.t
@@ -3,7 +3,7 @@ use strict;
 use Test::More;
 
 use lib 't/local';
-use LocalServer;
+use LocalServer ();
 
 
 BEGIN {
diff --git a/t/local/follow.t b/t/local/follow.t
@@ -3,7 +3,7 @@ use strict;
 use Test::More;
 use Test::Exception;
 use lib 't/local';
-use LocalServer;
+use LocalServer ();
 
 BEGIN {
     delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
diff --git a/t/local/form.t b/t/local/form.t
@@ -3,7 +3,7 @@ use strict;
 use Test::More;
 
 use lib 't/local';
-use LocalServer;
+use LocalServer ();
 
 BEGIN {
     delete @ENV{qw( IFS CDPATH ENV BASH_ENV )};
diff --git a/t/local/get.t b/t/local/get.t
@@ -3,10 +3,10 @@ use strict;
 use Test::More tests => 34;
 
 use lib qw( t t/local );
-use LocalServer;
+use LocalServer ();
 
 BEGIN {
-    use Tools;
+    use Tools qw( $canTMC memory_cycle_ok );
 }
 
 BEGIN {
diff --git a/t/local/head.t b/t/local/head.t
@@ -3,7 +3,7 @@ use strict;
 use Test::More;
 
 use lib qw( t t/local );
-use LocalServer;
+use LocalServer ();
 
 BEGIN {
     delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
diff --git a/t/local/nonascii.t b/t/local/nonascii.t
@@ -2,7 +2,7 @@ use warnings;
 use strict;
 use Test::More tests => 5;
 use lib 't/local';
-use LocalServer;
+use LocalServer ();
 
 BEGIN {
     delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
diff --git a/t/local/overload.t b/t/local/overload.t
@@ -2,7 +2,7 @@ use Test::More skip_all => "Mysteriously stopped passing, and I don't know why."
 use warnings;
 use strict;
 use lib 't/local';
-use LocalServer;
+use LocalServer ();
 use Test::More tests => 11;
 
 =head1 NAME
diff --git a/t/local/page_stack.t b/t/local/page_stack.t
@@ -3,7 +3,7 @@ use strict;
 use Test::More;
 
 use lib 't/local';
-use LocalServer;
+use LocalServer ();
 
 BEGIN {
     delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
diff --git a/t/local/post.t b/t/local/post.t
@@ -3,11 +3,7 @@ use strict;
 use Test::More tests => 5;
 
 use lib qw( t t/local );
-use LocalServer;
-
-BEGIN {
-    use Tools;
-}
+use LocalServer ();
 
 BEGIN {
     delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
diff --git a/t/local/referer.t b/t/local/referer.t
@@ -1,12 +1,12 @@
 use warnings;
 use strict;
-use FindBin;
+use FindBin ();
 
 use Test::More tests => 14;
 
 BEGIN {
     use lib 't';
-    use Tools;
+    use Tools qw( $canTMC memory_cycle_ok );
 }
 
 BEGIN {
diff --git a/t/local/reload.t b/t/local/reload.t
diff --git a/t/local/select_multiple.t b/t/local/select_multiple.t
diff --git a/t/local/submit.t b/t/local/submit.t
diff --git a/t/mech-dump/mech-dump.t b/t/mech-dump/mech-dump.t
diff --git a/t/regex-error.t b/t/regex-error.t
diff --git a/t/save_content.t b/t/save_content.t
diff --git a/t/select.t b/t/select.t
diff --git a/t/submit_form.t b/t/submit_form.t
diff --git a/t/tick.t b/t/tick.t
diff --git a/t/untaint.t b/t/untaint.t
diff --git a/t/upload.t b/t/upload.t

Original file line number	Diff line number	Diff line change
`@@ -8,14 +8,14 @@ use Test::More tests => 9;`
`8`	`8`	`use lib 't';`
`9`	`9`
`10`	`10`	`BEGIN {`
`11`		`- use Tools;`
	`11`	`+ use Tools qw( $canTMC memory_cycle_ok );`
`12`	`12`	`}`
`13`	`13`
`14`	`14`	`BEGIN {`
`15`	`15`	`use_ok( 'WWW::Mechanize' );`
`16`	`16`	`}`
`17`	`17`
`18`		`-use URI::file;`
	`18`	`+use URI::file ();`
`19`	`19`
`20`	`20`	`my $mech = WWW::Mechanize->new( cookie_jar => undef );`
`21`	`21`	`isa_ok( $mech, 'WWW::Mechanize' );`