Browse files

[t/spec] unfudge some ord/chr tests for rakudo; ord("") should be undef

git-svn-id: http://svn.pugscode.org/pugs@29288 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent ebdf555 commit ec9081363315e4d2472fd5487bf0084eb7f07cf4 moritz committed Dec 7, 2009
Showing with 1 addition and 3 deletions.
  1. +1 −3 S29-conversions/ord_and_chr.t
View
4 S29-conversions/ord_and_chr.t
@@ -131,9 +131,7 @@ for @maps -> $char, $code {
for @maps -> $char, $code {
my $descr = "\\{$code}{$code >= 32 ?? " == '{$char}'" !! ""}";
-#?rakudo skip 'named args'
is ord(:string($char)), $code, "ord() works for $descr with named args";
-#?rakudo skip 'named args'
is chr(:graph($code)), $char, "chr() works for $descr with named args";
}
@@ -149,7 +147,7 @@ is 65.chr, 'A', "there's a .chr method";
is ord('hello'), [104, 101, 108, 108, 111], 'ord works with longer strings';
is chr(104, 101, 108, 108, 111), 'hello', 'chr works with a list of ints';
-ok ord("") ~~ Failure, 'ord("") returns a Failure';
+ok not defined(ord("")), 'ord("") returns an undefined value';
# RT #65172
{

0 comments on commit ec90813

Please sign in to comment.