[svn:mod_parrot] r411 - in mod_parrot/trunk: build/maps/httpd t/response/TestAPI

Author: jhorwitz
Date: Thu Aug 28 08:12:36 2008
New Revision: 411

Modified:
   mod_parrot/trunk/build/maps/httpd/request_rec.map
   mod_parrot/trunk/t/response/TestAPI/request_rec.pir

Log:
add "method" method to Apache;RequestRec


Modified: mod_parrot/trunk/build/maps/httpd/request_rec.map
==============================================================================
--- mod_parrot/trunk/build/maps/httpd/request_rec.map	(original)
+++ mod_parrot/trunk/build/maps/httpd/request_rec.map	Thu Aug 28 08:12:36 2008
@@ -15,7 +15,7 @@
 status             | int          | rw
 
 # reserved word conflict
-#method             | const char * | rw
+method             | const char * | rw
 method_number      | int          | rw
 chunked            | int          | rw
 range              | const char * | rw

Modified: mod_parrot/trunk/t/response/TestAPI/request_rec.pir
==============================================================================
--- mod_parrot/trunk/t/response/TestAPI/request_rec.pir	(original)
+++ mod_parrot/trunk/t/response/TestAPI/request_rec.pir	Thu Aug 28 08:12:36 2008
@@ -9,7 +9,7 @@
 
     ap_const = get_root_global [ 'Apache'; 'Constants' ], 'ap_constants'
 
-    r.'puts'("1..32\n")
+    r.'puts'("1..33\n")
 
   # XXX this should be fatal on failure
   START_1:
@@ -366,6 +366,16 @@
   #  r.'puts'("ok 32 - putc()\n")
   r.'puts'("not ok 32 - putc() # TODO succeeds with incorrect output\n")
 
+  START_33:
+    push_eh NOT_OK_33
+    $S0 = r.'method'()
+    pop_eh
+    if $S0 == 'GET' goto OK_33
+  NOT_OK_33:
+    r.'puts'("not ")
+  OK_33:
+    r.'puts'("ok 33 - method()\n")
+
     # STILL TODO (not tested in original client-side tests)
     # assbackwards
     # proxyreq