diff options
Diffstat (limited to '')
-rw-r--r-- | t/20_search.t | 30 |
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; +} |