summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/t/modules/asis.t
blob: a8c300e665956d6445d34a821d3098ff43b34587 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
use strict;
use warnings FATAL => 'all';

use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil;

## 
## mod_asis tests
##

plan tests => 3, need_module 'asis';

my $body = GET_BODY "/modules/asis/foo.asis";
ok t_cmp($body, "This is asis content.\n", "asis content OK");

my $rc = GET_RC "/modules/asis/notfound.asis";
ok t_cmp($rc, 404, "asis gave 404 error");

$rc = GET_RC "/modules/asis/forbid.asis";
ok t_cmp($rc, 403, "asis gave 403 error");