Commit | Line | Data |
---|---|---|
9c74923d | 1 | use strict; |
2 | use warnings; | |
acbecf08 | 3 | no warnings 'once'; |
9c74923d | 4 | |
5 | use FindBin; | |
6 | use lib "$FindBin::Bin/../lib"; | |
7 | ||
8 | use Test::More; | |
9 | use Catalyst::Test 'TestAppViewWarnings'; | |
10 | ||
11 | if ( $ENV{CATALYST_SERVER} ) { | |
12 | plan skip_all => 'Using remote server'; | |
13 | } | |
14 | ||
15 | { | |
16 | ok( my $response = request('http://localhost/'), 'Request' ); | |
17 | like($TestAppViewWarnings::log_messages[0], qr/Attempted to use view/s, 'View failure warning received'); | |
18 | ||
19 | } | |
20 | ||
21 | done_testing; | |
22 |