diff options
author | Robin Edwards <robin.ge@gmail.com> | 2011-04-20 14:52:42 +0100 |
---|---|---|
committer | Robin Edwards <robin.ge@gmail.com> | 2011-04-20 14:52:42 +0100 |
commit | 9ab975068e04db8f4c11f1034b7f8c15ab2a1443 (patch) | |
tree | 679867d03ccc819670b3216924b985311f6c83df /t/01_store_fetch_object.t | |
parent | merged pbc branch to master (diff) | |
download | net-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.t | 10 |
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'; -}; +} |