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