[svn:mod_parrot] r619 - mod_parrot/trunk/t/response/TestAPI

Author: jhorwitz
Date: Sun Mar  1 07:35:22 2009
New Revision: 619

Modified:
   mod_parrot/trunk/t/response/TestAPI/context.pir

Log:
add test for pool_name


Modified: mod_parrot/trunk/t/response/TestAPI/context.pir
==============================================================================
--- mod_parrot/trunk/t/response/TestAPI/context.pir	(original)
+++ mod_parrot/trunk/t/response/TestAPI/context.pir	Sun Mar  1 07:35:22 2009
@@ -9,7 +9,7 @@
 
     ap_const = get_root_global [ 'ModParrot'; 'Apache'; 'Constants' ], 'table'
 
-    r.'puts'("1..7\n")
+    r.'puts'("1..8\n")
 
   START_1:
     push_eh NOT_OK_1
@@ -88,6 +88,16 @@
   OK_7:
     r.'puts'("ok 7 - request_rec\n")
 
+  START_8:
+    push_eh NOT_OK_8
+    $S0 = ctx.'pool_name'()
+    pop_eh
+    if $S0 == "default" goto OK_8
+  NOT_OK_8:
+    r.'puts'("not ")
+  OK_8:
+    r.'puts'("ok 8 - pool_name\n")
+
     $I0 = ap_const['OK']
     .return($I0)
 .end