Commit | Line | Data |
---|---|---|
7358a033 JK |
1 | use strict; |
2 | use warnings; | |
3 | ||
4 | use Test2::Tools::Tiny; | |
5 | use Test2::API qw/intercept/; | |
6 | use Test::More (); | |
7 | ||
8 | my $events = intercept { | |
9 | Test::More::ok(0, 'name'); | |
10 | }; | |
11 | ||
12 | my ($ok, $diag) = @$events; | |
13 | ||
14 | ok($ok->isa('Test2::Event::Ok'), "got 'ok' result"); | |
15 | is($ok->pass, 0, "'ok' test failed"); | |
16 | is($ok->name, 'name', "got 'ok' name"); | |
17 | ||
18 | ok($diag->isa('Test2::Event::Diag'), "got 'ok' result"); | |
19 | is($diag->message, " Failed test 'name'\n at $0 line 9.\n", "got all diag message in one diag event"); | |
20 | ||
21 | done_testing; |