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

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

##
## mod_status quick test
##

plan tests => 1, need_module 'status';

my $uri = '/server-status';
my $servername = Apache::Test::vars()->{servername};

my $title = "Apache Server Status for $servername";

my $status = GET_BODY $uri;
print "$status\n";
ok ($status =~ /$title/i);