blob: ced9f86511084f89f9ad883d8c3b604c89a7fe8e (
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;
use Apache::TestUtil;
plan tests => 3, have_lwp;
my $response = GET '/TestBasic__Hello';
ok t_cmp $response->code, 200, '/handler returned HTTP_OK';
ok t_cmp $response->header('Content-Type'), 'text/plain',
'/handler set proper Content-Type';
chomp(my $content = $response->content);
ok t_cmp $content, 'Hello', '/handler returned proper content';
|
