Commit | Line | Data |
4d723d12 |
1 | #!perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use FindBin; |
7 | use lib "$FindBin::Bin/../lib"; |
8 | |
9 | use Test::More; |
10 | use Catalyst::Test 'TestAppViewWarnings'; |
11 | |
12 | if ( $ENV{CATALYST_SERVER} ) { |
13 | plan skip_all => 'Using remote server'; |
14 | } |
15 | |
16 | { |
17 | ok( my $response = request('http://localhost/'), 'Request' ); |
98de08f6 |
18 | |
19 | # FIXME: does this warning really need to be like that? |
4d723d12 |
20 | like($TestAppViewWarnings::log_messages[0], qr/Attempted to use view/s, 'View failure warning received'); |
21 | |
22 | } |
23 | |
24 | done_testing; |
25 | |