xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/Event/Waiting.t (revision 5759b3d249badf144a6240f7eec4dcf9df003e6b)
1use strict;
2use warnings;
3
4use Test2::Tools::Tiny;
5use Test2::Event::Waiting;
6
7my $waiting = Test2::Event::Waiting->new(
8    trace => {},
9);
10
11ok($waiting, "Created event");
12ok($waiting->global, "waiting is global");
13
14is($waiting->summary, "IPC is waiting for children to finish...", "Got summary");
15
16my $facet_data = $waiting->facet_data;
17ok($facet_data->{about}, "Got common facet data");
18
19is_deeply(
20    $facet_data->{info},
21    [
22        {
23            tag     => 'INFO',
24            debug   => 0,
25            details => "IPC is waiting for children to finish...",
26        },
27    ],
28    "Got added info facet"
29);
30
31done_testing;
32