Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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

  • Loading branch information...
commit ea3913cc5c9a6038ddb62f29d29b5d248aa7ce0e 1 parent 2db35ca
Moritz Lenz moritz authored

Showing 2 changed files with 10 additions and 8 deletions. Show diff stats Hide diff stats

  1. +2 0  S02-lexical-conventions/unicode.t
  2. +8 8 S04-phasers/rvalue.t
2  S02-lexical-conventions/unicode.t
@@ -81,6 +81,7 @@ is((do { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल
81 81
82 82 # Unicode placeholder variables
83 83 #?mildew skip 'placeholders are NIY'
  84 +#?rakudo skip 'tc'
84 85 {
85 86 is
86 87 ~(< foostraße barstraße fakestraße >.map: { tc $^straßenname }),
@@ -90,6 +91,7 @@ is((do { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल
90 91
91 92 # Unicode methods and attributes
92 93 #?mildew skip 'classes are NIY'
  94 +#?rakudo skip 'tc'
93 95 {
94 96 class A {
95 97 has $!möp = 'pugs';
16 S04-phasers/rvalue.t
@@ -14,11 +14,11 @@ plan 16;
14 14 is $x, 8, 'BEGIN block as expression';
15 15
16 16 # test that built-ins are available within a BEGIN block:
17   - my $y = BEGIN { tc 'moin' };
18   - is $y, 'Moin', 'can access built-in functions in BEGIN blocks';
  17 + my $y = BEGIN { uc 'moin' };
  18 + is $y, 'MOIN', 'can access built-in functions in BEGIN blocks';
19 19
20   - my $z = BEGIN { 'moin'.tc };
21   - is $z, 'Moin', 'can access built-in methods in BEGIN blocks';
  20 + my $z = BEGIN { 'moin'.uc };
  21 + is $z, 'MOIN', 'can access built-in methods in BEGIN blocks';
22 22 }
23 23
24 24 #?pugs skip 'No such subroutine: "&BEGIN"'
@@ -27,11 +27,11 @@ plan 16;
27 27 is $x, 8, 'BEGIN statement prefix as expression';
28 28
29 29 # test that built-ins are available within a BEGIN block:
30   - my $y = BEGIN tc 'moin';
31   - is $y, 'Moin', 'can access built-in functions in BEGIN statement prefix';
  30 + my $y = BEGIN uc 'moin';
  31 + is $y, 'MOIN', 'can access built-in functions in BEGIN statement prefix';
32 32
33   - my $z = BEGIN 'moin'.tc;
34   - is $z, 'Moin', 'can access built-in methods in BEGIN statement prefix';
  33 + my $z = BEGIN 'moin'.uc;
  34 + is $z, 'MOIN', 'can access built-in methods in BEGIN statement prefix';
35 35 }
36 36
37 37 #?rakudo skip 'lexicals in phasers'

0 comments on commit ea3913c

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