1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::FailWarnings -allow_deps => 1;
use Config;
if ($Config{'ccflags'} && $Config{'ccflags'} =~ m<DEBUGGING>) {
plan skip_all => 'DEBUGGING perls confuse Future::AsyncAwait (as of 0.59, at least).';
}
if ($^V ge v5.16.0 && $^V le v5.25.0) {
plan skip_all => "Future::AsyncAwait breaks on this perl ($^V). See https://rt.cpan.org/Public/Bug/Display.html?id=137723.";
}
use Promise::XS;
BEGIN {
for my $req ( qw( Future::AsyncAwait AnyEvent ) ) {
eval "require $req" or plan skip_all => 'No Future::AsyncAwait';
}
eval { Future::AsyncAwait->VERSION(0.47) } or do {
plan skip_all => "Future::AsyncAwait ($Future::AsyncAwait::VERSION) is too old.";
};
}
use Future::AsyncAwait future_class => 'Promise::XS::Promise';
sub delay {
my $secs = shift;
my $d = Promise::XS::deferred();
my $timer; $timer = AnyEvent->timer(
after => $secs,
cb => sub {
undef $timer;
$d->resolve($secs);
},
);
return $d->promise();
}
async sub thethings {
await delay(0.1);
return 5;
}
my $cv = AnyEvent->condvar();
thethings()->then($cv);
my ($got) = $cv->recv();
is $got, 5, 'expected resolution';
done_testing;
|
