Bump HTTP::Request version from 6 to 7.01

and update tests to reflect the new requirement

Author: oalders

dist.ini

@@ -36,7 +36,7 @@ user = libwww-perl
 
 [Prereqs]
 Encode = 2
-HTTP::Request = 6
+HTTP::Request = 7.01
 HTTP::Request::Common = 6.03
 perl = 5.008001
 Test::More = 0.96

t/form.t

@@ -6,20 +6,6 @@ use warnings;
 use Test::More;
 use HTML::Form;
 
-# this handles all versions of HTTP::Message, both before and after
-# 7.01, when the stringification of requests changed
-sub is_maybe_nl {
-    my ($got, $expected, $message) = @_;
-
-    local $Test::Builder::Level = $Test::Builder::Level + 1;
-
-    if ($got !~ m{\n$} && $expected =~ m{\n$}) {
-        chomp($expected);
-    }
-
-    is($got, $expected, $message);
-}
-
 my @warn;
 $SIG{__WARN__} = sub { push( @warn, $_[0] ) };
 
@@ -97,13 +83,14 @@ EOT
 #print $f->dump;
 #print $f->click->as_string;
 
-is_maybe_nl( $f->click->as_string, <<'EOT');
+chomp(my $expected_advanced = <<'EOT');
 POST http://localhost/
 Content-Length: 86
 Content-Type: application/x-www-form-urlencoded
 
 i.x=1&i.y=1&c=on&r=b&t=&p=&tel=&date=&h=xyzzy&f=&x=&a=%0D%0Aabc%0D%0A+++&s=bar&m=a&m=b
 EOT
+is( $f->click->as_string, $expected_advanced);
 
 is( @warn, 1 );
 like( $warn[0], qr/^Unknown input type 'xyzzy'/ );
@@ -477,22 +464,24 @@ EOT
 ok( $f->find_input("randomkey") );
 is( $f->find_input("randomkey")->challenge, "1234567890" );
 is( $f->find_input("randomkey")->keytype,   "rsa" );
-is_maybe_nl( $f->click->as_string,          <<EOT);
+chomp(my $expected_keygen = <<EOT);
 POST http://example.com/secure/keygen/test.cgi
 Content-Length: 19
 Content-Type: application/x-www-form-urlencoded
 
 Field1=Default+Text
 EOT
+is( $f->click->as_string, $expected_keygen);
 
 $f->value( randomkey => "foo" );
-is_maybe_nl( $f->click->as_string, <<EOT);
+chomp(my $expected_keygen_foo = <<EOT);
 POST http://example.com/secure/keygen/test.cgi
 Content-Length: 33
 Content-Type: application/x-www-form-urlencoded
 
 randomkey=foo&Field1=Default+Text
 EOT
+is( $f->click->as_string, $expected_keygen_foo);
 
 $f = HTML::Form->parse( <<EOT, "http://www.example.com" );
 <form  ACTION="http://example.com/">
@@ -616,13 +605,14 @@ $f = HTML::Form->parse( <<EOT, base => "http://localhost/" );
 </form>
 EOT
 
-is_maybe_nl( $f->click->as_string, <<EOT);
+chomp(my $expected_button_go = <<EOT);
 POST http://localhost/
 Content-Length: 9
 Content-Type: application/x-www-form-urlencoded
 
 submit=go
 EOT
+is( $f->click->as_string, $expected_button_go);
 
 $f = HTML::Form->parse( <<EOT, base => "http://localhost/" );
 <form method=post>
@@ -631,13 +621,14 @@ $f = HTML::Form->parse( <<EOT, base => "http://localhost/" );
 </form>
 EOT
 
-is_maybe_nl( $f->click->as_string, <<EOT);
+chomp(my $expected_button_empty = <<EOT);
 POST http://localhost/
 Content-Length: 7
 Content-Type: application/x-www-form-urlencoded
 
 submit=
 EOT
+is( $f->click->as_string, $expected_button_empty);
 
 # select with a name followed by select without a name GH#2
 $f = HTML::Form->parse( <<EOT, "http://localhost/" );