diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-06-16 14:28:55 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-06-16 14:28:55 +0200 |
| commit | 97db9ec02dd488556156ec9c70b6b38228dd85ab (patch) | |
| tree | 168f79fdb4f71f660bb1923f2ba772cf337ee43c /t/01_basic.t | |
| parent | more tests - properties (diff) | |
| download | net-riak-97db9ec02dd488556156ec9c70b6b38228dd85ab.tar.gz | |
croak on error while updating properties; use json::{false,true} for allow_mult
Diffstat (limited to 't/01_basic.t')
| -rw-r--r-- | t/01_basic.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/01_basic.t b/t/01_basic.t index a17f425..799f000 100644 --- a/t/01_basic.t +++ b/t/01_basic.t @@ -60,11 +60,13 @@ my $bucket_multi = 'multiBucket2'; { my $client = Net::Riak->new(); my $bucket = $client->bucket($bucket_name); - $bucket->allow_multiples('True'); + $bucket->allow_multiples(1); + my $props = $bucket->get_properties; my $res = $bucket->allow_multiples; $bucket->n_val(3); is $bucket->n_val, 3, 'n_val is set to 3'; - $bucket->set_properties({allow_mult => "False", "n_val" => 2}); + $bucket->set_properties({allow_mult => 0, "n_val" => 2}); + $res = $bucket->allow_multiples; ok !$bucket->allow_multiples, "don't allow multiple anymore"; is $bucket->n_val, 2, 'n_val is set to 2'; } |