t/apreq/cookie.t

use strict;
use warnings FATAL => 'all';

use Apache::Test;

use Apache::TestUtil;
use Apache::TestRequest qw(GET_BODY);

plan tests => 1, &need_lwp;

require HTTP::Cookies;

my $location = "/TestApReq__cookie";

{
    # basic param() test
    my $test  = 'basic';
    my $key   = 'apache';
    my $value = 'ok';
    my $cookie = qq{\$Version="1"; $key="$value"; \$Path="$location"};
    ok t_cmp(GET_BODY("$location?test=$test&key=$key",
                      Cookie => $cookie),
             qq{"$value"},
             $test);
}