remove txn::memory, update test to check if memcachedb is running

1 files changed, 12 insertions, 2 deletions

diff --git a/xt/10_backend.t b/xt/10_backend.t
index 7210a76..9184bcf 100644
--- a/xt/10_backend.t
+++ b/xt/10_backend.t
@@ -5,8 +5,18 @@ use Test::More;
 use Scope::Guard;
 
 BEGIN {
-    #plan skip_all => 'Please set KIOKU_COUCHDB_URI to a CouchDB instance URI' unless $ENV{KIOKU_COUCHDB_URI};
-    plan 'no_plan';
+    use IO::Socket::INET;
+    my $addr = shift || "127.0.0.1:21201";
+    my $msock = IO::Socket::INET->new(
+        PeerAddr => $addr,
+        Timeout  => 3
+    );
+    if ( $msock ) {
+        plan 'no_plan';
+    } else {
+        plan skip_all => "No memcachedb instance running\n";
+        exit 0;
+    }
 }
 
 use ok 'KiokuDB';