From 54e34a0c6b49b43e82d0de636c5c731dd392e8b7 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Wed, 6 Jan 2010 13:46:27 +0100
Subject: update tests

---
 t/01_basic.t | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/t/01_basic.t b/t/01_basic.t
index 92f5d03..e52f0e1 100644
--- a/t/01_basic.t
+++ b/t/01_basic.t
@@ -25,6 +25,9 @@ is $users->{status}, 1, "... get users";
 ok my $user = $obj->get_user( id => 1 ), "... fetch user";
 is $user->{status}, 1, "... get bruce wayne";
 
+ok my ($user, $http_response) = $obj->get_user(id => 1), "... fetch user";
+isa_ok $http_response, "HTTP::Response", "... got the HTTP response object";
+
 #dies_ok { $obj->get_user( id => 12 ) } "... can't fetch unknown user";
 #my $err = $@;
 #is $err->http_code, 404, "... get 404";
-- 
cgit 1.4.1