httpd-apreq-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From j...@apache.org
Subject svn commit: r171143 - /httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Param/Param.pod
Date Fri, 20 May 2005 18:45:04 GMT
Author: joes
Date: Fri May 20 11:45:02 2005
New Revision: 171143

URL: http://svn.apache.org/viewcvs?rev=171143&view=rev
Log:
Add basic tests to Request.pod.
 

Modified:
    httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Param/Param.pod

Modified: httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Param/Param.pod
URL: http://svn.apache.org/viewcvs/httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Param/Param.pod?rev=171143&r1=171142&r2=171143&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Param/Param.pod (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Param/Param.pod Fri May 20 11:45:02
2005
@@ -3,13 +3,65 @@
 APR::Request::Param - wrapper for libapreq2's param API.
 
 
+=begin testing
+    use APR::Pool;
+    use APR::Brigade;
+    use APR::Bucket;
+    use APR::BucketAlloc;
+    use APR::Request;
+    use APR::Request::Parser;
+    $pool = APR::Pool->new;
+    $ba = APR::BucketAlloc->new($pool);
+    $bb = APR::Brigade->new($pool, $ba);
+    $content = <<EOT;
+---XYZ-
+Content-Disposition: form-data; name="alpha"
+Content-Type: text/plain; charset=us-ascii
+
+first
+---XYZ-
+Content-Disposition: form-data; name="beta" filename="foo.txt"
+Content-Type: text/plain; charset=us-ascii
+
+second
+---XYZ-
+Content-Disposition: form-data; name="gamma"
+Content-Type: text/plain; charset=us-ascii
+
+third
+---XYZ---
+EOT
+    s/(?<!\015)\012/\015\012/g for $content;
+    $bb->insert_tail(APR::Bucket->new($ba, $content));
+    $parser = APR::Request::Parser->multipart($pool, $ba, 
+                                    "multipart/form-data; boundary=-XYZ-");
+    $req = APR::Request::Custom->handle($pool, "alpha=arg1&beta=arg2", 
+                                                "foo=bar",
+                                                $parser, 1e6, $bb);
+
+=end testing
 
 
 =head1 SYNOPSIS
 
+
+=for example begin
+
   use APR::Request::Param;
 
+  $arg1 = $req->args('alpha');
+  $body = $req->body;
+  $body->param_class("APR::Request::Param");
+  ok $_->isa("APR::Request::Param") for values %$body;
+
+  @uploads = grep {$_->upload} values %$body;
+
+
+=for example end
 
+=for example_testing
+  is $arg1, "arg1", 'alpha arg is "arg1"';
+  ok @uploads == 1;
 
 
 =head1 DESCRIPTION



Mime
View raw message