diff options
Diffstat (limited to '')
-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}; |