5 use Test::More tests => 3;
6 use Data::Dump qw(dump);
10 use_ok 'CloudStore::memcache';
14 ok( $r = CloudStore::memcache->new, 'server' );
17 my $data = { foo => 0, bar => 100 };
19 for ( 0 .. $data->{bar} ) {
20 ok( $r->set( "test$_", $data), "set $_" );
22 ok( my $v = $r->get( "test$_" ), "get $_" );
25 is_deeply $v, $data, 'correct';