httpd-apreq-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From j...@apache.org
Subject svn commit: r320611 - /httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Cookie/Cookie.pod
Date Thu, 13 Oct 2005 02:07:46 GMT
Author: joes
Date: Wed Oct 12 19:07:44 2005
New Revision: 320611

URL: http://svn.apache.org/viewcvs?rev=320611&view=rev
Log:
add inline cookie tests

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

Modified: httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Cookie/Cookie.pod
URL: http://svn.apache.org/viewcvs/httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Cookie/Cookie.pod?rev=320611&r1=320610&r2=320611&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Cookie/Cookie.pod (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Cookie/Cookie.pod Wed Oct 12 19:07:44
2005
@@ -83,7 +83,14 @@
 The double-quote interpolation operator maps to
 C<< APR::Request::Cookie::value() >>.
 
+=for example begin
 
+    ok "$cookie" eq $cookie->value;
+
+=for example end
+
+=for example_testing
+    1;
 
 
 =head1 METHODS
@@ -139,6 +146,15 @@
 Class method representing the default serializer;
 here it returns $value unmodified.
 
+=for example begin
+
+    ok "foo" eq APR::Request::Cookie->freeze("foo");
+
+=for example end
+
+=for example_testing
+    1;
+
 
 
 
@@ -149,6 +165,15 @@
 Reverses C<< freeze() >>; here it simply returns 
 $cookie->value since freeze() is a noop.
 
+=for example begin
+
+    ok $cookie->thaw eq $cookie->value;
+
+=for example end
+
+=for example_testing
+    1;
+
 
 
 
@@ -161,6 +186,13 @@
 ie freeze() and thaw() do not act on the
 cookie's name.
 
+=for example begin
+
+=for example end
+
+=for example_testing
+    is $cookie->name, "foo", "name";
+
 
 
 
@@ -171,6 +203,13 @@
 Fetch the cookie's raw (frozen) value.
 This attribute cannot be modified.
 
+=for example begin
+
+=for example end
+
+=for example_testing
+    is $cookie->value, "bar", "value";
+
 
 
 
@@ -182,6 +221,17 @@
 
 Get/set the cookie's secure flag.
 
+=for example begin
+
+    $cookie->secure(1);
+    ok $cookie->secure == 1;
+
+=for example end
+
+=for example_testing
+    $cookie->secure(0);
+    is $cookie->secure, 0, "secure";
+
 
 
 
@@ -195,6 +245,18 @@
 spec; Version 1 cookies conform to either
 RFC 2109 or RFC 2965.
 
+=for example begin
+
+    $version = $cookie->version;
+    $cookie->version(1);
+    ok $cookie->version == 1;
+
+=for example end
+
+=for example_testing
+    $cookie->version($version);
+    is $cookie->version, $version, "version";
+
 
 
 
@@ -205,6 +267,18 @@
 
 Get/set the cookie's path string.
 
+=for example begin
+
+    $path = $cookie->path;
+    $cookie->path("/1/2/3/4");
+    ok $cookie->path eq "/1/2/3/4";
+
+=for example end
+
+=for example_testing
+    $cookie->path($path);
+    is $cookie->path, $path, "path";
+
 
 
 
@@ -215,6 +289,18 @@
 
 Get/set the cookie's domain string.
 
+=for example begin
+
+    $domain = $cookie->domain;
+    $cookie->domain("apache.org");
+    ok $cookie->domain eq "apache.org";
+
+=for example end
+
+=for example_testing
+    $cookie->domain($domain);
+    is $cookie->domain, $domain, "domain";
+
 
 
 
@@ -226,6 +312,18 @@
 Get/set the cookie's port string.
 Only valid for Version 1 cookies.
 
+=for example begin
+
+    $port = $cookie->port;
+    $cookie->port(8888);
+    ok $cookie->port == 8888;
+
+=for example end
+
+=for example_testing
+    $cookie->port($port);
+    is $cookie->port, $port, "port";
+
 
 
 
@@ -237,6 +335,18 @@
 Get/set the cookie's comment string.
 Only valid for Version 1 cookies.
 
+=for example begin
+
+    $comment = $cookie->comment;
+    $cookie->comment("quux");
+    ok $cookie->comment eq "quux";
+
+=for example end
+
+=for example_testing
+    $cookie->comment($comment);
+    is $cookie->comment, $comment, "comment";
+
 
 
 
@@ -248,6 +358,18 @@
 Get/set the cookie's commentURL string.
 Only valid for Version 1 cookies.
 
+=for example begin
+
+    $commentURL = $cookie->commentURL;
+    $cookie->commentURL("/foo/bar");
+    ok $cookie->commentURL eq "/foo/bar";
+
+=for example end
+
+=for example_testing
+    $cookie->commentURL($commentURL);
+    is $cookie->commentURL, $commentURL, "commentURL";
+
 
 
 
@@ -256,9 +378,20 @@
     $cookie->is_tainted()
     $cookie->is_tainted($set)
 
-
 Get/set the cookie's internal tainted flag.
 
+=for example begin
+
+    $tainted = $cookie->is_tainted;
+    $cookie->is_tainted(1);
+    ok $cookie->is_tainted == 1;
+
+=for example end
+
+=for example_testing
+    $cookie->is_tainted($tainted);
+    is $cookie->is_tainted, $tainted, "tainted";
+
 
 =head2 make
 
@@ -279,7 +412,15 @@
 String representation of the cookie, suitable for inclusion
 in a "Set-Cookie" header.
 
+=for example begin
+
+    print "Set-Cookie: ", $cookie->as_string, "\n";
+
+=for example end
 
+=for example_testing
+    is $_STDOUT_, qq/Set-Cookie: foo=bar; Version=1; domain="example.com"\n/,
+        "as_string";
 
 
 =head1 SUBROUTINES



Mime
View raw message