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