Test pass: 1 at d:/temp/redirect_test_more.pl line 16. Test fail: 0 at d:/temp/redirect_test_more.pl line 17. ---------- std ---------- ok 1 - pass? not ok 2 - fail? 1..2 ---------- ---------- failure ---------- # Failed test 'fail?' # at d:/temp/redirect_test_more.pl line 17. # Structures begin differing at: # $got->{b} = Does not exist # $expected->{b} = '1' ---------- ---------- todo ---------- ---------- { failure => "# Failed test 'fail?'\n# at d:/temp/redirect_test_more.pl line 17.\n# Structures begin differing at:\n# \$got->{b} = Does not exist\n# \$expected->{b} = '1'\n", std => "ok 1 - pass?\nnot ok 2 - fail?\n1..2\n", todo => undef, }