HEX
Server: Apache
System: Windows NT MAGNETO-ARM 10.0 build 22000 (Windows 10) AMD64
User: Michel (0)
PHP: 7.4.7
Disabled: NONE
Upload Files
File: C:/mod_perl-2.0.12/ModPerl-Registry/t/206.t
# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
use strict;
use warnings FATAL => 'all';

use Apache::Test;
use Apache::TestUtil;
use Apache::TestRequest qw(GET);

plan tests => 2, need [qw(mod_alias.c HTML::HeadParser)];

my $url = "/registry/206.pl";
my $res = GET($url);
my $body = '<?xml versi';

ok t_cmp(
    $res->code,
    206,
    "test partial_content: response code",
);

ok t_cmp(
    $res->content,
    $body,
    "test partial_content: response body",
);