Permalink
Browse files

rakudo unfudges, plus a test for RT #70007

  • Loading branch information...
1 parent a7ff6d7 commit 9c407b76b72da55e0d61f4715dd5976c59c4ad8b @moritz moritz committed Jan 13, 2012
Showing with 7 additions and 5 deletions.
  1. +0 −1 S02-types/whatever.t
  2. +7 −2 S05-mass/rx.t
  3. +0 −1 S32-list/reduce.t
  4. +0 −1 S32-scalar/undef.t
View
@@ -146,7 +146,6 @@ is (0,0,0,0,0,0) >>+>> ((1,2) xx *), <1 2 1 2 1 2>, 'xx * works';
{
my $x = 3;
{
- #?rakudo todo '* and lexicals'
is (* + (my $x = 5)).(8), 13,
'can use a declaration in Whatever-curried expression';
is $x, 5, 'and it did not get promoted into its own scope';
View
@@ -1,6 +1,6 @@
use Test;
-plan 724;
+plan 725;
### for now
sub matchcheck(*@) { 1 }
@@ -2476,6 +2476,11 @@ eval_dies_ok '/ /', 'ws null pattern';
#?rakudo todo 'RT 70606'
eval_dies_ok '"b" ~~ /b| /', 'null pattern after alternation';
-done;
+# RT #70007
+# undefined captures should fail to match
+# note the use of $1 (and not $0)
+#?niecza todo 'undefined capture'
+nok 'aa' ~~ /(.)$1/, 'undefined captures do not match';
+done;
# vim: ft=perl6 sw=4 expandtab
View
@@ -54,7 +54,6 @@ plan 13;
isa_ok(@reftypes[2], Hash, "third application of reduced hash subscript passed in a Hash");
}
-#?rakudo todo 'Reduce of one element list. See #61610'
is( (1).list.reduce({$^a * $^b}), 1, "Reduce of one element list produces correct result");
eval_lives_ok( 'reduce -> $a, $b, $c? { $a + $b * ($c//1) }, 1, 2', 'Use proper arity calculation');
View
@@ -341,7 +341,6 @@ lives_ok { uc(eval("")) }, 'can use eval("") in further expressions';
{
sub def is rw { my $x = [] } #OK not used
ok def() ~~ Array, 'sub returns array';
- #?rakudo todo 'nom regression'
lives_ok { undefine def }, 'attempt to undefine returned array lives';
ok def() ~~ Array, 'sub still returns array';

0 comments on commit 9c407b7

Please sign in to comment.