[Jifty-commit] r3819 - in Test-WWW-Declare: lib/Test/WWW

[jifty-commit at lists.jifty.org]

Author: sartak
Date: Mon Aug  6 15:54:19 2007
New Revision: 3819

Modified:
   Test-WWW-Declare/   (props changed)
   Test-WWW-Declare/lib/Test/WWW/Declare.pm

Log:
 r29977 at caladan:  sartak | 2007-08-06 15:54:10 -0400
 get() can certainly fail


Modified: Test-WWW-Declare/lib/Test/WWW/Declare.pm
==============================================================================
--- Test-WWW-Declare/lib/Test/WWW/Declare.pm	(original)
+++ Test-WWW-Declare/lib/Test/WWW/Declare.pm	Mon Aug  6 15:54:19 2007
@@ -148,6 +148,10 @@
     my $url = shift;
 
     mech()->get($url);
+    return if mech->success;
+
+    Carp::croak mech->status
+             . (mech->response ? ' - ' . mech->response->message : '')
 }
 
 sub href ($) {