[Test::Ix] eagerified a gather without take

Using a dummy array as a target, we can cause the gather block to run. Since the gather block has no 'take' in it, the dummy array will be empty.
masak · Jul 27, 2013 · 6bd97ca · 6bd97ca
1 parent dded146
commit 6bd97ca
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/lib/Test/Ix.pm b/lib/Test/Ix.pm
@@ -76,12 +76,12 @@ sub first-index(Code $cond, @array) {
     return ();
 }
 
-sub count-tests(@tests) {
+our sub count-tests(@tests) {
     return +traverse-tests(@tests, { take $_ });
 }
 
-sub run-tests(@tests) {
-    my &run-test = {
+our sub run-tests(@tests) {
+    my &runtest = {
         my $subname = $_.subst(' ', '-', :global);
         my $sub = eval( '&' ~ $subname );
         if $sub ~~ Nil {
@@ -95,5 +95,6 @@ sub run-tests(@tests) {
         eval('&after') ~~ Sub
             and after();
     };
-    traverse-tests(@tests, &run-test);
+    # RAKUDO: When we have sink context, we don't need @sink here.
+    my @sink = traverse-tests(@tests, &runtest);
 }