From 77a756229f5402cb6c21d12a9bf2650f7f3d2db5 Mon Sep 17 00:00:00 2001
From: Michael Klishin <michael@defprotocol.org>
Date: Wed, 15 May 2013 21:55:10 +0400
Subject: [PATCH] Add tests for custom score queries

References #27
---
 .../queries/custom_score_query_test.clj       | 21 +++++++++++++++++++
 .../queries/custom_score_query_test.clj       | 19 +++++++++++++++++
 2 files changed, 40 insertions(+)
 create mode 100644 test/clojurewerkz/elastisch/native_api/queries/custom_score_query_test.clj
 create mode 100644 test/clojurewerkz/elastisch/rest_api/queries/custom_score_query_test.clj

diff --git a/test/clojurewerkz/elastisch/native_api/queries/custom_score_query_test.clj b/test/clojurewerkz/elastisch/native_api/queries/custom_score_query_test.clj
new file mode 100644
index 00000000..70ffa55c
--- /dev/null
+++ b/test/clojurewerkz/elastisch/native_api/queries/custom_score_query_test.clj
@@ -0,0 +1,21 @@
+(ns clojurewerkz.elastisch.native-api.queries.custom-score-query-test
+  (:require [clojurewerkz.elastisch.native.document :as doc]
+            [clojurewerkz.elastisch.native.index    :as idx]
+            [clojurewerkz.elastisch.query         :as q]
+            [clojurewerkz.elastisch.fixtures :as fx]
+            [clojurewerkz.elastisch.test.helpers      :as th])
+  (:use clojure.test clojurewerkz.elastisch.native.response))
+
+(th/maybe-connect-native-client)
+(use-fixtures :each fx/reset-indexes fx/prepopulate-people-index)
+
+;;
+;; Tests
+;;
+
+(deftest ^{:query true} test-custom-score-query-with-a-basic-script
+  (let [response     (doc/search "people" "person" :query (q/custom-score :query (q/match-all)
+                                                                          :script "doc['age'].value"))
+        hits         (hits-from response)
+        scores       (vec (map :_score hits))]
+    (is (= [37.0 29.0 28.0 22.0] scores))))
diff --git a/test/clojurewerkz/elastisch/rest_api/queries/custom_score_query_test.clj b/test/clojurewerkz/elastisch/rest_api/queries/custom_score_query_test.clj
new file mode 100644
index 00000000..7a852176
--- /dev/null
+++ b/test/clojurewerkz/elastisch/rest_api/queries/custom_score_query_test.clj
@@ -0,0 +1,19 @@
+(ns clojurewerkz.elastisch.rest-api.queries.custom-score-query-test
+  (:require [clojurewerkz.elastisch.rest.document :as doc]
+            [clojurewerkz.elastisch.rest.index    :as idx]
+            [clojurewerkz.elastisch.query         :as q]
+            [clojurewerkz.elastisch.fixtures :as fx])
+  (:use clojure.test clojurewerkz.elastisch.rest.response))
+
+(use-fixtures :each fx/reset-indexes fx/prepopulate-people-index)
+
+;;
+;; Tests
+;;
+
+(deftest ^{:query true} test-custom-score-query-with-a-basic-script
+  (let [response     (doc/search "people" "person" :query (q/custom-score :query (q/match-all)
+                                                                          :script "doc['age'].value"))
+        hits         (hits-from response)
+        scores       (vec (map :_score hits))]
+    (is (= [37.0 29.0 28.0 22.0] scores))))