diff options
Diffstat (limited to 'cpan/HTTP-Tiny/t/150_post_form.t')
| -rw-r--r-- | cpan/HTTP-Tiny/t/150_post_form.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/cpan/HTTP-Tiny/t/150_post_form.t b/cpan/HTTP-Tiny/t/150_post_form.t index f9fbd17bbe..c1c231848f 100644 --- a/cpan/HTTP-Tiny/t/150_post_form.t +++ b/cpan/HTTP-Tiny/t/150_post_form.t @@ -33,7 +33,7 @@ for my $file ( dir_list("t/cases", qr/^form/ ) ) { my @params = split "\\|", $case->{content}[0]; my $formdata; - if ( $case->{datatype} eq 'HASH' ) { + if ( $case->{datatype}[0] eq 'HASH' ) { while ( @params ) { my ($key, $value) = splice( @params, 0, 2 ); if ( ref $formdata->{$key} ) { @@ -66,6 +66,7 @@ for my $file ( dir_list("t/cases", qr/^form/ ) ) { my $label = basename($file); + is( sort_headers($got_req), sort_headers($expect_req), "$label request" ); my ($rc) = $give_res =~ m{\S+\s+(\d+)}g; |