use warnings;
use strict;
use Test::More;
use Test::Exception;
use Async::Defer;
plan tests => 2;
my ($d);
my (@result);
# while
# - require CODE in first param
# - receive $d in first param with correct $d->iter()
# end_while
$d = Async::Defer->new();
throws_ok { $d->while() } qr/require CODE/;
$d = Async::Defer->new();
$d->while(sub{ my $i = $_[0]->iter(); push @result, $i; $i < 3 });
$d->do(sub{
    my ($d) = @_;
    push @result, $d->iter()*10;
    $d->done();
});
$d->end_while();
@result = (); $d->run();
is_deeply \@result, [1,10,2,20,3], 'receive $d in first param with correct $d->iter()';