Permalink
Fetching contributors…
Cannot retrieve contributors at this time
29 lines (20 sloc) 510 Bytes
use strict;
use warnings;
use Test::More;
{
package T;
use Ark;
package T::Controller::Root;
use Ark 'Controller';
has '+namespace' => default => '';
sub index :Path {
my ($self, $c) = @_;
die;
}
}
use Ark::Test 'T', components => [qw/Controller::Root/];
my ($res, $c) = ctx_request(GET => '/');
is($res->code, 500, '500 ok');
is($res->content, 'Internal Server Error', 'error content ok');
like($c->error->[-1], qr/^Died at/, 'error msg ok');
done_testing;