Add support for usermeta nvps

1 files changed, 105 insertions, 0 deletions

diff --git a/t/26-metadata.t b/t/26-metadata.t
new file mode 100644
index 0000000..bd063c8
--- /dev/null
+++ b/t/26-metadata.t
@@ -0,0 +1,105 @@
+use lib 't/lib';
+use Test::More;
+use Test::Riak;
+
+test_riak {
+    my ($client, $bucket_name) = @_;
+    my $content = '{ "dummy":"content"}';
+    ok my $bucket = $client->bucket($bucket_name),
+        'created bucket object ok';
+
+    {
+    ok my $obj = $bucket->new_object('metaobj', $content),
+        'created a new riak object to hold our metadata';
+    ok $obj->set_meta( mymeta => 'metavalue'),
+        '... and can add metadata to it';
+    ok my $meta_value = $obj->get_meta('mymeta'),
+        '... and can retrieve our metadata from the object';
+    is $meta_value, 'metavalue',
+        '... and metadata has correct value';
+
+    # setting meta overwrites the value; no support for multivalue headers
+    ok $obj->set_meta( mymeta => 'newvalue' ),
+        '... and can update the metadata';
+    ok $meta_value = $obj->get_meta('mymeta'),
+        '... and can retrieve new metadata from the object';
+    is $meta_value, 'newvalue',
+        '... and metadata has new value';
+    ok $obj->store,
+        '... and our object with metadata can be stored ok';
+
+    }
+
+    {
+    ok my $obj = $bucket->get('metaobj'),
+        'Can retrieve object';
+    is $obj->has_meta, 1,
+        '... and object says it has one piece of metadata';
+
+    ok my $meta_value = $obj->get_meta('mymeta'),
+        '... and can retrieve our metadata from the object';
+    is $meta_value, 'newvalue',
+        '... and metadata has expected value';
+
+    ok $obj->set_meta( meta2 => 'metavalue2' ),
+        'Can add a second meta';
+    is $obj->has_meta, 2,
+        '... and meta counter is incremented';
+
+    ok $obj->store,
+        "... and object can be stored again";
+    }
+
+    {
+    my $obj = $bucket->get('metaobj');
+    is $obj->has_meta, 2,
+        'Object says it now has two pieces of metadata';
+    ok $obj->get_meta('meta2'),
+        "... and second meta can be accessed";
+    is $obj->get_meta('meta2'), 'metavalue2',
+        '... and has expected value';
+
+    my $expected = {'meta2' => 'metavalue2', 'mymeta' => 'newvalue' };
+    is_deeply {$obj->all_meta}, $expected,
+        "... and all_meta gives us both metas in a hash";
+
+    ok $obj->remove_meta('meta2'),
+        'Can remove an individual meta';
+    is $obj->has_meta, 1,
+        '... and meta counter is decremented';
+
+    ok !$obj->remove_meta('meta2'),
+        'Double-removing the now-non-existant item returns false';
+    is $obj->has_meta, 1,
+        '... and meta counter is not decremented';
+    ok $obj->store,
+        "... and object can be stored again";
+
+    }
+
+    {
+    my $obj = $bucket->get('metaobj');
+    ok !$obj->get_meta('meta2'),
+        "Deleted meta is no longer available";
+    is $obj->get_meta('mymeta'), 'newvalue',
+        '... but non-deleted meta is still present';
+    }
+
+
+    # cannot add undef values via set_meta
+    {
+    my $obj = $bucket->get('metaobj');
+    eval {
+        $obj->set_meta( meta3 => undef )
+    };
+
+    like $@, qr/Validation failed for 'Str' with value undef/,
+        "Cannot add meta with undef value";
+    is $obj->has_meta, 1,
+        '... and meta counter is unchanged by trying to add invalid data';
+    }
+
+    my $obj = $bucket->get('metaobj');
+    $obj->delete; # teardown
+};
+