| Subject: | several tests FAIL with perl 5.17.3 |
RHEL5
t/globtest.t ........ 1/19
# Failed test 'data slots (glob/FORMAT)'
# at t/test_helper.pl line 114.
# Failed test 'data slots (ref/FORMAT)'
# at t/test_helper.pl line 114.
# Error:
# data slots (blessed FORMAT) subtest Expected failed to return the expected result:
# Expected Result
# 1 = # format F = |
# format F =
# 2 = # vec($_,@#,@#) = @<< == @#########
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> | #
vec($_,@#,@#) = @<< == @######### @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
# 3 ! # $off, $width, $bits, $val, $res *
# $off, $width, $bits, $val, $res;
# 4 = # vec($_,@#,@#) = @<< == @#########
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> | #
vec($_,@#,@#) = @<< == @######### @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
# 5 ! # $off, $width, $bits, $val, $res *
# $off, $width, $bits, $val, $res;
# 6 = # . |
# .
# 7 = _EOF_FORMAT_ |
_EOF_FORMAT_
Got <<'EXPECT';
$Thank_YSTH1 = bless( do{ local *F; my $F=<<'_EOF_FORMAT_'; $F=~s/^\s+# //mg; eval
$F; die $F.$@ if $@; *F{FORMAT};
# format F =
# vec($_,@#,@#) = @<< == @#########
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
# $off, $width, $bits, $val, $res;
# vec($_,@#,@#) = @<< == @#########
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
# $off, $width, $bits, $val, $res;
# .
_EOF_FORMAT_
}, 'Thank::YSTH' );
EXPECT
# Failed test 'data slots (blessed FORMAT)'
# at t/test_helper.pl line 559.
# Looks like you failed 3 tests of 19.
t/globtest.t ........ Dubious, test returned 3 (wstat 768, 0x300)
...
t/madness.t ......... 1/7
# Failed test ''
# at t/test_helper.pl line 114.
# Looks like you failed 1 test of 7.
t/madness.t ......... Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/7 subtests
t/madness_json.t .... 1/7
# Failed test ''
# at t/test_helper.pl line 114.
# Looks like you failed 1 test of 7.
t/madness_json.t .... Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/7 subtests