From 79bea382fd2c0753ca9ace79a11bb74c9a1d722b Mon Sep 17 00:00:00 2001
From: Robin Edwards <robin.ge@gmail.com>
Date: Wed, 20 Apr 2011 14:38:43 +0100
Subject: merged pbc branch to master

---
 t/03_delete_object.t | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 t/03_delete_object.t

(limited to 't/03_delete_object.t')

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"; 
+};
-- 
cgit v1.2.3