From c9814bd01028e28acfd20e246de2341566e488e6 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Sun, 11 Apr 2010 17:12:40 +0200
Subject: more API cleanup and POD

---
 t/basic.t | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

(limited to 't')

diff --git a/t/basic.t b/t/basic.t
index a16dba0..a898f68 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -25,11 +25,12 @@ ok my $riak = AnyEvent::Riak->new( host => $host, path => $path, w => 1,
 
 # ping
 ok my $ping_one = $riak->is_alive(
-    sub {
-    	my $res = shift;
+    callback => sub {
+        my $res = shift;
         pass "is alive in cb" if $res;
     }
-), 'ping with callback';
+    ),
+    'ping with callback';
 
 ok my $ping_two = $riak->is_alive()->recv, 'ping without callback';
 
@@ -39,8 +40,8 @@ is $s, 1, 'valid response from ping';
 # list bucket
 ok my $bucket_cb = $riak->list_bucket(
     'bar',
-    { props => 'true', keys => 'true' },
-    sub {
+    parameters => { props => 'true', keys => 'true' },
+    callback => sub {
         my $res = shift;
         ok $res->{props};
         is scalar @{ $res->{keys} }, 0, '0 keys in cb';
@@ -48,21 +49,21 @@ ok my $bucket_cb = $riak->list_bucket(
     ),
     'fetch bucket list';
 
-ok my $buckets = $riak->list_bucket('bar')->recv, "fetch bucket list";
+ok my $buckets = $riak->list_bucket('bar')->recv, "fetch bucket list, twice";
 is scalar @{ $buckets->{keys} }, '0', 'no keys';
 
 ok my $res_bucket = $bucket_cb->recv, 'get bucket';
 
-# # set bucket
-# ok my $new_bucket
-#      = $riak->set_bucket( 'foo', { props => { n_val => 2 } } )->recv,
-#      'set a new bucket';
+# set bucket
+ok my $new_bucket
+     = $riak->set_bucket( 'foo', { props => { n_val => 2 } } )->recv,
+     'set a new bucket';
 
-# my $value = {
-#    foo => 'bar',
-# };
+my $value = {
+   foo => 'bar',
+};
 
-# ok my $res = $riak->store('foo', 'bar', $value)->recv, 'set a new key';
+ok my $res = $riak->store('foo', 'bar', $value)->recv, 'set a new key';
 
 # ok $res = $riak->fetch( 'foo', 'bar' )->recv, 'fetch our new key';
 # is_deeply $res, $value, 'value is ok';
-- 
cgit 1.4.1