summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/20_search.t30
1 files changed, 30 insertions, 0 deletions
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;
+}