diff options
Diffstat (limited to '')
| -rw-r--r-- | t/rest/populate_object.t (renamed from t/03_object.t) | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/t/03_object.t b/t/rest/populate_object.t index 13de9d4..b875ad7 100644 --- a/t/03_object.t +++ b/t/rest/populate_object.t @@ -6,10 +6,10 @@ use JSON; use HTTP::Response; use Net::Riak::Bucket; -use Net::Riak::Client; +use Net::Riak; use Net::Riak::Object; -my $client = Net::Riak::Client->new(); +my $client = Net::Riak->new()->client; my $bucket = Net::Riak::Bucket->new(name => 'foo', client => $client); ok my $object = @@ -17,11 +17,12 @@ ok my $object = 'object bar created'; my $response = HTTP::Response->new(400); +$client->http_response($response); ok !$object->exists, 'object don\'t exists'; eval { - $object->populate($response, [200]); + $client->populate_object($object, $response, [200]); }; like $@, qr/Expected status 200, received 400/, "can't populate with a 400"; @@ -29,14 +30,15 @@ like $@, qr/Expected status 200, received 400/, "can't populate with a 400"; my $value = {value => 1}; $response = HTTP::Response->new(200); +$client->http_response($response); $response->content(JSON::encode_json($value)); -$object->populate($response, [200]); +$client->populate_object($object, $response, [200]); ok $object->exists, 'object exists'; is_deeply $value, $object->data, 'got same data'; -is $object->status, 200, 'last http code is 200'; +is $object->client->status, 200, 'last http code is 200'; done_testing; |