diff options
| author | Robin Edwards <robin.ge@gmail.com> | 2011-06-23 15:39:27 +0100 |
|---|---|---|
| committer | Robin Edwards <robin.ge@gmail.com> | 2011-06-23 15:39:27 +0100 |
| commit | c7e090003f60cccd5289f90d04c6892598531ae0 (patch) | |
| tree | 18a6d901ebc563f3d47c8741fe07bcf83e14c0a7 | |
| parent | prepared for release (diff) | |
| download | net-riak-c7e090003f60cccd5289f90d04c6892598531ae0.tar.gz | |
new release adds status line on unexpected response
| -rw-r--r-- | Changes | 3 | ||||
| -rw-r--r-- | dist.ini | 2 | ||||
| -rw-r--r-- | lib/Net/Riak/Role/REST/Object.pm | 2 | ||||
| -rw-r--r-- | t/rest/populate_object.t | 2 |
4 files changed, 6 insertions, 3 deletions
diff --git a/Changes b/Changes index 272c3cd..5db7b94 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +0.1502 Thu Jun 23 15:39:10 BST 2011 + - added status line to REST response (Robin Edwards) + 0.1501 Thu May 19 12:07:51 BST 2011 - fix pod error in Net/Riak.pm - fix GH-12 in Map/Reduce operations (franck cuny) diff --git a/dist.ini b/dist.ini index 7617a55..610b2b4 100644 --- a/dist.ini +++ b/dist.ini @@ -3,7 +3,7 @@ author = franck cuny <franck@lumberjaph.net>, robin edwards <robin.ge@gmail.com> license = Perl_5 copyright_holder = linkfluence copyright_year = 2011 -version = 0.1501 +version = 0.1502 [@Filter] bundle = @Basic diff --git a/lib/Net/Riak/Role/REST/Object.pm b/lib/Net/Riak/Role/REST/Object.pm index fd89bdf..fc45f3c 100644 --- a/lib/Net/Riak/Role/REST/Object.pm +++ b/lib/Net/Riak/Role/REST/Object.pm @@ -89,7 +89,7 @@ sub populate_object { if (!grep { $status == $_ } @$expected) { confess "Expected status " . (join(', ', @$expected)) - . ", received $status" + . ", received: ".$http_response->status_line } if ($status == 404) { diff --git a/t/rest/populate_object.t b/t/rest/populate_object.t index b875ad7..20026be 100644 --- a/t/rest/populate_object.t +++ b/t/rest/populate_object.t @@ -25,7 +25,7 @@ eval { $client->populate_object($object, $response, [200]); }; -like $@, qr/Expected status 200, received 400/, "can't populate with a 400"; +like $@, qr/Expected status 200, received: 400/, "can't populate with a 400"; my $value = {value => 1}; |