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; | |
12 | return shift->NEXT::new(@_); | |
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 |