[svn:mod_parrot] r185 - in mod_parrot/branches/autogen/t: . lib

Author: jhorwitz
Date: Mon Aug  1 12:28:50 2005
New Revision: 185

Modified:
   mod_parrot/branches/autogen/t/01RequestRec.t
   mod_parrot/branches/autogen/t/lib/handlers.imc
Log:
fix r.status() test


Modified: mod_parrot/branches/autogen/t/01RequestRec.t
==============================================================================
--- mod_parrot/branches/autogen/t/01RequestRec.t	(original)
+++ mod_parrot/branches/autogen/t/01RequestRec.t	Mon Aug  1 12:28:50 2005
@@ -41,7 +41,7 @@ is($content, 'bar', 'notes');
 
 # Apache::RequestRec->status
 $res = GET '/parrot-test/RequestRec-status';
-is($res->code, 200, 'status');
+is($res->code, 201, 'status');
 
 # Apache::RequestRec->log_rerror
 $res = GET '/parrot-test/RequestRec-log_rerror';
@@ -120,7 +120,7 @@ chomp($content = $res->content);
 is($content, '/RequestRec-path_info', 'content match');
 
 TODO: {
-    local $TODO = "Tests need written.";
+    local $TODO = "Tests need to be written.";
 
     # Apache::RequestRec->filename
     $res = GET '/parrot-test/RequestRec-filename';
@@ -161,11 +161,6 @@ SKIP: {
     chomp($content = $res->content);
     is($content, '1000', 'proto_num match');
  
-    # Apache::RequestRec->status
-    $res = GET '/parrot-test/RequestRec-status';
-    chomp($content = $res->content);
-    is($content, '200', 'status match');
- 
     # Apache::RequestRec->method_number
     $res = GET '/parrot-test/RequestRec-method_number';
     chomp($content = $res->content);

Modified: mod_parrot/branches/autogen/t/lib/handlers.imc
==============================================================================
--- mod_parrot/branches/autogen/t/lib/handlers.imc	(original)
+++ mod_parrot/branches/autogen/t/lib/handlers.imc	Mon Aug  1 12:28:50 2005
@@ -481,23 +481,6 @@ authz_done:
     .pcc_end_return
 .end
  
-.namespace [ 'ModParrot::Test::status' ]
- 
-.sub _handler
-    .param pmc r
-    .local pmc ap_const
- 
-    $I0 = r.'status'( )
-    r.'putc'($I0)
- 
-    ap_const = find_global 'Apache::Constants', 'ap_constants'
-    $I0 = ap_const['OK']
- 
-    .pcc_begin_return
-        .return $I0
-    .pcc_end_return
-.end
- 
 .namespace [ 'ModParrot::Test::method_number' ]
  
 .sub _handler