| CC: | ANDK [...] cpan.org |
| Subject: | Tests fail with 5.27.8 |
The test log:
...
# Failed test 'code for tr_operator'
# at t/20-optree.t line 1354.
# got: '$a;
# $a = tr/(e/\400\000\000\000zyxw/cds'
# expected: '$a;
# $a = tr/$a/zyxw/cds'
# showing whitespace:
# >>$a;<<
# >>$a = tr/(e/\400\000\000\000zyxw/cds<<
# $@:
# Tree:
# Looks like you failed 1 test of 47.
# Failed test 'string functions'
# at t/20-optree.t line 209.
dump() better written as CORE::dump(). dump() will no longer be available in Perl 5.30 at (eval 528) line 1.
dump() better written as CORE::dump(). dump() will no longer be available in Perl 5.30 at (eval 528) line 2.
Bareword found where operator expected at (eval 674) line 10, near "'ghi' whereso"
(Missing operator before whereso?)
Bareword found where operator expected at (eval 674) line 14, near "'456' whereis"
(Missing operator before whereis?)
# No tests run!
# Failed test 'No tests run for subtest "given-when-5.27.7"'
# at t/20-optree.t line 1129.
Couldn't compile code for given_when_5_27: syntax error at (eval 674) line 3, near ") {"
syntax error at (eval 674) line 7, near ") {"
syntax error at (eval 674) line 10, near "'ghi' whereso "
syntax error at (eval 674) line 11, near ") {"
syntax error at (eval 674) line 16, near "'default case'
}"
Code was:
use 5.27.7;use experimental 'switch';sub given_when_5_27 { my $a;
given ($a) {
whereso (m/abc/) {
print 'abc';
print 'ABC'
}
whereso (m/def/) {
print 'def'
}
print 'ghi' whereso (m/ghi/);
whereis ('123') {
print '123'
}
print '456' whereis (456);
print 'default case'
} } at t/20-optree.t line 1348.
# Looks like your test exited with 255 just after 25.
t/20-optree.t ......................
Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 11/34 subtests
(less 1 skipped subtest: 22 okay)
...
It looks like there are two problems. The latter (given-when) is easy to explain: the whereis/whereso experiment was removed again from 5.27.8. The former (tr) may be something different.