|
2 | 2 |
|
3 | 3 | use Test;
|
4 | 4 |
|
5 |
| -plan 36; |
| 5 | +plan 35; |
6 | 6 |
|
7 | 7 | # See L<http://www.nntp.perl.org/group/perl.perl6.language/22858> --
|
8 | 8 | # previously, "my $a; say $::("a")" died (you had to s/my/our/). Now, it was
|
@@ -124,15 +124,11 @@ my $outer = 'outside';
|
124 | 124 | cmp_ok $::("IN"), &infix:<===>, $*IN,
|
125 | 125 | "symbolic dereferentiation of globals without the star works";
|
126 | 126 |
|
127 |
| - # XXX - should be =:= rather than ~~, but &say =:= &say is currently false.:( |
128 |
| - #cmp_ok &::("*say"), &infix:<=:=>, &say, |
129 |
| - cmp_ok &::("*say"), &infix:<~~>, &say, |
130 |
| - "symbolic dereferentiation of global subs works"; |
131 | 127 | #cmp_ok &::("say"), &infix:<=:=>, &say,
|
132 |
| - cmp_ok &::("say"), &infix:<~~>, &say, |
| 128 | + cmp_ok &::("say"), &infix:<===>, &say, |
133 | 129 | "symbolic dereferentiation of global subs without the star works (1)";
|
134 | 130 |
|
135 |
| - ok &::("true")(42), |
| 131 | + ok &::("so")(42), |
136 | 132 | "symbolic dereferentiation of global subs without the star works (2)";
|
137 | 133 | is &::("truncate")(3.1), 3,
|
138 | 134 | "symbolic dereferentiation of global subs without the star works (3)";
|
|
0 commit comments