t/aggregate/deprecated_test_import.t

   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