#!perl
use strict;
use warnings;
use Test::More;
use Promises 'deferred';
my $run = 0;
my $d = deferred;
$d->then( sub { $run++ });
$d->resolve;
is($run, 1, '... run synchronously');
done_testing;
#!perl
use strict;
use warnings;
use Test::More;
use Promises 'deferred';
my $run = 0;
my $d = deferred;
$d->then( sub { $run++ });
$d->resolve;
is($run, 1, '... run synchronously');
done_testing;