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

#!perl

use strict;
use warnings;
no warnings 'once';

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