Merge pull request #359 from libwww-perl/oalders/perlimports

Apply perlimports to tests

Author: simbabque

perlimports.toml

@@ -0,0 +1,25 @@
+# Valid log levels are:
+# debug, info, notice, warning, error, critical, alert, emergency
+# critical, alert and emergency are not currently used.
+#
+# Please use boolean values in this config file. Negated options (--no-*) are
+# not permitted here. Explicitly set options to true or false.
+#
+# Some of these values deviate from the regular perlimports defaults. In
+# particular, you're encouraged to leave preserve_duplicates and
+# preserve_unused disabled.
+
+cache                           = false # setting this to true is currently discouraged
+ignore_modules                  = ["Test::More"]
+ignore_modules_filename         = ""
+ignore_modules_pattern          = "" # regex like "^(Foo|Foo::Bar)"
+ignore_modules_pattern_filename = ""
+libs                            = ["lib", "t", "t/local"]
+log_filename                    = ""
+log_level                       = "warn"
+never_export_modules            = []
+never_export_modules_filename   = ""
+padding                         = true
+preserve_duplicates             = false
+preserve_unused                 = false
+tidy_whitespace                 = true

t/file_upload.t

@@ -2,8 +2,8 @@ use strict;
 use warnings;
 use Test::More;
 use Test::Exception;
-use WWW::Mechanize;
-use URI::file;
+use WWW::Mechanize ();
+use URI::file ();
 
 my $file     = 't/file_upload.html';
 my $filename = 'the_file_upload.html';

t/form_with_fields.t

@@ -5,7 +5,7 @@ use strict;
 use Test::More 'no_plan';
 use Test::Fatal qw( exception );
 use Test::Warnings ':all';
-use Test::Deep qw( cmp_deeply re array_each code );
+use Test::Deep qw( array_each cmp_deeply code re );
 use URI::file ();
 
 BEGIN {

t/mech-dump/file_not_found.t

@@ -4,7 +4,7 @@ use warnings;
 use strict;
 
 use Test::More;
-use Test::Output qw(output_like);
+use Test::Output qw( output_like );
 use File::Spec   ();
 
 # See https://stackoverflow.com/a/32054866/1331451

xt/author/live/wikipedia.t

@@ -13,7 +13,7 @@ use WWW::Mechanize ();
 use lib 't';
 
 BEGIN {
-    use Tools;
+    use Tools qw( $canTMC memory_cycle_ok );
 }
 
 my $mech = WWW::Mechanize->new;