Commit | Line | Data |
---|---|---|
7b1b8afd | 1 | use strict; |
2 | use warnings; | |
3 | use FindBin qw/$Bin/; | |
4 | use lib "$Bin/../lib"; | |
5 | use Test::More; | |
6 | use Catalyst::Test 'ESITest'; | |
7 | ||
8 | my $res_content = get('/http_cpan'); | |
9 | like $res_content, qr{CPAN Directory}; | |
10 | like $res_content, qr{WREIS}; | |
11 | ||
12 | $res_content = get('/http_github'); | |
13 | like $res_content, qr{GitHub}; | |
14 | like $res_content, qr{Wallace Reis}; | |
15 | ||
16 | done_testing; |