t/10-Redis.t

   1 #!/usr/bin/perl
   2
   3 use Test::More tests => 3;
   4
   5 use lib 'lib';
   6
   7 BEGIN {
   8         use_ok( 'MQR::Redis' );
   9 }
  10
  11 ok( my $o = MQR::Redis->redis, 'redis' );
  12
  13 ok( MQR::Redis->publish( 'TEST' => $0 ), 'publish' );
  14
  15 #AE::cv->recv;
  16 # this will never send publish to queue