Commit | Line | Data |
ed4a2203 |
1 | #!/usr/bin/env perl |
2 | use strict; |
3 | use warnings; |
4 | |
5 | no warnings 'redefine'; |
6 | |
7 | use FindBin; |
8 | use lib "$FindBin::Bin/lib"; |
9 | |
10 | use Test::More; |
11 | use Catalyst::Test 'TestApp'; |
12 | |
13 | |
14 | is get('/sigmatch/test/23'), 'signaturematching/int', 'integer argument dispatched correctly'; |
15 | is get('/sigmatch/test/foo'), 'signaturematching/str', 'string argument dispatched correctly'; |
16 | is get('/sigmatch/test/f00'), 'signaturematching/rest', 'no match leads to other dispatched action'; |
17 | |
18 | done_testing; |