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
|
use Test2::Bundle::Extended -target => 'Test2::Util::Grabber';
use Test2::Tools::Grab;
ok(1, "initializing");
my $grab = grab();
ok(1, "pass");
my $one = $grab->events;
ok(0, "fail");
my $events = $grab->finish;
is(@$one, 1, "Captured 1 event");
is(@$events, 3, "Captured 3 events");
like(
$one,
array {
event Ok => { pass => 1 };
},
"Got expected event"
);
like(
$events,
array {
event Ok => { pass => 1 };
event Ok => { pass => 0 };
event Diag => { };
end;
},
"Got expected events"
);
done_testing;
|
