Commit | Line | Data |
9e981d5f |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use FindBin; |
5 | use lib "$FindBin::Bin/../lib"; |
6 | |
7 | use Test::More; |
8 | use Catalyst::Test 'TestAppMVCWarnings'; |
9 | |
10 | if ( $ENV{CATALYST_SERVER} ) { |
11 | plan skip_all => 'Using remote server'; |
12 | } |
13 | |
14 | { |
15 | ok( request('http://localhost/view'), 'Request' ); |
16 | like($TestAppMVCWarnings::log_messages[0], qr/Calling \$c->view\(\) is not supported/s, 'View failure warning received'); |
17 | |
18 | @TestAppMVCWarnings::log_messages = (); |
19 | |
20 | ok( request('http://localhost/model'), 'Request' ); |
21 | like($TestAppMVCWarnings::log_messages[0], qr/Calling \$c->model\(\) is not supported/s, 'Model failure warning received'); |
22 | } |
23 | |
24 | done_testing; |
25 | |