1
0
Fork 0
apache2/debian/perl-framework/t/modules/asis.t
Daniel Baumann f56986e2d9
Adding debian version 2.4.63-1.
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
2025-06-22 11:01:27 +02:00

21 lines
458 B
Perl

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");