#!perl
use
strict;
use
warnings;
use
FindBin;
use_ok(
'Catalyst::Test'
,
'TestApp'
);
my
$response
= request(
'/test?view=Appconfig'
);
ok(
$response
->is_success,
'request ok'
);
is(
$response
->content, TestApp->config->{default_message},
'message ok'
);
$response
= request(
'/test?view=Extension'
);
ok(
$response
->is_success,
'request ok'
);
is(
$response
->content,
'template extension'
,
'used template extension'
);