use lib 't/lib';
test_riak {
my ($client, $bucket_name) = @_;
my $bucket = $client->bucket($bucket_name);
$bucket->allow_multiples(1);
my $props = $bucket->get_properties;
is ref($props), 'HASH', 'get properties returns a hash';
is $bucket->allow_multiples, 1, 'allow multiples returns true';
$bucket->n_val(3);
is $bucket->n_val, 3, 'n_val is set to 3';
$bucket->set_properties({allow_mult => 0, "n_val" => 2});
is $bucket->allow_multiples, 0, "don't allow multiple anymore";
is $bucket->n_val, 2, 'n_val is set to 2';
}