Commit | Line | Data |
---|---|---|
fe864e80 | 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('/under_seq/foo'), 'foo', 'basic action'; | |
12 | is get('/under_seq/bar/test_bar'), 'bar', 'first action in under scope'; | |
13 | is get('/under_seq/baz/test_baz'), 'baz', 'following base and under scope'; | |
14 | ||
15 | done_testing; | |
16 | ||
17 |