Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 29 lines (20 sloc) 0.51 kB
a4c697c @Songmu add use strict; use warnings; with Test::More
Songmu authored
1 use strict;
2 use warnings;
5fee39b @Songmu Test::Base is not need any more.
Songmu authored
3 use Test::More;
a52802b @typester added 500 test
authored
4
5
6 {
7 package T;
8 use Ark;
9
10 package T::Controller::Root;
11 use Ark 'Controller';
12
13 has '+namespace' => default => '';
14
15 sub index :Path {
16 my ($self, $c) = @_;
17 die;
18 }
19 }
20
21 use Ark::Test 'T', components => [qw/Controller::Root/];
22
23 my ($res, $c) = ctx_request(GET => '/');
24 is($res->code, 500, '500 ok');
25 is($res->content, 'Internal Server Error', 'error content ok');
26 like($c->error->[-1], qr/^Died at/, 'error msg ok');
27
5fee39b @Songmu Test::Base is not need any more.
Songmu authored
28 done_testing;
Something went wrong with that request. Please try again.