view release on metacpan or  search on metacpan

t/03_real_riak_test.t  view on Meta::CPAN

subtest "get_bucket_type" => sub {
    plan tests => 1; my $c = _client();

    my $cv = AE::cv;
    $c->get_bucket_type({ type => 'default' },
                     sub { $cv->send($_[0]) } );
    my $res = $cv->recv();
    ok(defined $res->{props}->{basic_quorum});
};

 #    print STDERR Dumper(\@_); use Data::Dumper;

    # print STDERR Dumper($res); use Data::Dumper;

done_testing;

# END {

#     diag "\ncleaning up...";
#     my $client = Riak::Client->new(
#         host => $host, port => $port,
#     );
#     my $another_client = Riak::Client->new(