diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-01-06 13:46:27 +0100 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-01-06 13:46:27 +0100 |
| commit | 54e34a0c6b49b43e82d0de636c5c731dd392e8b7 (patch) | |
| tree | b4f8a9e3e053bf984d6afe879b84e910a6c4e7a7 | |
| parent | return deserialized content and http response (diff) | |
| download | moosex-net-api-54e34a0c6b49b43e82d0de636c5c731dd392e8b7.tar.gz | |
update tests
| -rw-r--r-- | t/01_basic.t | 3 |
1 files changed, 3 insertions, 0 deletions
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"; |