joes 2003/06/17 04:23:09
Modified: glue/perl/t/apreq inherit.t
glue/perl/t/response/TestApReq inherit.pm
glue/perl/xsbuilder/maps apreq_functions.map
Log:
Add more inheritance tests to the perl glue.
Revision Changes Path
1.4 +2 -1 httpd-apreq-2/glue/perl/t/apreq/inherit.t
Index: inherit.t
===================================================================
RCS file: /home/cvs/httpd-apreq-2/glue/perl/t/apreq/inherit.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- inherit.t 13 Jun 2003 09:52:00 -0000 1.3
+++ inherit.t 17 Jun 2003 11:23:08 -0000 1.4
@@ -9,6 +9,7 @@
plan tests => 1;
my $location = "/TestApReq__inherit";
-ok t_cmp(<< 'VALUE', GET_BODY($location), "inheritance");
+ok t_cmp(<< 'VALUE', GET_BODY($location, Cookie=>"apache=2"), "inheritance");
method => GET
+cookie => apache=2
VALUE
1.3 +7 -3 httpd-apreq-2/glue/perl/t/response/TestApReq/inherit.pm
Index: inherit.pm
===================================================================
RCS file: /home/cvs/httpd-apreq-2/glue/perl/t/response/TestApReq/inherit.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- inherit.pm 13 Jun 2003 09:46:52 -0000 1.2
+++ inherit.pm 17 Jun 2003 11:23:08 -0000 1.3
@@ -1,5 +1,6 @@
package TestApReq::inherit;
-use base 'Apache::Request';
+use Apache::Cookie;
+use base qw/Apache::Request Apache::Cookie::Jar/;
use strict;
use warnings FATAL => 'all';
use APR;
@@ -8,11 +9,14 @@
use Devel::Peek;
sub handler {
my $r = shift;
- $r->content_type('text/plain');
$r = __PACKAGE__->new($r); # tickles refcnt bug in apreq-1
Dump($r);
die "Wrong package: ", ref $r unless $r->isa('TestApReq::inherit');
- $r->print(sprintf "method => %s\n", $r->method);
+ $r->content_type('text/plain');
+ my $j = Apache::Cookie->jar($r->env);
+ my $req = bless { r => $r, j => $j };
+ $req->printf("method => %s\n", $req->method);
+ $req->printf("cookie => %s\n", $req->cookie("apache")->as_string);
return 0;
}
1.7 +1 -0
httpd-apreq-2/glue/perl/xsbuilder/maps/apreq_functions.map
Index: apreq_functions.map
===================================================================
RCS file:
/home/cvs/httpd-apreq-2/glue/perl/xsbuilder/maps/apreq_functions.map,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- apreq_functions.map 15 Jun 2003 10:33:00 -0000 1.6
+++ apreq_functions.map 17 Jun 2003 11:23:09 -0000 1.7
@@ -28,6 +28,7 @@
MODULE=Apache::Cookie PACKAGE=Apache::Cookie::Jar PREFIX=Apache__Cookie__Jar_
DEFINE_new | apreq_xs_jar |
DEFINE_env | apreq_xs_jar_env |
+ DEFINE_cookie | apreq_xs_jar_table_get |
DEFINE_get | apreq_xs_jar_table_get |
DEFINE_cookies | apreq_xs_jar_cookies |
