disable test which should be using tap_ok Test::Tap

integration/advent2013-day19.t

@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 10;
+plan 4;
 
 #?rakudo.parrot skip 'no implementation of supply'
 {
@@ -45,41 +45,20 @@ plan 10;
 #?rakudo.parrot skip 'no implementation of supply'
 #?rakudo.moar skip 'Supply.interval on moar'
 {
-    my $n_batches = 0;
-    my $batches_intact = True;
-
     my $belt_raw = Supply.interval(.1).map({ rand xx 20 });
     my $belt_avg = $belt_raw.map(sub (@values) {
-	$n_batches++;
-	$batches_intact = False
-	    unless @values == 20;
 	([+] @values) / @values
     });
 
     my $belt_labeled = $belt_avg.map({ Belt => $_ });
     my $samples = Supply.interval(.5).map({ rand });
     my $samples_labeled = $samples.map({ Sample =>  $_});
     my $merged = $belt_labeled.merge($samples_labeled);
-
-    my $all_numeric = True;
-    my %seen;
-
-    $merged.tap({ 
-	%seen{.key}{.value}++;
-	$all_numeric = False
-	    unless .value.isa('Num');
-    });
-    sleep 5;
+## todo: use Test::Tap tap_ok
+##    $merged.tap(&say);
 
     $belt_raw.done;
     $samples.done;
-
-    ok $n_batches, '@values';
-    ok $batches_intact, '@values';
-    is_deeply %seen.keys.sort, qw<Belt Sample>, 'merge results';
-    ok $all_numeric, 'merge results';
-    ok +%seen<Sample> >= 3, 'multiple samples';
-    ok +%seen<Belt> >= +%seen<Sample>, 'more belts than samples';
 }