extract common redis code

[MQR.git] / t / 10-Redis.t

diff --git a/t/10-Redis.t b/t/10-Redis.t
new file mode 100755 (executable)
index 0000000..07b76e5
--- /dev/null
+++ b/t/10-Redis.t
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use Test::More tests => 3;
+
+use lib 'lib';
+
+BEGIN {
+       use_ok( 'MQR::Redis' );
+}
+
+ok( my $o = MQR::Redis->redis, 'redis' );
+
+ok( MQR::Redis->publish( 'TEST' => $0 ), 'publish' );
+