File: 02-new.t

package info (click to toggle)
libtest-mock-redis-perl 0.08-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 180 kB
  • sloc: perl: 1,577; makefile: 2
file content (25 lines) | stat: -rw-r--r-- 423 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#!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();