t/aggregate/live_mvc_warnings.t

   1 use strict;
   2 use warnings;
   3
   4 use FindBin;
   5 use lib "$FindBin::Bin/../lib";
   6
   7 use Test::More;
   8 use Catalyst::Test 'TestAppMVCWarnings';
   9
  10 if ( $ENV{CATALYST_SERVER} ) {
  11     plan skip_all => 'Using remote server';
  12 }
  13
  14 {
  15     ok( request('http://localhost/view'), 'Request' );
  16     like($TestAppMVCWarnings::log_messages[0], qr/Calling \$c->view\(\) is not supported/s, 'View failure warning received');
  17
  18     @TestAppMVCWarnings::log_messages = ();
  19
  20     ok( request('http://localhost/model'), 'Request' );
  21     like($TestAppMVCWarnings::log_messages[0], qr/Calling \$c->model\(\) is not supported/s, 'Model failure warning received');
  22 }
  23
  24 done_testing;
  25