svn commit: r744299 - in /httpd/apreq/trunk/glue/perl/t: apreq/cookie.t response/TestApReq/cookie.pm

[jo...@apache.org]

Author: joes
Date: Fri Feb 13 23:53:55 2009
New Revision: 744299

URL: http://svn.apache.org/viewvc?rev=744299&view=rev
Log:
add wordpess tests

Modified:
    httpd/apreq/trunk/glue/perl/t/apreq/cookie.t
    httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie.pm

Modified: httpd/apreq/trunk/glue/perl/t/apreq/cookie.t
URL: http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/t/apreq/cookie.t?rev=744299&r1=744298&r2=744299&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/t/apreq/cookie.t (original)
+++ httpd/apreq/trunk/glue/perl/t/apreq/cookie.t Fri Feb 13 23:53:55 2009
@@ -6,7 +6,7 @@
 use Apache::TestUtil;
 use Apache::TestRequest qw(GET_BODY GET_HEAD);
 
-plan tests => 13, need_min_module_version('Apache::Test' => 1.29) || need_lwp;
+plan tests => 14, need_min_module_version('Apache::Test' => 1.29) || need_lwp;
 
 my $module = "TestApReq::cookie";
 my $location = Apache::TestRequest::module2url($module);
@@ -157,3 +157,14 @@
     ok t_cmp($str, $value, $test);
 }
 
+{
+    my $test = 'wordpress';
+    my $cookie = qq{wordpressuser_c580712eb86cad2660b3601ac04202b2=admin;}
+        . qq{wordpresspass_c580712eb86cad2660b3601ac04202b2=7ebeeed42ef50}
+            . qq{720940f5b8db2f9db49; rs_session=59ae9b8b503e3af7d17b97e7}
+                . qq{f77f7ea5; dbx-postmeta=grabit=0-,1-,2-,3-,4-,5-,6-&a}
+                    .qq {dvancedstuff=0-,1+,2-};
+    my $value = qq{ok};
+    my $str = GET_BODY("$location?test=$test", Cookie => $cookie);
+    ok t_cmp($str, $value, $test);
+}

Modified: httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie.pm
URL: http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie.pm?rev=744299&r1=744298&r2=744299&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie.pm (original)
+++ httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie.pm Fri Feb 13 23:53:55 2009
@@ -14,7 +14,7 @@
 sub handler {
     my $r = shift;
     my $req = Apache2::Request->new($r);
-    my %cookies = Apache2::Cookie->fetch($r);
+    my %cookies = eval { Apache2::Cookie->fetch($r) };
 
     $r->content_type('text/plain');
     my $test = $req->APR::Request::args('test');
@@ -39,6 +39,9 @@
     elsif ($test eq 'overload') {
         $r->print($cookies{one});
     }
+    elsif ($test eq 'wordpress') {
+        $r->print("ok") if $@;
+    }
     elsif ($key and $cookies{$key}) {
         if ($test eq "bake") {
             $cookies{$key}->bake($r);