Commit | Line | Data |
75f37967 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More tests => 2; |
4 | |
5 | use Catalyst::Controller; |
6 | my $NEW_CALLED; |
7 | BEGIN { |
8 | $NEW_CALLED = 0; |
9 | { no warnings; |
10 | sub Catalyst::Controller::new { |
11 | $NEW_CALLED = 1; |
c9c41e4d |
12 | return shift->next::method(@_); |
75f37967 |
13 | } |
14 | } |
15 | } |
16 | |
17 | BEGIN { is $NEW_CALLED, 0, 'new not called yet' } |
18 | |
19 | use FindBin qw($Bin); |
20 | use lib "$Bin/lib"; |
21 | use Catalyst::Test qw(TestApp); |
22 | |
23 | is $NEW_CALLED, '1', 'Catalyst::Controller::new does get called'; |
24 | |
25 | 1; |
26 | |