From e73edd1995ca34a4cad28d04dbea9d6360069b6d Mon Sep 17 00:00:00 2001 From: franck cuny Date: Fri, 13 Mar 2009 09:19:48 +0100 Subject: remove txn::memory, update test to check if memcachedb is running --- xt/10_backend.t | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) (limited to 'xt/10_backend.t') 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'; -- cgit v1.2.3