test.pl6

use v6;
use Test;

my $input = ("a" x 1000000).encode;

for 1..100 {
    my $proc = run «cat -», :in, :out, :bin;

    my $promise = start {
        $proc.in.write($input);
        $proc.in.close;
    }

    my $total;
    $proc.out.Supply.tap({ $total += .bytes });
    await $promise;

    $proc.out.close;

    ok $total == $input.bytes;
}

$ perl6 test.pl6
ok 1 -
ok 2 -
ok 3 -
not ok 4 -

# Failed test at bar.pl6 line 21
ok 5 -
ok 6 -
ok 7 -
ok 8 -
ok 9 -
ok 10 -
not ok 11 -

# Failed test at bar.pl6 line 21
ok 12 -
ok 13 -
ok 14 -
ok 15 -
ok 16 -
ok 17 -
not ok 18 -

# Failed test at bar.pl6 line 21
ok 19 -
ok 20 -
ok 21 -
ok 22 -
ok 23 -
ok 24 -
ok 25 -
ok 26 -
ok 27 -
ok 28 -
not ok 29 -

# Failed test at bar.pl6 line 21
ok 30 -
ok 31 -
ok 32 -
ok 33 -
ok 34 -
ok 35 -
ok 36 -
ok 37 -
ok 38 -
ok 39 -
ok 40 -
ok 41 -
ok 42 -
not ok 43 -

# Failed test at bar.pl6 line 21
not ok 44 -

# Failed test at bar.pl6 line 21
ok 45 -
ok 46 -
ok 47 -
not ok 48 -

# Failed test at bar.pl6 line 21
ok 49 -
ok 50 -
ok 51 -
ok 52 -
ok 53 -
ok 54 -
ok 55 -
ok 56 -
ok 57 -
ok 58 -
ok 59 -
ok 60 -
ok 61 -
ok 62 -
ok 63 -
ok 64 -
ok 65 -
ok 66 -
ok 67 -
ok 68 -
not ok 69 -

# Failed test at bar.pl6 line 21
ok 70 -
ok 71 -
ok 72 -
not ok 73 -

# Failed test at bar.pl6 line 21
ok 74 -
not ok 75 -

# Failed test at bar.pl6 line 21
ok 76 -
ok 77 -
ok 78 -
not ok 79 -

# Failed test at bar.pl6 line 21
ok 80 -
ok 81 -
not ok 82 -

# Failed test at bar.pl6 line 21
not ok 83 -

# Failed test at bar.pl6 line 21
ok 84 -
ok 85 -
not ok 86 -

# Failed test at bar.pl6 line 21
ok 87 -
ok 88 -
ok 89 -
ok 90 -
ok 91 -
ok 92 -
not ok 93 -

# Failed test at bar.pl6 line 21
ok 94 -
ok 95 -
ok 96 -
not ok 97 -

# Failed test at bar.pl6 line 21
ok 98 -
ok 99 -
not ok 100 -

# Failed test at bar.pl6 line 21