projects
/
perl-Redis.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
b0c52fcdfc19a18d6e7d06f37b49bf98691244ac
[perl-Redis.git]
/
t
/
01-Redis.t
1
#!/usr/bin/perl
2
3
use warnings;
4
use strict;
5
6
use Test::More tests => 6;
7
8
use lib 'lib';
9
10
BEGIN {
11
use_ok( 'Redis' );
12
}
13
14
ok( my $o = Redis->new(), 'new' );
15
16
ok( $o->ping, 'ping' );
17
18
ok( $o->set( foo => 'bar' ), 'set foo' );
19
cmp_ok( $o->get( 'foo' ), 'eq', 'bar', 'get foo' );
20
21
ok( $o->quit, 'quit' );