[catagits/Catalyst-Action-REST.git] / t / isa.t

use strict;
use warnings;

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

use Test::More tests => 5;

use Test::Catalyst::Action::REST;

my $controller = Test::Catalyst::Action::REST->controller('Root');
ok $controller;

my $action = $controller->action_for('test');
ok $action;

isa_ok($action, 'Catalyst::Action::REST');
ok(!$action->isa('Catalyst'));
ok(!$action->isa('Catalyst::Controller'));
Commit	Line	Data
102106be	1	use strict;
	2	use warnings;
	3
	4	use FindBin qw/$Bin/;
	5	use lib "$Bin/lib";
	6
	7	use Test::More tests => 5;
	8
	9	use Test::Catalyst::Action::REST;
	10
	11	my $controller = Test::Catalyst::Action::REST->controller('Root');
	12	ok $controller;
	13
	14	my $action = $controller->action_for('test');
	15	ok $action;
	16
	17	isa_ok($action, 'Catalyst::Action::REST');
	18	ok(!$action->isa('Catalyst'));
	19	ok(!$action->isa('Catalyst::Controller'));
	20