File: isa.t

package info (click to toggle)
libcatalyst-action-rest-perl 1.21-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 476 kB
  • sloc: perl: 1,750; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 397 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
use strict;
use warnings;

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

use Test::More;

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'));

done_testing;