1# this test tests how a cookie jar can be passed (needs lwp) 2 3use strict; 4use warnings FATAL => 'all'; 5 6use Apache::Test; 7use Apache::TestRequest; 8use Apache::TestUtil; 9 10plan tests => 2, need [qw(CGI CGI::Cookie)], 11 need_cgi, need_lwp, need need_module('mod_alias.c'); 12 13Apache::TestRequest::user_agent( cookie_jar => {} ); 14 15my $url = '/cgi-bin/cookies.pl'; 16 17ok t_cmp GET_BODY($url), 'new', "new cookie"; 18ok t_cmp GET_BODY($url), 'exists', "existing cookie"; 19