stas 2004/07/23 17:54:02
Modified: t/response/TestAPI request_rec.pm
Added: t/api err_headers_out.t
t/response/TestAPI err_headers_out.pm
Log:
add err_headers_out test
Revision Changes Path
1.1 modperl-2.0/t/api/err_headers_out.t
Index: err_headers_out.t
===================================================================
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil;
plan tests => 3;
my $location = '/TestAPI__err_headers_out';
my $res = GET $location;
#t_debug $res->as_string;
ok t_cmp $res->code, 404, "not found";
ok t_cmp $res->header('X-Survivor'), "err_headers_out",
"X-Survivor: made it";
ok !$res->header('X-Goner');
1.24 +1 -0 modperl-2.0/t/response/TestAPI/request_rec.pm
Index: request_rec.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/request_rec.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -u -r1.23 -r1.24
--- request_rec.pm 23 Jul 2004 23:46:11 -0000 1.23
+++ request_rec.pm 24 Jul 2004 00:54:02 -0000 1.24
@@ -89,6 +89,7 @@
ok $r->headers_out;
+ # tested in TestAPI::err_headers_out
ok $r->err_headers_out;
ok $r->subprocess_env;
1.1 modperl-2.0/t/response/TestAPI/err_headers_out.pm
Index: err_headers_out.pm
===================================================================
package TestAPI::err_headers_out;
# tests: $r->err_headers_out
# when sending a non-2xx response one must use $r->err_headers_out to
# set extra headers
use strict;
use warnings FATAL => 'all';
use Apache::RequestRec ();
use Apache::RequestUtil ();
use APR::Table ();
use Apache::Const -compile => qw(OK NOT_FOUND);
sub handler {
my $r = shift;
# this header will make it
$r->err_headers_out->add('X-Survivor' => "err_headers_out");
# this header won't make it
$r->headers_out->add('X-Goner' => "headers_out");
return Apache::NOT_FOUND;
}
1;
__END__
