File: cgi_headers.t

package info (click to toggle)
libapache-asp-perl 2.63-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster
  • size: 4,120 kB
  • sloc: perl: 6,044; php: 409; sh: 62; lisp: 22; makefile: 10
file content (22 lines) | stat: -rw-r--r-- 362 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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;

%>