summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/t/apache/404.t
blob: 83e9c066ff76cd9abb94f3f435dbf9614d2d2d7d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use strict;
use warnings FATAL => 'all';

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

plan tests => 2;

my $four_oh_four = GET_STR "/404/not/found/test";

print "# GET_STR Response:\n# ",
      join("\n# ", split(/\n/, $four_oh_four)), "\n";

ok (($four_oh_four =~ /HTTP\/1\.[01] 404 Not Found/)
    || ($four_oh_four =~ /RC:\s+404.*Message:\s+Not Found/s));
ok ($four_oh_four =~ /Content-Type: text\/html/);