From ade1fc13ec613d2318a9c3517bc40837d99f4d99 Mon Sep 17 00:00:00 2001
From: gmaurice <germain.maurice@linkfluence.net>
Date: Sat, 2 Jul 2011 00:03:55 +0200
Subject: allow to setup indexing on a bucket via precommit add tests for
 riaksearch

---
 t/20_search.t | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 t/20_search.t

(limited to 't')

diff --git a/t/20_search.t b/t/20_search.t
new file mode 100644
index 0000000..b25e811
--- /dev/null
+++ b/t/20_search.t
@@ -0,0 +1,30 @@
+use lib 't/lib';
+use Test::More;
+use Test::Riak;
+
+test_riak_rest {
+    my ($client, $bucket_name) = @_;
+    ok $client->setup_indexing($bucket_name), 'setup indexing ok';
+
+    ok my $bucket = $client->bucket($bucket_name), 'got bucket test';
+    my $content = { field => "indexed" };
+
+    ok my $obj = $bucket->new_object(undef, $content),
+      'created a new riak object without a key';
+    ok $obj->store, 'store object without key';
+    ok $obj->key, 'key created';
+
+    is $client->search(
+    	index => $bucket_name,
+    	wt => "json",
+    	q => "field:indexed")->{response}->{docs}[0]->{id},
+    	$obj->key,
+    	'search with index in path';
+
+    is $client->search(
+    	wt => "json",
+    	q => "$bucket_name.field:indexed")->{response}->{docs}[0]->{id},
+    	$obj->key,
+    	'search with index prefixes in query';
+    $obj->delete;
+}
-- 
cgit v1.2.3