[catagits/CatalystX-Declare.git] / t / 030_controllers.t

#!/usr/bin/env perl
use strict;
use warnings;

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

use Test::More;

use aliased 'TestApp::Controller::TestController';

ok +(my $meta = TestController->meta), 'controller has meta';

ok $meta->has_method('ctrl_method'), 'method is available in controller';
ok $meta->has_method('ctrl_action'), 'action method is available in controller';

done_testing;
Commit	Line	Data
744e2821	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4
	5	use FindBin;
	6	use lib "$FindBin::Bin/lib";
	7
	8	use Test::More;
	9
	10	use aliased 'TestApp::Controller::TestController';
	11
	12	ok +(my $meta = TestController->meta), 'controller has meta';
	13
	14	ok $meta->has_method('ctrl_method'), 'method is available in controller';
	15	ok $meta->has_method('ctrl_action'), 'action method is available in controller';
	16
	17	done_testing;