1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
use strict; use warnings; use Test::Simple tests => 1; use Test::Stream::Tester; events_are ( intercept { ok(1, "Pass"); ok(0, "Fail"); }, check { event ok => { bool => 1, name => 'Pass', diag => '', }; event ok => { bool => 0, name => 'Fail', diag => qr/Failed test 'Fail'/, }; }, );