summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--lib/KiokuDB/Backend/Memcachedb.pm5
-rw-r--r--xt/10_backend.t14
2 files changed, 12 insertions, 7 deletions
diff --git a/lib/KiokuDB/Backend/Memcachedb.pm b/lib/KiokuDB/Backend/Memcachedb.pm
index 9d185ad..889d799 100644
--- a/lib/KiokuDB/Backend/Memcachedb.pm
+++ b/lib/KiokuDB/Backend/Memcachedb.pm
@@ -13,7 +13,6 @@ our $VERSION = "0.01";
 with qw(
     KiokuDB::Backend
     KiokuDB::Backend::Serialize::Delegate
-	KiokuDB::Backend::Role::Clear
 );
 
 sub BUILD {
@@ -80,10 +79,6 @@ sub delete {
     $self->db->delete($_) foreach (@ids);
 }
 
-sub clear {
-	shift->db->flush_all;
-}
-
 __PACKAGE__->meta->make_immutable;
 
 __PACKAGE__
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';