Skip to content

Commit

Permalink
Untodo hyper/race tests passing with new impl
Browse files Browse the repository at this point in the history
  • Loading branch information
jnthn committed Oct 17, 2017
1 parent c953555 commit bba5083
Show file tree
Hide file tree
Showing 3 changed files with 0 additions and 8 deletions.
1 change: 0 additions & 1 deletion S03-metaops/eager-hyper.t
Expand Up @@ -35,7 +35,6 @@ plan 8;
{
my $counter = 0;
my $test := hyper gather { for 1 .. 5 { $counter++; take $_; } }
#?rakudo todo "hyper NYI entirely, I guess RT #124517"
is($test.sort.values, <1 2 3 4 5>, 'hyper returned all the values in some order');
is($counter, 5, 'iterator was hyper and calculated all the values');
}
Expand Down
4 changes: 0 additions & 4 deletions S07-hyperrace/hyper.t
Expand Up @@ -19,19 +19,16 @@ plan 13;
is @result, <AA BB CC DD EE FF GG>, "two-stage map over some strings";
}

#?rakudo todo 'hyper and race cause lists to become empty RT #126597'
{
my @result = (50..100).list.hyper.grep({ $_ %% 10 });
is @result, (50, 60, 70, 80, 90, 100), "hyper + grep";
}

#?rakudo todo 'hyper and race cause lists to become empty RT #126597'
{
my @result = (^100).list.hyper.grep({ $_.is-prime }).map({ $_ * $_ });
is @result, (4, 9, 25, 49, 121, 169, 289, 361, 529, 841, 961, 1369, 1681, 1849, 2209, 2809, 3481, 3721, 4489, 5041, 5329, 6241, 6889, 7921, 9409), "hyper + grep + map";
}

#?rakudo.moar todo 'hyper and race cause lists to become empty RT #126597'
#?rakudo.jvm skip 'hangs'
{
# hyper + map done in reverse
Expand Down Expand Up @@ -61,7 +58,6 @@ plan 13;
is @result, (1, 2, 3, 4, 5), "test that hyper + map done in reverse returns values in the right order";
}

#?rakudo todo 'hyper and race cause lists to become empty RT #126597'
{
# hyper + grep done in reverse

Expand Down
3 changes: 0 additions & 3 deletions S07-hyperrace/race.t
Expand Up @@ -19,13 +19,11 @@ plan 12;
is @result.sort, <AA BB CC DD EE FF GG>, "two-stage map over some strings";
}

#?rakudo todo 'hyper and race cause lists to become empty RT #126597'
{
my @result = (50..100).list.race.grep({ $_ %% 10 });
is @result.sort, (50, 60, 70, 80, 90, 100), "race + grep";
}

#?rakudo todo 'hyper and race cause lists to become empty RT #126597'
{
my @result = (^100).list.race.grep({ $_.is-prime }).map({ $_ * $_ });
is @result.sort, (4, 9, 25, 49, 121, 169, 289, 361, 529, 841, 961, 1369, 1681, 1849, 2209, 2809, 3481, 3721, 4489, 5041, 5329, 6241, 6889, 7921, 9409), "race + grep + map";
Expand Down Expand Up @@ -60,7 +58,6 @@ plan 12;
is @result.sort(), (1, 2, 3, 4, 5), "test that race + map in reverse returns correct values";
}

#?rakudo todo 'hyper and race cause lists to become empty RT #126597'
{
# race + grep done in reverse

Expand Down

0 comments on commit bba5083

Please sign in to comment.