#!perl -T

use strict;
use warnings;
use Test::More;
use Test::Mock::Redis;


my $r = Test::Mock::Redis->new;

$r->set('foo', 'foobar');
is $r->get('foo'), 'foobar';

my $s = Test::Mock::Redis->new;

is $s->get('foo'), 'foobar', 'we got the same mock redis object back';

my $t = Test::Mock::Redis->new(server => 'something.else');

is $t->get('foo'), undef, 'mock redis object with new server is new';


done_testing();