grab.t

use v6;
use lib 't/spec/packages';

use Test;
use Test::Tap;

plan 5;

dies_ok { Supply.grab }, 'can not be called as a class method';

for ThreadPoolScheduler.new, CurrentThreadScheduler -> $*SCHEDULER {
    diag "**** scheduling with {$*SCHEDULER.WHAT.perl}";

    tap_ok Supply.from-list(1..10).grab( {.reverse} ), [10...1], "we can reverse";
    tap_ok Supply.from-list(1..10).grab( {[min] $_} ), [1], "we can find the min";
}