diff --git a/lib/Redis/Client.pm b/lib/Redis/Client.pm index d21dd10..0854c71 100644 --- a/lib/Redis/Client.pm +++ b/lib/Redis/Client.pm @@ -21,7 +21,7 @@ BEGIN { DEL => [ 1, undef ], EXISTS => 1, EXPIRE => 2, - EXPITEAT => 2, + EXPIREAT => 2, KEYS => 1, MOVE => 2, OBJECT => [ 1, undef ], diff --git a/t/cmd_expireat.t b/t/cmd_expireat.t new file mode 100644 index 0000000..3c2fd7a --- /dev/null +++ b/t/cmd_expireat.t @@ -0,0 +1,22 @@ +#!/usr/bin/env perl + +use strict; +use warnings; +use utf8; +use lib 't'; + +use Test::More; + +# ABSTRACT: Tests for the Redis EXPIREAT command. + +use_ok 'RedisClientTest'; + +my $redis = RedisClientTest->server; +done_testing && exit unless $redis; + +isa_ok $redis, 'Redis::Client'; + +# TODO: write tests! + +done_testing; +