Skip to content
Browse files

[t/spec] unfudge tests for rakudo: Whatever-currying, backtracking in…

…to named subrules, and lexical fixes

git-svn-id: http://svn.pugscode.org/pugs@31767 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 7052489 commit 35b6ccfc69077b4962427241935542a554629c63 moritz committed Jul 19, 2010
Showing with 0 additions and 9 deletions.
  1. +0 −4 S02-builtin_data_types/whatever.t
  2. +0 −3 S05-mass/recursive.t
  3. +0 −1 S12-attributes/instance.t
  4. +0 −1 integration/advent2009-day20.t
View
4 S02-builtin_data_types/whatever.t
@@ -42,7 +42,6 @@ isa_ok *.abs, WhateverCode, '... WhateverCode, more specifically';
# check that more complex expressions work:
-#?rakudo skip '* to code translation for multi-step expressions'
{
my $code = *.uc eq 'FOO';
ok $code ~~ Callable, '"*.uc eq $str" produces a Callable object';
@@ -93,7 +92,6 @@ isa_ok *.abs, WhateverCode, '... WhateverCode, more specifically';
is $c(-3, -5), 15, '... that takes two arguments';
}
-#?rakudo skip 'multiple * in an expression'
{
my $c = * * * + *;
ok $c ~~ Code, '* * * + * generated a closure';
@@ -155,7 +153,6 @@ is (0,0,0,0,0,0) >>+>> ((1,2) xx *), <1 2 1 2 1 2>, 'xx * works';
'* works on RHS of user-defined operator (result)';
is (* quack *).('a', 'b'), 'a|b',
'* works on both sides of user-defined operator (result)';
- #?rakudo 2 skip 'nested * currying NYI'
is ((* quack *) quack *).(1, 2, 3), '1|2|3',
'also with three *';
is ((* quack *) quack 'a').(2, 3), '2|3|a',
@@ -174,7 +171,6 @@ is (0,0,0,0,0,0) >>+>> ((1,2) xx *), <1 2 1 2 1 2>, 'xx * works';
}
# chains of methods
-#?rakudo skip 'chains of whatevers are NYI'
{
my $x = *.uc.flip;
ok $x ~~ Callable, 'we get a Callable from chained methods with *';
View
3 S05-mass/recursive.t
@@ -29,13 +29,11 @@ is $/.to, 0, 'to 0';
#?pugs emit exit;
ok "x" ~~ /<&r>$/, '"x" ~~ /<r>$/ matched';
-#?rakudo 3 skip 'match object oddness'
is $/, "x", 'with "x"';
is $/.from, 0, 'from 0';
is $/.to, 1, 'to 1';
ok "xx" ~~ /<&r>$/, '"xx" ~~ /<r>$/ matched';
-#?rakudo 3 skip 'match object oddness'
is $/, "xx", 'with "xx"';
is $/.from, 0, 'from 0';
is $/.to, 2, 'to 2';
@@ -45,7 +43,6 @@ is $/.to, 2, 'to 2';
my regex r2 { <?> | <&r2> x }
ok "x" ~~ /<&r2>$/, '"x" ~~ /<r2>$/ matched';
-#?rakudo 3 skip 'match object oddness'
is $/, "x", 'with "x"';
is $/.from, 0, 'from 0';
is $/.to, 1, 'to 1';
View
1 S12-attributes/instance.t
@@ -554,7 +554,6 @@ is Foo7e.new.attr, 42, "default attribute value (1)";
is $a.x, 42, 'binding to an attribute works';
}
-#?rakudo skip 'RT 73368'
{
class InitializationThunk {
has $.foo = my $x = 5;
View
1 integration/advent2009-day20.t
@@ -52,7 +52,6 @@ is @b, (@people.sort: { +.karma }), 'Sort explicitly numerically';
# TODO - need another test to explicitly test correct numerical sorting
isnt @b, (@people.sort: { ~.karma }), "Sort numerically is different to stringily";
-#?rakudo skip "Fails on current Rakudo"
{
is @b, (@people.sort: *.karma), 'Using a Whatever to sort numerically (be default)';
is (@people.min: { +.karma }), (@people.min: +*.karma), 'Explicit numeric comparison is equivalent to numeric comparison with a Whatever';

0 comments on commit 35b6ccf

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