use
Test::Effects;
plan
tests
=> 1;
effects_ok {
'stdout'
;
say
{
*STDERR
}
'stderr'
;
warn
'warning'
;
die
'died'
;
}
ONLY VERBOSE TIME {
stdout
=>
"stdout"
,
stderr
=>
qr{stderr\nwarning \s+ at}
x,
warn
=> [
qr{\A warning \s+ at}
x],
die
=>
qr{\A died \s+ at}
x,
}
=>
'ONLY VERBOSE TIME features work'
;