use
strict;
use
warnings;
use
Test::More;
use
FindBin;
use
Plack::Test;
use
Plack::Builder;
my
$handler
= builder {
enable
"Magpie"
,
context
=> {},
pipeline
=> [
'Core::Output::StepOne'
,
'Core::Output::StepTwo'
,
'Core::Basic::Output'
,
];
};
test_psgi
app
=>
$handler
,
client
=>
sub
{
my
$cb
=
shift
;
{
like
$res
->content,
qr/output::StepOne::event_init/
;
unlike
$res
->content,
qr/output::StepOne::event_first/
;
unlike
$res
->content,
qr/output::StepTwo::event_init/
;
unlike
$res
->content,
qr/output::StepTwo::event_first/
;
}
};
done_testing();