/[Redis.pre-github]/t/01-Redis.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /t/01-Redis.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 68 by dpavlin, Mon Sep 14 11:37:25 2009 UTC revision 69 by dpavlin, Wed Mar 17 18:22:09 2010 UTC
# Line 3  Line 3 
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
6  use Test::More tests => 108;  use Test::More tests => 110;
7  use Data::Dumper;  use Data::Dumper;
8    
9  use lib 'lib';  use lib 'lib';
# Line 30  ok( $o->set( foo => 'baz' ), 'set foo => Line 30  ok( $o->set( foo => 'baz' ), 'set foo =>
30    
31  cmp_ok( $o->get( 'foo' ), 'eq', 'baz', 'get foo = baz' );  cmp_ok( $o->get( 'foo' ), 'eq', 'baz', 'get foo = baz' );
32    
33    my $euro = "\x{20ac}";
34    ok( $o->set( utf8 => $euro ), 'set utf8' );
35    cmp_ok( $o->get( 'utf8' ), 'eq', $euro, 'get utf8' );
36    
37  ok( $o->set( 'test-undef' => 42 ), 'set test-undef' );  ok( $o->set( 'test-undef' => 42 ), 'set test-undef' );
38  ok( $o->set( 'test-undef' => undef ), 'set undef' );  ok( $o->set( 'test-undef' => undef ), 'set undef' );
39  ok( ! defined $o->get( 'test-undef' ), 'get undef' );  ok( ! defined $o->get( 'test-undef' ), 'get undef' );

Legend:
Removed from v.68  
changed lines
  Added in v.69

  ViewVC Help
Powered by ViewVC 1.1.26