t/isa.t

   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