### ----------------------------------------------------
### -- Redis
### -- Licenses: Artistic-2.0
### -- Authors: Yecheng Fu, Raku Community
### -- File: t/02-connection.rakutest
### ----------------------------------------------------
use Test;
use Redis;

use lib "t";
use Test::SpawnRedisServer;

plan 4;

if SpawnRedis() -> $proc {
    LEAVE {
        $proc.kill('INT');
    }
    my $r = Redis.new("127.0.0.1:63790", decode_response => True);
    $r.auth('20bdfc8e73365b2fde82d7b17c3e429a9a94c5c9');

#dies-ok { $r.auth("WRONG PASSWORD"); }
    is-deeply $r.echo("Hello World!"), "Hello World!";
    is-deeply $r.ping, True;
    is-deeply $r.select(2), True;
    is-deeply $r.quit, True;
}
else {
    skip-rest "no redis-server";
}

# vim: expandtab shiftwidth=4


