merged pbc branch to master

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"; 
+};