xt/10_backend.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

use strict;
use warnings;

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 ok 'KiokuDB';
use ok 'KiokuDB::Backend::Memcachedb';

use KiokuDB::Test;

my $db = Cache::Memcached->new( { 'servers' => [ '127.0.0.1:21201' ] } );

run_all_fixtures(
    KiokuDB->new(
        backend => KiokuDB::Backend::Memcachedb->new( db => $db, ),
    )
);