latin1 test

gistfile1.txt

use strict;
use Test::More;
use t::Redis;

test_redis {
    my $r = shift;
    $r->{encoding} = 'utf8';

    $r->all_cv->begin(sub { $_[0]->send });

    my $info = $r->info->recv;
    is ref $info, 'HASH';
    ok $info->{redis_version};

    my $key = "Vögel";
    my $val = "Grüe";
    $r->set($key => $val, sub { pass "SET" });
    $r->get($key, sub {
            is $_[0], $val, "GET";
    });

    $r->all_cv->end;
    $r->all_cv->recv;
};

done_testing;

# vim:fileencoding=latin1