From bba5083af5062e9dbac8f30bc4775fd2683cb11b Mon Sep 17 00:00:00 2001 From: Jonathan Worthington Date: Tue, 17 Oct 2017 11:28:33 +0200 Subject: [PATCH] Untodo hyper/race tests passing with new impl --- S03-metaops/eager-hyper.t | 1 - S07-hyperrace/hyper.t | 4 ---- S07-hyperrace/race.t | 3 --- 3 files changed, 8 deletions(-) diff --git a/S03-metaops/eager-hyper.t b/S03-metaops/eager-hyper.t index d88a51f14b..81b82443be 100644 --- a/S03-metaops/eager-hyper.t +++ b/S03-metaops/eager-hyper.t @@ -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'); } diff --git a/S07-hyperrace/hyper.t b/S07-hyperrace/hyper.t index b1effc691e..4ba5888cd1 100644 --- a/S07-hyperrace/hyper.t +++ b/S07-hyperrace/hyper.t @@ -19,19 +19,16 @@ plan 13; is @result, , "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 @@ -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 diff --git a/S07-hyperrace/race.t b/S07-hyperrace/race.t index 30af58a74b..c05d9a0b3c 100644 --- a/S07-hyperrace/race.t +++ b/S07-hyperrace/race.t @@ -19,13 +19,11 @@ plan 12; is @result.sort, , "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"; @@ -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