The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use 5.008000;
use strict;
use warnings;

use Test::More tests => 25;
use AnyEvent::Redis::RipeRedis qw( :err_codes );

is( E_CANT_CONN, 1, 'E_CANT_CONN' );
is( E_LOADING_DATASET, 2, 'E_LOADING_DATASET' );
is( E_IO, 3, 'E_IO' );
is( E_CONN_CLOSED_BY_REMOTE_HOST, 4, 'E_CONN_CLOSED_BY_REMOTE_HOST' );
is( E_CONN_CLOSED_BY_CLIENT, 5, 'E_CONN_CLOSED_BY_CLIENT' );
is( E_NO_CONN, 6, 'E_NO_CONN' );
is( E_OPRN_ERROR, 9, 'E_OPRN_ERROR' );
is( E_UNEXPECTED_DATA, 10, 'E_UNEXPECTED_DATA' );
is( E_NO_SCRIPT, 11, 'E_NO_SCRIPT' );
is( E_READ_TIMEDOUT, 12, 'E_RESP_TIMEDOUT' );
is( E_BUSY, 13, 'E_BUSY' );
is( E_MASTER_DOWN, 14, 'E_MASTER_DOWN' );
is( E_MISCONF, 15, 'E_MISCONF' );
is( E_READONLY, 16, 'E_READONLY' );
is( E_OOM, 17, 'E_OOM' );
is( E_EXEC_ABORT, 18, 'E_EXEC_ABORT' );
is( E_NO_AUTH, 19, 'E_NO_AUTH' );
is( E_WRONG_TYPE, 20, 'E_WRONG_TYPE' );
is( E_NO_REPLICAS, 21, 'E_NO_REPLICAS' );
is( E_BUSY_KEY, 22, 'E_BUSY_KEY' );
is( E_CROSS_SLOT, 23, 'E_CROSS_SLOT' );
is( E_TRY_AGAIN, 24, 'E_TRY_AGAIN' );
is( E_ASK, 25, 'E_ASK' );
is( E_MOVED, 26, 'E_MOVED' );
is( E_CLUSTER_DOWN, 27, 'E_CLUSTER_DOWN' );