Commit | Line | Data |
c2a8165b |
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 | |
2387a55a |
11 | is get('/param/greet'), 'foo:foo', 'parameterized role was consumed correctly'; |
8d66ec34 |
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'; |
3601c77d |
15 | is get('/param/somebase/somepart/deep'), 'somepart/deep under somebase', 'more complex strings'; |
dd2759b0 |
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'; |
1754e3e7 |
18 | is get('/param/somebase/SOMEPART'), 'upper as SOMEPART under somebase', 'value prepared at runtime in role body'; |
56929b96 |
19 | is get('/param/somebase/short/foo'), 'short foo', 'dynamic base in shortcut declaration'; |
c2a8165b |
20 | |
21 | done_testing; |