t/aggregate/unit_dispatcher_chained_action.t

   1 use strict;
   2 use warnings;
   3 use FindBin qw/$Bin/;
   4 use lib "$Bin/../lib";
   5 use Catalyst::Test 'ChainedActionsApp';
   6 use Test::More;
   7
   8 content_like('/', qr/Application Home Page/, 'Application home');
   9 content_like('/15/GoldFinger', qr/List project GoldFinger pages/, 'GoldFinger Project Index');
  10 content_like('/15/GoldFinger/4/007', qr/This is 007 page of GoldFinger project/, '007 page in GoldFinger Project');
  11 content_like('/account', qr/New account o login/, 'no account');
  12 content_like('/account/ferz', qr/This is account ferz/, 'account');
  13 content_like('/account/123', qr/This is account 123/, 'account');
  14 action_notfound('/c');
  15
  16 done_testing;
  17