diff -pruN 2.12-1/Changes 2.13-1/Changes --- 2.12-1/Changes 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/Changes 2022-07-29 09:44:58.000000000 +0000 @@ -1,5 +1,16 @@ Revision history for WWW::Mechanize +2.13 2022-07-29 09:44:46Z + [ENHANCEMENTS] + - mech_dump now treats all local files like HTML regardless of what it + thinks their content types are (GH#63) (Julien Fiegehenn) + - We now consistently use our own die() method and therefore the onerror + handler wherever possible (GH#80) (Julien Fiegehenn) + + [TESTS] + - Add tests for field() when working on a diff -pruN 2.12-1/t/field.t 2.13-1/t/field.t --- 2.12-1/t/field.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/field.t 2022-07-29 09:44:58.000000000 +0000 @@ -2,8 +2,9 @@ use warnings; use strict; -use Test::More tests => 14; -use URI::file; + +use Test::More; +use URI::file (); BEGIN { delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1 @@ -29,6 +30,10 @@ $mech->set_visible( [ radio => 'wongo!' is( $mech->value( 'wango' ), 'wongo!', 'wango changed' ); is( $mech->value( 'dingo', 2 ), 'boingo', 'dingo changed' ); +ok( ! $mech->value( 'textarea_name' ), 'textarea is empty' ); +$mech->field( 'textarea_name' => 'foobar' ); +is( $mech->value( 'textarea_name' ), 'foobar', 'textarea has been populated' ); + for my $name (qw/__no_value __value_empty/) { ok( ! $mech->value( $name ), "$name is empty" ) or diag $mech->field($name); $mech->field( $name, 'foo'); @@ -42,4 +47,6 @@ for my $name (qw/__value/) { } $mech->field( $name, 'foo'); is( $mech->value( $name ), 'foo', "$name changed" ); -} \ No newline at end of file +} + +done_testing; diff -pruN 2.12-1/t/find_frame.t 2.13-1/t/find_frame.t --- 2.12-1/t/find_frame.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/find_frame.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/find_image.t 2.13-1/t/find_image.t --- 2.12-1/t/find_image.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/find_image.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/find_inputs.t 2.13-1/t/find_inputs.t --- 2.12-1/t/find_inputs.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/find_inputs.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/find_link_id.t 2.13-1/t/find_link_id.t --- 2.12-1/t/find_link_id.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/find_link_id.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/find_link_xhtml.t 2.13-1/t/find_link_xhtml.t --- 2.12-1/t/find_link_xhtml.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/find_link_xhtml.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/form-parsing.t 2.13-1/t/form-parsing.t --- 2.12-1/t/form-parsing.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/form-parsing.t 2022-07-29 09:44:58.000000000 +0000 @@ -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; }; diff -pruN 2.12-1/t/form_with_fields.html 2.13-1/t/form_with_fields.html --- 2.12-1/t/form_with_fields.html 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/form_with_fields.html 2022-07-29 09:44:58.000000000 +0000 @@ -48,7 +48,7 @@ -
+ +
+ + \ No newline at end of file diff -pruN 2.12-1/t/image-parse.t 2.13-1/t/image-parse.t --- 2.12-1/t/image-parse.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/image-parse.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/link-relative.t 2.13-1/t/link-relative.t --- 2.12-1/t/link-relative.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/link-relative.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/local/back.t 2.13-1/t/local/back.t --- 2.12-1/t/local/back.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/back.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 R =cut BEGIN { - use Tools; + use Tools qw( $canTMC memory_cycle_ok ); } BEGIN { diff -pruN 2.12-1/t/local/click_button.t 2.13-1/t/local/click_button.t --- 2.12-1/t/local/click_button.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/click_button.t 2022-07-29 09:44:58.000000000 +0000 @@ -3,7 +3,7 @@ use strict; use lib 't/local'; -use LocalServer; +use LocalServer (); use Test::More 0.96; use Test::Exception; @@ -18,6 +18,8 @@ isa_ok( $mech, 'WWW::Mechanize', 'Create my $server = LocalServer->spawn(); isa_ok( $server, 'LocalServer' ); +dies_ok { $mech->click_button( id => 0 ) } 'Dies without a form'; + my $response = $mech->get( $server->url ); isa_ok( $response, 'HTTP::Response', 'Got back a response' ); ok( $response->is_success, 'Got URL' ) or die q{Can't even fetch local url}; diff -pruN 2.12-1/t/local/click.t 2.13-1/t/local/click.t --- 2.12-1/t/local/click.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/click.t 2022-07-29 09:44:58.000000000 +0000 @@ -1,7 +1,7 @@ use warnings; use strict; use lib 't/local'; -use LocalServer; +use LocalServer (); use Test::More tests => 9; BEGIN { diff -pruN 2.12-1/t/local/content.t 2.13-1/t/local/content.t --- 2.12-1/t/local/content.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/content.t 2022-07-29 09:44:58.000000000 +0000 @@ -1,7 +1,7 @@ use warnings; use strict; use lib 't/local'; -use LocalServer; +use LocalServer (); use Test::More tests => 10; BEGIN { diff -pruN 2.12-1/t/local/encoding.t 2.13-1/t/local/encoding.t --- 2.12-1/t/local/encoding.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/encoding.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/local/failure.t 2.13-1/t/local/failure.t --- 2.12-1/t/local/failure.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/failure.t 2022-07-29 09:44:58.000000000 +0000 @@ -3,7 +3,7 @@ use strict; use Test::More; use lib 't/local'; -use LocalServer; +use LocalServer (); BEGIN { diff -pruN 2.12-1/t/local/follow.t 2.13-1/t/local/follow.t --- 2.12-1/t/local/follow.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/follow.t 2022-07-29 09:44:58.000000000 +0000 @@ -1,8 +1,9 @@ use warnings; use strict; -use Test::More tests => 28; +use Test::More; +use Test::Exception; use lib 't/local'; -use LocalServer; +use LocalServer (); BEGIN { delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) }; @@ -60,3 +61,6 @@ is( $agent->uri, $server->url, 'Needs to eval {$agent->follow_link( '/foo' )}; like($@, qr/Needs to get key-value pairs of parameters.*follow\.t/, "Invalid parameter passing gets better error message"); +dies_ok { WWW::Mechanize->new->follow_link( url => '/404' ) } "dies when link does not exist with autocheck"; + +done_testing; \ No newline at end of file diff -pruN 2.12-1/t/local/form.t 2.13-1/t/local/form.t --- 2.12-1/t/local/form.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/form.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/local/get.t 2.13-1/t/local/get.t --- 2.12-1/t/local/get.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/get.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/local/head.t 2.13-1/t/local/head.t --- 2.12-1/t/local/head.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/head.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/local/LocalServer.pm 2.13-1/t/local/LocalServer.pm --- 2.12-1/t/local/LocalServer.pm 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/LocalServer.pm 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/local/nonascii.t 2.13-1/t/local/nonascii.t --- 2.12-1/t/local/nonascii.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/nonascii.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/local/overload.t 2.13-1/t/local/overload.t --- 2.12-1/t/local/overload.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/overload.t 2022-07-29 09:44:58.000000000 +0000 @@ -2,7 +2,7 @@ use Test::More skip_all => "Mysteriously use warnings; use strict; use lib 't/local'; -use LocalServer; +use LocalServer (); use Test::More tests => 11; =head1 NAME diff -pruN 2.12-1/t/local/page_stack.t 2.13-1/t/local/page_stack.t --- 2.12-1/t/local/page_stack.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/page_stack.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/local/post.t 2.13-1/t/local/post.t --- 2.12-1/t/local/post.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/post.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/local/referer.t 2.13-1/t/local/referer.t --- 2.12-1/t/local/referer.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/referer.t 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/local/reload.t 2.13-1/t/local/reload.t --- 2.12-1/t/local/reload.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/reload.t 2022-07-29 09:44:58.000000000 +0000 @@ -3,10 +3,10 @@ use strict; use Test::More tests => 15; use lib qw( t t/local ); -use LocalServer; +use LocalServer (); BEGIN { - use Tools; + use Tools qw( $canTMC memory_cycle_ok ); } BEGIN { diff -pruN 2.12-1/t/local/select_multiple.t 2.13-1/t/local/select_multiple.t --- 2.12-1/t/local/select_multiple.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/select_multiple.t 2022-07-29 09:44:58.000000000 +0000 @@ -1,9 +1,10 @@ use warnings; use strict; use Test::More; +use Test::Exception; use lib 't/local'; -use LocalServer; +use LocalServer (); BEGIN { use_ok( 'WWW::Mechanize' ); @@ -34,6 +35,9 @@ HTML my $server = LocalServer->spawn( html => $html ); isa_ok( $server, "LocalServer" ); +dies_ok { $mech->submit_form( form_number => 1, fields => { none => 0 } ) } +'Dies without a form'; + $mech->get($server->url); ok( $mech->success, 'Fetched OK' ); diff -pruN 2.12-1/t/local/submit.t 2.13-1/t/local/submit.t --- 2.12-1/t/local/submit.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/local/submit.t 2022-07-29 09:44:58.000000000 +0000 @@ -2,10 +2,10 @@ use warnings; use strict; use lib qw( t t/local ); use Test::More tests => 13; -use LocalServer; +use LocalServer (); BEGIN { - use Tools; + use Tools qw( $canTMC memory_cycle_ok ); } BEGIN { diff -pruN 2.12-1/t/mech-dump/mech-dump.t 2.13-1/t/mech-dump/mech-dump.t --- 2.12-1/t/mech-dump/mech-dump.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/mech-dump/mech-dump.t 2022-07-29 09:44:58.000000000 +0000 @@ -4,8 +4,8 @@ use warnings; use strict; use Test::More; -use File::Spec; -use LWP; +use File::Spec (); +use LWP (); BEGIN { delete @ENV{ qw( IFS CDPATH ENV BASH_ENV PATH ) }; @@ -21,11 +21,11 @@ if ( $^O eq 'VMS' ) { # Simply use a file: uri instead of the filename to make this test # more independent of what URI::* thinks. -my $source = 'file:t/google.html t/find_inputs.html'; +my $source = 'file:t/google.html t/find_inputs.html t/html_file.txt'; my $perl; $perl = $1 if $^X =~ /^(.+)$/; -my $command = "$perl -Ilib $exe --forms $source"; +my $command = "$perl -Ilib $exe --forms --images --links $source"; my $actual = `$command`; @@ -40,6 +40,23 @@ GET file:/target-page [bob-the-form] btnG=Google Search (submit) btnI=I'm Feeling Lucky (submit) + +/images/logo.gif + + +/imghp?hl=en&tab=wi&ie=UTF-8 +/grphp?hl=en&tab=wg&ie=UTF-8 +/dirhp?hl=en&tab=wd&ie=UTF-8 +/nwshp?hl=en&tab=wn&ie=UTF-8 +/advanced_search?hl=en +/preferences?hl=en +/language_tools?hl=en +/tour/services/query.html +/ads/ +/services/ +/options/ +/about.html + POST http://localhost/ (multipart/form-data) [1st_form] 1a= (text) submit1=Submit (image) @@ -57,6 +74,9 @@ POST http://localhost/ [3rd_form] YourSister= (text) YourSister= (text) submit=Submit (submit) + +GET http://localhost [text-form] + one= (text) EOF } else { $expected = <<'EOF'; @@ -68,6 +88,23 @@ GET file:/target-page [bob-the-form] btnG=Google Search (submit) btnI=I'm Feeling Lucky (submit) + +/images/logo.gif + + +/imghp?hl=en&tab=wi&ie=UTF-8 +/grphp?hl=en&tab=wg&ie=UTF-8 +/dirhp?hl=en&tab=wd&ie=UTF-8 +/nwshp?hl=en&tab=wn&ie=UTF-8 +/advanced_search?hl=en +/preferences?hl=en +/language_tools?hl=en +/tour/services/query.html +/ads/ +/services/ +/options/ +/about.html + POST http://localhost/ (multipart/form-data) [1st_form] 1a= (text) submit1=Submit (image) @@ -85,6 +122,9 @@ POST http://localhost/ [3rd_form] YourSister= (text) YourSister= (text) submit=Submit (submit) + +GET http://localhost [text-form] + one= (text) EOF } diff -pruN 2.12-1/t/regex-error.t 2.13-1/t/regex-error.t --- 2.12-1/t/regex-error.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/regex-error.t 2022-07-29 09:44:58.000000000 +0000 @@ -4,7 +4,7 @@ use warnings; use strict; use Test::More; -use Test::Warn qw( warning_like); +use Test::Warn qw( warning_like ); use WWW::Mechanize (); my $m = WWW::Mechanize->new; diff -pruN 2.12-1/t/save_content.t 2.13-1/t/save_content.t --- 2.12-1/t/save_content.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/save_content.t 2022-07-29 09:44:58.000000000 +0000 @@ -4,7 +4,7 @@ use warnings; use strict; use Test::More tests => 8; -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 -pruN 2.12-1/t/select.t 2.13-1/t/select.t --- 2.12-1/t/select.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/select.t 2022-07-29 09:44:58.000000000 +0000 @@ -3,7 +3,7 @@ use warnings; use strict; use Test::More tests => 14; -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 -pruN 2.12-1/t/submit_form.t 2.13-1/t/submit_form.t --- 2.12-1/t/submit_form.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/submit_form.t 2022-07-29 09:44:58.000000000 +0000 @@ -4,7 +4,7 @@ use warnings; use strict; use Test::More; -use Test::Fatal; +use Test::Fatal qw( exception ); use Test::Warnings ':all'; use URI::file (); use WWW::Mechanize (); @@ -29,6 +29,19 @@ $mech->get($uri); { $mech->get($uri); + is( + exception { + $mech->submit_form( + form_id => '6th_form', + ); + }, + undef, + 'submit_form with valid form_id', + ); +} + +{ + $mech->get($uri); like( exception { $mech->submit_form( @@ -91,4 +104,17 @@ $mech->get($uri); ); } +{ + $mech->get($uri); + like( + exception { + $mech->submit_form( + with_fields => {}, # left empty on purpose + ) + }, + qr/no fields provided/, + 'submit_form with no fields', + ); +} + done_testing(); diff -pruN 2.12-1/t/TestServer.pm 2.13-1/t/TestServer.pm --- 2.12-1/t/TestServer.pm 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/TestServer.pm 2022-07-29 09:44:58.000000000 +0000 @@ -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 -pruN 2.12-1/t/tick.t 2.13-1/t/tick.t --- 2.12-1/t/tick.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/tick.t 2022-07-29 09:44:58.000000000 +0000 @@ -5,7 +5,7 @@ use strict; use Test::Fatal qw( exception ); use Test::More; -use URI::file; +use URI::file (); delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1 use_ok( 'WWW::Mechanize' ); diff -pruN 2.12-1/t/untaint.t 2.13-1/t/untaint.t --- 2.12-1/t/untaint.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/untaint.t 2022-07-29 09:44:58.000000000 +0000 @@ -1,6 +1,6 @@ use strict; use warnings; -use URI::file; +use URI::file (); use Test::More; diff -pruN 2.12-1/t/upload.t 2.13-1/t/upload.t --- 2.12-1/t/upload.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/t/upload.t 2022-07-29 09:44:58.000000000 +0000 @@ -3,7 +3,7 @@ use strict; use warnings; use Test::More tests => 5; -use URI::file; +use URI::file (); BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY PATH IFS CDPATH ENV BASH_ENV) }; } use_ok( 'WWW::Mechanize' ); diff -pruN 2.12-1/xt/author/eol.t 2.13-1/xt/author/eol.t --- 2.12-1/xt/author/eol.t 2022-07-20 06:45:51.000000000 +0000 +++ 2.13-1/xt/author/eol.t 2022-07-29 09:44:58.000000000 +0000 @@ -59,6 +59,7 @@ my @files = ( 't/history_1.html', 't/history_2.html', 't/history_3.html', + 't/html_file.txt', 't/image-new.t', 't/image-parse.css', 't/image-parse.html',