Help language development. Donate to The Perl Foundation

Log::Async cpan:BDUGGAN last updated on 2022-03-14

t/06-sleep.t
use v6;
use Test;
use lib 'lib';
use Log::Async;

plan 2;

my $message;
logger.add-tap({ sleep 1; $message = $^m<msg> });

info 'hi';
ok !$message, 'no message yet';
sleep 2;
is $message, 'hi', 'now there is a message';