t/aggregate/deprecated_test_unimported.t

   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;