t/022_parameterized_roles.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use FindBin;
   6 use lib "$FindBin::Bin/lib";
   7
   8 use Test::More;
   9 use Catalyst::Test 'TestApp';
  10
  11 is get('/param/greet'), 'foo:foo', 'parameterized role was consumed correctly';
  12 is get('/param/somebase/dynabase'), 'under somebase', 'dynamic base via parameter';
  13 is get('/param/somebase/somepart'), 'under somebase as somepart', 'dynamic base and path part via parameter';
  14 is get('/param/somebase/scoped'), 'scoped under somebase', 'dynamic base in under scope via parameter';
  15 is get('/param/somebase/somepart/deep'), 'somepart/deep under somebase', 'more complex strings';
  16 is get('/param/somebase/someaction'), 'someaction action', 'dynamic action name';
  17 is get('/param/somebase/actionalias'), 'someaction action', 'dynamic action name in method call';
  18 is get('/param/somebase/SOMEPART'), 'upper as SOMEPART under somebase', 'value prepared at runtime in role body';
  19 is get('/param/somebase/short/foo'), 'short foo', 'dynamic base in shortcut declaration';
  20
  21 done_testing;