Redis.pre-github/t/01-Redis.t

#!/usr/bin/perl

use warnings;
use strict;

use Test::More tests => 93;

use lib 'lib';

BEGIN {
        use_ok( 'Redis' );
}

ok( my $o = Redis->new(), 'new' );

ok( $o->ping, 'ping' );

ok( $o->set( foo => 'bar' ), 'set foo' );
cmp_ok( $o->get( 'foo' ), 'eq', 'bar', 'get foo' );

ok( ! $o->get( 'non-existant' ), 'get non-existant' );

foreach ( 0 .. 42 ) {
        ok(     $o->set( "key-$_" => $_ ),           "set key-$_" );
        cmp_ok( $o->get( "key-$_"       ), 'eq', $_, "get key-$_" );
}

ok( $o->quit, 'quit' );
1	dpavlin	2	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6	dpavlin	4	use Test::More tests => 93;
7	dpavlin	2
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	dpavlin	3	ok( $o->set( foo => 'bar' ), 'set foo' );
19			cmp_ok( $o->get( 'foo' ), 'eq', 'bar', 'get foo' );
20
21	dpavlin	4	ok( ! $o->get( 'non-existant' ), 'get non-existant' );
22
23			foreach ( 0 .. 42 ) {
24			ok( $o->set( "key-$_" => $_ ), "set key-$_" );
25			cmp_ok( $o->get( "key-$_" ), 'eq', $_, "get key-$_" );
26			}
27
28	dpavlin	2	ok( $o->quit, 'quit' );