From 63550f0188cfc6c316acfe663b388268b64c4278 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 14 Dec 2009 16:07:15 +0100
Subject: update code, stil 2 tests failing

---
 t/10_riak.t | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 t/10_riak.t

(limited to 't/10_riak.t')

diff --git a/t/10_riak.t b/t/10_riak.t
new file mode 100644
index 0000000..808a964
--- /dev/null
+++ b/t/10_riak.t
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+
+use Scope::Guard;
+use Test::More 'no_plan';
+
+#BEGIN {
+#    plan skip_all => 'Please set KIOKU_RIAK_URI to a Riak instance URI' unless $ENV{KIOKU_RIAK_URI};
+#    plan 'no_plan';
+#}
+
+use ok 'KiokuDB';
+use ok 'KiokuDB::Backend::Riak';
+
+use KiokuDB::Test;
+
+use AnyEvent::Riak;
+
+my $db = AnyEvent::Riak->new(
+    host => 'http://localhost:8098',
+    path => 'jiak',
+);
+
+my $bucket = $db->list_bucket('kiokudb')->recv;
+foreach my $key (@{$bucket->{keys}}) {
+    $db->delete('kiokudb', $key)->recv;
+}
+
+run_all_fixtures(
+    KiokuDB->new(
+        backend => KiokuDB::Backend::Riak->new(
+            db => $db,
+            bucket => 'kiokudb',
+        ),
+    )
+);
-- 
cgit v1.2.3