YANICK / Promises-0.95-TRIAL / t / 002-multiples.t 

            

              
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
64
65
66

              
#!perl
use strict;
use warnings;
use lib 't/lib';
use Test::Requires 'AnyEvent';
use Test::More;
use AnyEvent;
use AsyncUtil qw[ delay_me ];
BEGIN {
    use_ok('Promises');
}
my $cv0 = AnyEvent->condvar;
my $cv1 = AnyEvent->condvar;
my $p0 = delay_me( 0.1 );
my $p1 = delay_me( 0.2 );
$p1->then(
    sub { $cv1->send( 'ONE', @_, $p1->status, $p1->result ) },
    sub { $cv1->croak( 'ERROR' ) }
);
$p0->then(
    sub { $cv0->send( 'ZERO', @_, $p0->status, $p0->result ) },
    sub { $cv0->croak( 'ERROR' ) }
);
diag "Delaying for 0.1 second ...";
is( $p0->status, Promises::Deferred->IN_PROGRESS, '... got the right status in promise 0' );
is( $p1->status, Promises::Deferred->IN_PROGRESS, '... got the right status in promise 1' );
is_deeply(
    [ $cv0->recv ],
    [
        'ZERO',
        'resolved after 0.1',
        Promises::Deferred->RESOLVED,
        [ 'resolved after 0.1' ]
    ],
    '... got the expected values back'
);
diag "Delaying for 0.1 more second ...";
is_deeply(
    [ $cv1->recv ],
    [
        'ONE',
        'resolved after 0.2',
        Promises::Deferred->RESOLVED,
        [ 'resolved after 0.2' ]
    ],
    '... got the expected values back'
);
is( $p0->status, Promises::Deferred->RESOLVED, '... got the right status in promise 0' );
is( $p1->status, Promises::Deferred->RESOLVED, '... got the right status in promise 1' );
done_testing;