Commit | Line | Data |
74c89dea |
1 | use strict; |
2 | use warnings; |
2664a81b |
3 | use FindBin qw/$Bin/; |
4 | use lib "$Bin/lib"; |
5 | use Test::More tests => 2; |
74c89dea |
6 | use Test::Exception; |
7 | use Carp (); |
74c89dea |
8 | |
9 | # Doing various silly things, like for example |
2664a81b |
10 | # use CGI qw/:standard/ in your conrtoller / app |
74c89dea |
11 | # will overwrite your meta method, therefore Catalyst |
12 | # can't depend on it being there correctly. |
13 | |
14 | # This is/was demonstrated by Catalyst::Controller::WrapCGI |
15 | # and Catalyst::Plugin::Cache::Curried |
16 | |
17 | { |
18 | package TestAppWithMeta; |
19 | use Catalyst; |
02570318 |
20 | no warnings 'redefine'; |
74c89dea |
21 | sub meta {} |
22 | } |
2664a81b |
23 | BEGIN { |
24 | lives_ok { TestAppWithMeta->setup } 'Can setup an app which defines its own meta method'; |
25 | } |
26 | |
27 | use Catalyst::Test 'TestAppWithMeta'; |
28 | |
29 | ok( request('/')->is_success ); |
74c89dea |
30 | |