Permalink
Browse files

more rakudo fudging, move unrelated tests to use uc instead of tc

  • Loading branch information...
1 parent 2db35ca commit ea3913cc5c9a6038ddb62f29d29b5d248aa7ce0e @moritz moritz committed Jul 27, 2012
Showing with 10 additions and 8 deletions.
  1. +2 −0 S02-lexical-conventions/unicode.t
  2. +8 −8 S04-phasers/rvalue.t
@@ -81,6 +81,7 @@ is((do { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल
# Unicode placeholder variables
#?mildew skip 'placeholders are NIY'
+#?rakudo skip 'tc'
{
is
~(< foostraße barstraße fakestraße >.map: { tc $^straßenname }),
@@ -90,6 +91,7 @@ is((do { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल
# Unicode methods and attributes
#?mildew skip 'classes are NIY'
+#?rakudo skip 'tc'
{
class A {
has $!möp = 'pugs';
View
@@ -14,11 +14,11 @@ plan 16;
is $x, 8, 'BEGIN block as expression';
# test that built-ins are available within a BEGIN block:
- my $y = BEGIN { tc 'moin' };
- is $y, 'Moin', 'can access built-in functions in BEGIN blocks';
+ my $y = BEGIN { uc 'moin' };
+ is $y, 'MOIN', 'can access built-in functions in BEGIN blocks';
- my $z = BEGIN { 'moin'.tc };
- is $z, 'Moin', 'can access built-in methods in BEGIN blocks';
+ my $z = BEGIN { 'moin'.uc };
+ is $z, 'MOIN', 'can access built-in methods in BEGIN blocks';
}
#?pugs skip 'No such subroutine: "&BEGIN"'
@@ -27,11 +27,11 @@ plan 16;
is $x, 8, 'BEGIN statement prefix as expression';
# test that built-ins are available within a BEGIN block:
- my $y = BEGIN tc 'moin';
- is $y, 'Moin', 'can access built-in functions in BEGIN statement prefix';
+ my $y = BEGIN uc 'moin';
+ is $y, 'MOIN', 'can access built-in functions in BEGIN statement prefix';
- my $z = BEGIN 'moin'.tc;
- is $z, 'Moin', 'can access built-in methods in BEGIN statement prefix';
+ my $z = BEGIN 'moin'.uc;
+ is $z, 'MOIN', 'can access built-in methods in BEGIN statement prefix';
}
#?rakudo skip 'lexicals in phasers'

0 comments on commit ea3913c

Please sign in to comment.