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
|
#!/usr/bin/perl
# HARNESS-DURATION-MEDIUM
use Test2::V0;
use Time::HiRes qw/sleep/;
use Test2::Tools::AsyncSubtest;
ok(1, "pass");
my $astA = async_subtest 'ast A';
$astA->run(sub { ok(1, "ast A 1") });
subtest out => sub {
ok(1, "pass");
ok(1, "pass");
my $astB = async_subtest 'ast B';
$astB->run(sub { ok(1, "ast B 1") });
$astA->run(sub { ok(1, "ast A 2") });
$astB->finish;
subtest in => sub {
for (1 .. 10) {
ok(1, "pass $_");
sleep 0.1;
}
};
ok(1, "pass");
ok(1, "pass");
};
$astA->finish;
done_testing;
|
