t/aggregate/live_view_warnings.t

   1 use strict;
   2 use warnings;
   3 no warnings 'once';
   4
   5 use FindBin;
   6 use lib "$FindBin::Bin/../lib";
   7
   8 use Test::More;
   9 use Catalyst::Test 'TestAppViewWarnings';
  10
  11 if ( $ENV{CATALYST_SERVER} ) {
  12     plan skip_all => 'Using remote server';
  13 }
  14
  15 {
  16     ok( my $response = request('http://localhost/'), 'Request' );
  17     like($TestAppViewWarnings::log_messages[0], qr/Attempted to use view/s, 'View failure warning received');
  18
  19 }
  20
  21 done_testing;
  22