croak on error while updating properties; use json::{false,true} for allow_mult

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';
 }