20 lines
367 B
Perl
20 lines
367 B
Perl
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);
|