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
|
use Test2::Bundle::Extended;
use Test2::Tools::Spec qw/:ALL/;
use Test2::Util qw/get_tid/;
sub get_ids {
return {
pid => $$,
tid => get_tid(),
};
}
my $orig = get_ids();
spec_defaults case => (iso => 1, async => 1);
spec_defaults tests => (iso => 1, async => 1);
tests outside => sub {
isnt(get_ids(), $orig, "In child (lexical)");
};
describe wrapper => sub {
case foo => sub {
isnt(get_ids(), $orig, "In child (inherited)")
};
case 'bar', {iso => 0, async => 0} => sub {
is(get_ids(), $orig, "In orig (overridden)")
};
tests a => sub { ok(1, 'stub') };
tests b => sub { ok(1, 'stub') };
my $x = describe nested => sub {
tests nested_t => sub { ok(0, 'Should not see this') };
};
tests nested => sub {
ok(!$x->primary->[0]->iso, "Did not inherit when captured");
ok(!$x->primary->[0]->async, "Did not inherit when captured");
};
};
done_testing;
|
