view release on metacpan or  search on metacpan

t/cgi_headers.t  view on Meta::CPAN

use Apache::ASP::CGI::Test;
use lib qw(t ../t);
use T;

my $r = Apache::ASP::CGI::Test->do_self(NoState => 1, CgiHeaders => 1, Debug => 0);

my $t = T->new;
my $ok;

$t->eok($ok = $r->test_header_out =~ /Status: 200\n/s, "response header");
$t->eok($ok = $r->test_body_out =~ /^1..1\nok\s+$/s, "response body");
$t->done;

__END__
Status: 200

<% 

$t->ok;

%>