"Aaron James Trevena via RT" <bug-Test-HTTP-Response@rt.cpan.org>
writes:
Show quoted text> I spent an hour looking at the code last night and can't find anywhere
> that I'd expect it to be affected in the code itself, I suspect it may
> be one of the upstream modules giving unexpected results - will have to
> check if they have similar bug reports :(
In case it helps you to find the truth faster, here is the output from
the debugger immediately before test 14 of 03_headers.t fails. You see
that the oder of lines one and two is swapped.
DB<5> c 337
Test::Builder::Tester::test_test(/home/src/perl/repoperls/installed-perls/perl/v5.17.7.0-195-g5398666/165a/lib/5.17.8/Test/Builder/Tester.pm:337):
337: unless( $t->ok( ( $args{skip_out} || $out->check ) &&
338: ( $args{skip_err} || $err->check ), $mess )
339: )
340: {
DB<6> x $out
0 Test::Builder::Tester::Tie=HASH(0x2a6e680)
'got' => 'ok 1 - HTTP header field content-Type matches
ok 2 - HTTP header field Cache-control matches
not ok 3 - Test for HTTP header field \'x-foo\'
not ok 4 - Tests for all HTTP header fields
'
'type' => 'STDOUT'
'wanted' => ARRAY(0x30cbc70)
0 'ok 1 - HTTP header field Cache-control matches
ok 2 - HTTP header field content-Type matches
not ok 3 - Test for HTTP header field \'x-foo\'
not ok 4 - Tests for all HTTP header fields
'
--
andreas
