7 use lib "$FindBin::Bin/lib";
9 use Test::More tests => 3;
14 my $dispatch_type = TestApp->dispatcher->dispatch_type('Chained');
15 isa_ok($dispatch_type, "Catalyst::DispatchType::Chained", "got dispatch type");
17 # This test was failing due to recursion/OOM. set up an alarm so things dont
19 local $SIG{ALRM} = sub {
20 ok(0, "Chained->list didn't loop");
21 die "alarm expired - test probably looping";
25 $dispatch_type->list("TestApp");
26 ok(1, "Chained->list didn't loop");