httpd-apreq-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From j...@apache.org
Subject cvs commit: httpd-apreq-2/glue/perl/xsbuilder/maps apreq_functions.map
Date Tue, 17 Jun 2003 11:23:09 GMT
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   |
   
  
  
  

Mime
View raw message