summary refs log tree commit diff
path: root/t/01_store_fetch_object.t
diff options
context:
space:
mode:
authorRobin Edwards <robin.ge@gmail.com>2011-04-20 14:52:42 +0100
committerRobin Edwards <robin.ge@gmail.com>2011-04-20 14:52:42 +0100
commit9ab975068e04db8f4c11f1034b7f8c15ab2a1443 (patch)
tree679867d03ccc819670b3216924b985311f6c83df /t/01_store_fetch_object.t
parentmerged pbc branch to master (diff)
downloadnet-riak-9ab975068e04db8f4c11f1034b7f8c15ab2a1443.tar.gz
storing without key only supported by REST
- added notice for this
Diffstat (limited to '')
-rw-r--r--t/01_store_fetch_object.t10
1 files changed, 8 insertions, 2 deletions
diff --git a/t/01_store_fetch_object.t b/t/01_store_fetch_object.t
index 09f5e99..4c8a1dc 100644
--- a/t/01_store_fetch_object.t
+++ b/t/01_store_fetch_object.t
@@ -17,9 +17,15 @@ test_riak {
 
     is $obj->key, 'foo', 'valid key';
     is_deeply $obj->data, $content, 'valid content';
+};
+
+test_riak_rest {
+    my ($client, $bucket_name) = @_;
+    ok my $bucket = $client->bucket($bucket_name), 'got bucket test';
+    my $content = [int(rand(100))];
 
-    ok $obj = $bucket->new_object(undef, $content),
+    ok my $obj = $bucket->new_object(undef, $content),
       'created a new riak object without a key';
     ok $obj->store, 'store object without key';
     ok $obj->key, 'key created';
-};
+}