From e53d74d8cdc793874f432748e1ccedc5ab3144e4 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Wed, 24 Nov 2010 12:01:02 +0100
Subject: update tests

---
 t/spore-request/exception.t | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

(limited to 't/spore-request')

diff --git a/t/spore-request/exception.t b/t/spore-request/exception.t
index fdf51cb..1173e84 100644
--- a/t/spore-request/exception.t
+++ b/t/spore-request/exception.t
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 
+use Try::Tiny;
 use Test::More;
 use Net::HTTP::Spore;
 
@@ -13,12 +14,20 @@ my $mock_server = {
 
 ok my $client =
   Net::HTTP::Spore->new_from_spec( 't/specs/api.json',
-    base_url => 'http://localhost' );
+    base_url => 'http://localhost' ), "client created";
 
 $client->enable( 'Mock', tests => $mock_server );
 
-my $res = $client->get_info();
-is $res->[0], 599;
-like $res->[2]->{error}, qr/Died/;
+my $res;
+
+try {
+    $res = $client->get_info();
+}
+catch {
+    $res = $_;
+    like $res, qr/status: 599/, "stringify ok";
+    is $res->[0], 599, "status ok (as arrayref)";
+    like $res->[2]->{error}, qr/Died/, "body ok (as arrayref)";
+};
 
 done_testing;
-- 
cgit 1.4.1