t/30-nonblock.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More;
   6 use Redis;
   7
   8 my $r = Redis->new;
   9
  10 ## Try to read from server (nothing sent, so nothing to read)
  11 ## But kill if we block
  12 local $SIG{ALRM} = sub { kill 9, $$ };
  13 alarm(2);
  14 ok(!$r->__can_read_sock, "Nothing to read, didn't block");
  15 alarm(0);
  16
  17 done_testing();