Commit | Line | Data |
---|---|---|
75e2d0c5 | 1 | use strict; |
2 | use warnings; | |
3 | use Test::More; | |
4 | use FindBin; | |
5 | use lib "$FindBin::Bin/../lib"; | |
6 | use TestApp; | |
7 | use Catalyst::Test (); | |
8 | ||
9 | { | |
10 | like do { | |
11 | my $warning; | |
12 | local $SIG{__WARN__} = sub { $warning = $_[0] }; | |
13 | isa_ok Catalyst::Test::local_request('TestApp', '/'), 'HTTP::Response'; | |
14 | $warning; | |
15 | }, qr/deprecated/, 'local_request is deprecated'; | |
16 | } | |
17 | ||
18 | done_testing; |