#!perl

use strict;
use warnings;

use Test::More tests => 3;

use Promises qw/ resolved rejected collect /;

my $resolved = resolved( 1..3 )->then(
    sub { is_deeply \@_, [1..3], 'resolved' },
    sub { fail 'resolved' },
);

my $rejected = rejected( 4..6 )->then(
    sub { fail 'rejected' },
    sub { is_deeply \@_, [4..6], 'rejected' },
);

collect( $resolved, $rejected )->finally(sub{
    pass 'all done';
});

done_testing;