diff options
author | franck cuny <franck.cuny@rtgi.fr> | 2009-03-13 09:19:48 +0100 |
---|---|---|
committer | franck cuny <franck.cuny@rtgi.fr> | 2009-03-13 09:19:48 +0100 |
commit | e73edd1995ca34a4cad28d04dbea9d6360069b6d (patch) | |
tree | 7598fb1965319efdb39d3f30ff551b955ee5577a /xt/10_backend.t | |
parent | fix stupid typo (diff) | |
download | kiokudb-backend-memcachedb-e73edd1995ca34a4cad28d04dbea9d6360069b6d.tar.gz |
remove txn::memory, update test to check if memcachedb is running
Diffstat (limited to '')
-rw-r--r-- | xt/10_backend.t | 14 |
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'; |