[catagits/CatalystX-Declare.git] / t / 020_controller_roles.t

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

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

use Test::More;

use aliased 'TestApp::TestRole';

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

ok $meta->has_method('something_from_the_role'), 'method is available in role';
ok $meta->has_method('action_from_ctrl_role'), 'action method is available in role';

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::TestRole';
	11
	12	ok +(my $meta = TestRole->meta), 'controller role has meta';
	13
	14	ok $meta->has_method('something_from_the_role'), 'method is available in role';
	15	ok $meta->has_method('action_from_ctrl_role'), 'action method is available in role';
	16
	17	done_testing;