diff options
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'; -}; +} |