# New Ticket Created by [EMAIL PROTECTED]
# Please include the string: [perl #60510]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60510 >
t/spec/S29-conversions/ord_and_chr.rakudo fails with:
t/spec/S29-conversions/ord_and_chr.rakudo (Wstat: 10 Tests: 170 Failed: 0)
Parse errors: Bad plan. You planned 240 tests but ran 170.
However, it runs to completion with:
./perl6 t/spec/S29-conversions/ord_and_chr.rakudo fails with:
The problem is that, when running it as a test, it appears to hang between
these two for loops, and then exits:
for @maps -> $char, $code {
my $descr = "\\{$code}{$code >= 32 ?? " == '{$char}'" !! ""}";
is ord($char), $code, "ord() works for $descr";
is chr($code), $char, "chr() works for $descr";
}
for 0..31 -> $code {
my $char = chr($code);
is ord($char), $code, "ord(chr($code)) is $code";
}
In testing, I put "say 1" between the two loops and the test ran to completion.
Cheers,
Ovid
--
Buy the book - http://www.oreilly.com/catalog/perlhks/
Tech blog - http://use.perl.org/~Ovid/journal/
Twitter - http://twitter.com/OvidPerl
Official Perl 6 Wiki - http://www.perlfoundation.org/perl6
