[Rt-commit] r3670 - in HTTP-Server-Simple-Mason: lib/HTTP/Server/Simple t

[glasser at bestpractical.com]

Author: glasser
Date: Thu Aug 18 12:49:27 2005
New Revision: 3670

Modified:
   HTTP-Server-Simple-Mason/lib/HTTP/Server/Simple/Mason.pm
   HTTP-Server-Simple-Mason/t/01live.t
Log:
The main test should fail if there's an error, even if our default behavior otherwise is to ignore it.

Modified: HTTP-Server-Simple-Mason/lib/HTTP/Server/Simple/Mason.pm
==============================================================================
--- HTTP-Server-Simple-Mason/lib/HTTP/Server/Simple/Mason.pm	(original)
+++ HTTP-Server-Simple-Mason/lib/HTTP/Server/Simple/Mason.pm	Thu Aug 18 12:49:27 2005
@@ -83,13 +83,13 @@
         $cgi->path_info( $cgi->path_info . "/index.html" );
     }
 
-
     eval { my $m = $self->mason_handler;
 
         $m->handle_cgi_object($cgi) };
 
     if ($@) {
-	$self->handle_error($@);
+        my $error = $@;
+        $self->handle_error($error);
     } 
 }
 

Modified: HTTP-Server-Simple-Mason/t/01live.t
==============================================================================
--- HTTP-Server-Simple-Mason/t/01live.t	(original)
+++ HTTP-Server-Simple-Mason/t/01live.t	Thu Aug 18 12:49:27 2005
@@ -34,4 +34,10 @@
     return ( comp_root => $root );
 }
 
+sub handle_error {
+    my $self = shift;
+    my $error = shift;
+    die "mason had an error: $error";
+} 
+
 1;