- Timestamp:
- 09/27/08 16:38:25 (2 months ago)
- Files:
-
- 1 modified
-
t/spec/S02-lexical-conventions/unicode.t (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
t/spec/S02-lexical-conventions/unicode.t
r22422 r22434 10 10 # english ;-) 11 11 ok(try {my $foo; sub foo {}; 1}, "ascii declaration"); 12 #?rakudo skip "No applicable candidates found to dispatch to."13 12 is(try {my $bar = 2; sub id ($x) { $x }; id($bar)}, 2, "evaluation"); 14 15 #?rakudo 20 skip 'unicode: expected USTRINGC'16 13 17 14 # umlauts … … 61 58 ); 62 59 63 #?rakudo 2 skip 'Parse Error: Statement not terminated properly'64 60 ok(try { my $पहला = 1; }, "hindi declaration"); 65 61 is(try { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल($दूसरा) }, 4, "evaluation"); 66 62 67 63 # Unicode subs 68 #?rakudo skip 'Parse Error: Statement not terminated properly'69 64 { 70 65 my sub äöü () { 42 } 71 66 is äöü, 42, "Unicode subs with no parameters"; 72 67 } 73 #?rakudo skip 'lexically scoped subs'74 68 { 75 69 my sub äöü ($x) { 1000 + $x } … … 78 72 79 73 # Unicode parameters 80 #?rakudo skip 'lexically scoped subs'81 74 { 82 75 my sub abc (:$äöü) { 1000 + $äöü } … … 87 80 88 81 # Unicode placeholder variables 89 #?rakudo skip 'Parse Error: Statement not terminated properly'90 82 { 91 83 is … … 96 88 97 89 # Unicode methods 98 #?rakudo skip "unicode: unexpected USTRINGC"99 90 { 100 91 class Str is also { method äöü { self.ucfirst } };
