Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

correct ord_and_chr.t (precedence, calling positionals by name), and …

…fudge for rakudo
  • Loading branch information...
commit 8bb65b5958d52b0339436ad180091a5d210f6a86 1 parent 8b36d58
Moritz Lenz authored July 04, 2011

Showing 1 changed file with 3 additions and 8 deletions. Show diff stats Hide diff stats

  1. 11  S29-conversions/ord_and_chr.t
11  S29-conversions/ord_and_chr.t
@@ -121,7 +121,7 @@ my @maps = (
121 121
   "\o03", 3,
122 122
 );
123 123
 
124  
-plan 38 + @maps*2;
  124
+plan 38 + @maps;
125 125
 
126 126
 for @maps -> $char, $code {
127 127
   my $descr = "\\{$code}{$code >= 32 ?? " == '{$char}'" !! ""}";
@@ -129,12 +129,6 @@ for @maps -> $char, $code {
129 129
   is chr($code), $char, "chr() works for $descr";
130 130
 }
131 131
 
132  
-for @maps -> $char, $code {
133  
-   my $descr = "\\{$code}{$code >= 32 ?? " == '{$char}'" !! ""}";
134  
-   is ord(:string($char)), $code, "ord() works for $descr with named args";
135  
-   is chr(:graph($code)), $char, "chr() works for $descr with named args";
136  
-}
137  
-
138 132
 for 0...31 -> $code {
139 133
   my $char = chr($code);
140 134
   is ord($char), $code, "ord(chr($code)) is $code";
@@ -146,7 +140,8 @@ is 65.chr, 'A', "there's a .chr method";
146 140
 #?rakudo skip 'multi-arg variants of chr not in place yet'
147 141
 is chr(104, 101, 108, 108, 111), 'hello', 'chr works with a list of ints';
148 142
 
149  
-ok not defined(ord("")), 'ord("") returns an undefined value';
  143
+#?rakudo skip 'ord of empty string'
  144
+ok !defined(ord("")), 'ord("") returns an undefined value';
150 145
 
151 146
 # RT #65172
152 147
 #?rakudo skip 'RT 65172'

0 notes on commit 8bb65b5

Please sign in to comment.
Something went wrong with that request. Please try again.