projects
/
perl-Redis.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
1235189e22af3cf04ed9bf5b2775f419982553ea
[perl-Redis.git]
/
t
/
01-Redis.t
1
#!/usr/bin/perl
2
3
use warnings;
4
use strict;
5
6
use Test::More tests => 4;
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->quit, 'quit' );