diff options
Diffstat (limited to '')
-rw-r--r-- | t/03_delete_object.t | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/t/03_delete_object.t b/t/03_delete_object.t new file mode 100644 index 0000000..f2d6d10 --- /dev/null +++ b/t/03_delete_object.t @@ -0,0 +1,20 @@ +use lib 't/lib'; +use Test::More; +use Test::Riak; +use Data::Dumper; + +test_riak { + my ($client, $bucket_name) = @_; + + my $bucket = $client->bucket($bucket_name); + my $content = [int(rand(100))]; + my $obj = $bucket->new_object('foo', $content); + ok $obj->store, 'object is stored'; + $obj = $bucket->get('foo'); + ok $obj->exists, 'object exists'; + $obj->delete; + ok $obj->exists, " exists after delete"; + $obj->load; + ok !$obj->exists, "object don't exists after load"; + is scalar(@{$bucket->get_keys}), 0, "no keys left in bucket"; +}; |