[catagits/Catalyst-Runtime.git] / t / deprecated_appclass_action_warnings.t

use strict;
use warnings;

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

use Test::More;
use Catalyst::Test 'DeprecatedActionsInAppClassTestApp';

plan tests => 3;

my $warnings;
my $logger = DeprecatedActionsInAppClassTestApp::Log->new;
Catalyst->log($logger);

ok( my $response = request('http://localhost/foo'), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $DeprecatedActionsInAppClassTestApp::Log::warnings, 1, 'Get the appclass action warning' );
Commit	Line	Data
fe3e42c3	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 'DeprecatedActionsInAppClassTestApp';
	9
5ec24151	10	plan tests => 3;
	11
	12	my $warnings;
	13	my $logger = DeprecatedActionsInAppClassTestApp::Log->new;
	14	Catalyst->log($logger);
fe3e42c3	15
	16	ok( my $response = request('http://localhost/foo'), 'Request' );
	17	ok( $response->is_success, 'Response Successful 2xx' );
88e5a8b0	18	is( $DeprecatedActionsInAppClassTestApp::Log::warnings, 1, 'Get the appclass action warning' );