Commit | Line | Data |
8cc672a2 |
1 | #!perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use FindBin; |
7 | use lib "$FindBin::Bin/lib"; |
8 | |
9 | use Test::More tests => 4; |
10 | use Catalyst::Test 'TestApp'; |
11 | |
12 | # test ignoring extensions |
13 | # default is tt/html/xhtml |
14 | |
15 | ok( my $res = request('http://localhost/ignored/tmpl.tt'), 'request ok' ); |
16 | is( $res->content, 'default', 'ignored extension tt ok' ); |
17 | |
18 | ok( $res = request('http://localhost/ignored/index.html'), 'request ok' ); |
19 | is( $res->content, 'default', 'ignored extension html ok' ); |