| Subject: | Code de-serialization tests fail on perl <= 5.8.7 |
t/dump-code.t ............ 1/7
# Failed test 'a code ref (n->y)'
# at
/home/rabbit/.cpanm/work/1352733203.28591/YAML-0.84/blib/lib/Test/YAML.pm line
65.
# got: '--- !!perl/code |
# {
# use warnings;
# use strict 'refs';
# 'Something at least 30 chars';
# }
# '
# expected: '--- !!perl/code |
# {
# BEGIN {${^WARNING_BITS} = "UUUUUUUUUUUU\001"}
# use strict 'refs';
# 'Something at least 30 chars';
# }
# '
# Failed test 'an array of the same code ref (n->y)'
# at
/home/rabbit/.cpanm/work/1352733203.28591/YAML-0.84/blib/lib/Test/YAML.pm line
65.
# got: '---
# - &1 !!perl/code |
# {
# use warnings;
# use strict 'refs';
# 'Something at least 30 chars';
# }
# - *1
# - *1
# '
# expected: '---
# - &1 !!perl/code |
# {
# BEGIN {${^WARNING_BITS} = "UUUUUUUUUUUU\001"}
# use strict 'refs';
# 'Something at least 30 chars';
# }
# - *1
# - *1
# '
# Failed test 'blessed code ref (n->y)'
# at
/home/rabbit/.cpanm/work/1352733203.28591/YAML-0.84/blib/lib/Test/YAML.pm line
65.
# got: '--- !!perl/code:Foo::Bar |
# {
# use warnings;
# use strict 'refs';
# 'Something at least 30 chars';
# }
# '
# expected: '--- !!perl/code:Foo::Bar |
# {
# BEGIN {${^WARNING_BITS} = "UUUUUUUUUUUU\001"}
# use strict 'refs';
# 'Something at least 30 chars';
# }
# '
# Looks like you failed 3 tests of 7.
t/dump-code.t ............ Dubious, test returned 3 (wstat 768, 0x300)
t/dump-perl-types.t ...... 1/14
# Failed test 'Code'
# at t/dump-perl-types.t line 18.
# got: '--- !!perl/code |
# {
# use warnings;
# use strict 'refs';
# print "Hello, world\n";
# }
# '
# expected: '--- !!perl/code |
# {
# BEGIN {${^WARNING_BITS} = "UUUUUUUUUUUU\001"}
# use strict 'refs';
# print "Hello, world\n";
# }
# '
# Failed test 'Code Glob'
# at t/dump-perl-types.t line 18.
# got: '--- !!perl/glob:
# PACKAGE: main
# NAME: var3
# CODE: !!perl/code |
# {
# use warnings;
# use strict 'refs';
# print "Hello, world\n";
# }
# '
# expected: '--- !!perl/glob:
# PACKAGE: main
# NAME: var3
# CODE: !!perl/code |
# {
# BEGIN {${^WARNING_BITS} = "UUUUUUUUUUUU\001"}
# use strict 'refs';
# print "Hello, world\n";
# }
# '
# Looks like you failed 2 tests of 14.
t/dump-perl-types.t ...... Dubious, test returned 2 (wstat 512, 0x200)
Failed 2/14 subtests