earliest-more.p6

use Test;
for 1,1,2,2 -> $num, $value {
  say "top for loop " ~  "value($value) from channel is num($num)";
  my $c = Channel.new;
  my $p = start { $c.send($value) };
  my $r = start {
    await $p;
    $c.close;
  };
  loop {
    say "top loop " ~  "value($value) from channel is num($num)";
    earliest $c {
      more * {
        say "top more " ~  "value($value) from channel is num($num)";
        is $_, $num, "value($value) from channel is num($num)";
      }
      done * { last }
    }
  }
  await $r;
}
done-testing;

output.txt

top for loop value(1) from channel is num(1)
top loop value(1) from channel is num(1)
top more value(1) from channel is num(1)
ok 1 - value(1) from channel is num(1)
top loop value(1) from channel is num(1)
top for loop value(2) from channel is num(2)
top loop value(2) from channel is num(2)
top more value(1) from channel is num(1)
not ok 2 - value(1) from channel is num(1)

# Failed test 'value(1) from channel is num(1)'
# at huh.p6 line 15
# expected: '1'
#      got: '2'
top loop value(2) from channel is num(2)
1..2
# Looks like you failed 1 test of 2