[catagits/Catalyst-Runtime.git] / t / aggregate / live_view_warnings.t

#!perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Test::More;
use Catalyst::Test 'TestAppViewWarnings';

if ( $ENV{CATALYST_SERVER} ) {
    plan skip_all => 'Using remote server';
}

{
    ok( my $response = request('http://localhost/'), 'Request' );
    like($TestAppViewWarnings::log_messages[0], qr/Attempted to use view/s, 'View failure warning received');

}

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