Commit | Line | Data |
955d6da6 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use Catalyst::Test (); |
6 | |
7 | my $warn; |
8 | { |
9 | local $SIG{__WARN__} = sub { $warn = shift; }; |
10 | Catalyst::Test->import(); |
11 | } |
12 | ok $warn; |
13 | like $warn, qr/deprecated/; |
14 | |
15 | done_testing; |
16 | |