| Subject: | perl 5.14 regexp stringification changes breaks tests. |
I don't think this is a dupe but I thought I'd submit it before it's lost.
# Failed test 'Regular regexp dumps'
# at t/regexp.t line 7.
# got: '--- !!perl/regexp (?^:5050)
# '
# expected: '--- !!perl/regexp (?-xism:5050)
# '
# Failed test 'Blessed regular regexp dumps'
# at t/regexp.t line 15.
# got: '--- !!perl/regexp:Classy (?^:99999)
# '
# expected: '--- !!perl/regexp:Classy (?-xism:99999)
# '
# Failed test 'Regexp with flags dumps'
# at t/regexp.t line 22.
# got: '--- !!perl/regexp (?^mi:^edcba)
# '
# expected: '--- !!perl/regexp (?mi-xs:^edcba)
# '
# Failed test 'Blessed regexp with flags dumps'
# at t/regexp.t line 29.
# got: '--- !!perl/regexp:Bossy (?^mi:^edcba)
# '
# expected: '--- !!perl/regexp:Bossy (?mi-xs:^edcba)
# '
# Failed test 'Unicode regexp dumps'
# at t/regexp.t line 37.
# got: '--- !!perl/regexp (?^u:Ā)
# '
# expected: '--- !!perl/regexp (?-xism:Ā)
# '
# Failed test 'Loaded regexp value is correct'
# at t/regexp.t line 44.
# got: '(?^u:(?^:5050))'
# expected: '(?-xism:5050)'
# Failed test 'Loaded blessed regexp value is correct'
# at t/regexp.t line 49.
# got: '(?^u:(?^:99999))'
# expected: '(?-xism:99999)'
# Failed test 'Loaded regexp with flags value is correct'
# at t/regexp.t line 54.
# got: '(?^u:(?^mi:^edcba))'
# expected: '(?mi-xs:^edcba)'
# Failed test 'Loaded regexp with all flags value is correct'
# at t/regexp.t line 59.
# got: '(?umsix:123)'
# expected: '(?msix:123)'
# Failed test 'Loaded unicode regexp value is correct'
# at t/regexp.t line 63.
Wide character in print at /home/cpan/YAML-LibYAML-0.34/inc/Test/Builder.pm line 1752,
<CONFIG> line 1.
# got: '(?umsix:Ā)'
# expected: '(?msix:Ā)'
# Looks like you failed 10 tests of 18.
t/regexp.t ........