Fix form.t to work with HTTP::Message 7.01+

Co-authored-by: oalders <96205+oalders@users.noreply.github.com>

Author: Copilot

t/form.t

@@ -6,6 +6,20 @@ 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] ) };
 
@@ -83,7 +97,7 @@ EOT
 #print $f->dump;
 #print $f->click->as_string;
 
-is( $f->click->as_string, <<'EOT');
+is_maybe_nl( $f->click->as_string, <<'EOT');
 POST http://localhost/
 Content-Length: 86
 Content-Type: application/x-www-form-urlencoded
@@ -463,7 +477,7 @@ EOT
 ok( $f->find_input("randomkey") );
 is( $f->find_input("randomkey")->challenge, "1234567890" );
 is( $f->find_input("randomkey")->keytype,   "rsa" );
-is( $f->click->as_string,                   <<EOT);
+is_maybe_nl( $f->click->as_string,          <<EOT);
 POST http://example.com/secure/keygen/test.cgi
 Content-Length: 19
 Content-Type: application/x-www-form-urlencoded
@@ -472,7 +486,7 @@ Field1=Default+Text
 EOT
 
 $f->value( randomkey => "foo" );
-is( $f->click->as_string, <<EOT);
+is_maybe_nl( $f->click->as_string, <<EOT);
 POST http://example.com/secure/keygen/test.cgi
 Content-Length: 33
 Content-Type: application/x-www-form-urlencoded
@@ -602,7 +616,7 @@ $f = HTML::Form->parse( <<EOT, base => "http://localhost/" );
 </form>
 EOT
 
-is( $f->click->as_string, <<EOT);
+is_maybe_nl( $f->click->as_string, <<EOT);
 POST http://localhost/
 Content-Length: 9
 Content-Type: application/x-www-form-urlencoded
@@ -617,7 +631,7 @@ $f = HTML::Form->parse( <<EOT, base => "http://localhost/" );
 </form>
 EOT
 
-is( $f->click->as_string, <<EOT);
+is_maybe_nl( $f->click->as_string, <<EOT);
 POST http://localhost/
 Content-Length: 7
 Content-Type: application/x-www-form-urlencoded
@@ -674,4 +688,4 @@ GET http://localhost/target.html?foo=option+in+named
 EOT
 }
 
-done_testing;
+done_testing;