view release on metacpan or  search on metacpan

t/lib/Test/Riak.pm  view on Meta::CPAN

use warnings;
use Test::More 'no_plan';
use_ok 'Net::Riak';

sub import {
    no strict 'refs';
    *{caller()."::test_riak"} = \&{"Test::Riak::test_riak"};
    *{caller()."::test_riak_pbc"} = \&{"Test::Riak::test_riak_pbc"};
    *{caller()."::test_riak_rest"} = \&{"Test::Riak::test_riak_rest"};
    *{caller()."::new_riak_client"} = \&{"Test::Riak::new_riak_client"};
    strict->import;
    warnings->import;
}

sub test_riak (&) {
    my ($test_case) = @_;
    test_riak_rest($test_case);
    test_riak_pbc($test_case);
}

sub test_riak_rest (&) {