TANAL-129 Fix failing test by dispatching on *clojure-version*

Author: MageMasher

src/test/clojure/clojure/tools/analyzer/query_test.clj

@@ -8,20 +8,37 @@
             [clojure.tools.analyzer.utils :refer [compile-if]]
             [clojure.tools.analyzer.passes.index-vector-nodes :refer [index-vector-nodes]]))
 
+(def clojure-version-seven-query
+  '[:find ?docstring
+    :where
+    [?def :op :def]
+    [?def :init ?fn]
+    [?fn :methods ?method]
+    [?method :body ?body]
+    [?body :statements ?statement]
+    [?statement :val ?docstring]
+    [?statement :type :string]
+    [?statement :idx 0]])
+
+(def clojure-version-eight-and-above-query
+  '[:find ?docstring
+    :where
+    [?def :op :def]
+    [?def :init ?fn]
+    [?fn :expr ?expr]
+    [?expr :methods ?method]
+    [?method :body ?body]
+    [?body :statements ?statement]
+    [?statement :val ?docstring]
+    [?statement :type :string]
+    [?statement :idx 0]])
+
 (compile-if (Class/forName "datomic.Datom")
  (deftest query
-   (let [ast (ast/prewalk (ast (defn x [] "misplaced docstring" 1))
-                          index-vector-nodes)]
+   (let [ast       (ast/prewalk (ast (defn x [] "misplaced docstring" 1))
+                                index-vector-nodes)
+         the-query (if (< (:minor *clojure-version*) 8)
+                     clojure-version-seven-query
+                     clojure-version-eight-and-above-query)]
      (is (= "misplaced docstring"
-            (ffirst
-             (q '[:find ?docstring
-                  :where
-                  [?def :op :def]
-                  [?def :init ?fn]
-                  [?fn :methods ?method]
-                  [?method :body ?body]
-                  [?body :statements ?statement]
-                  [?statement :val ?docstring]
-                  [?statement :type :string]
-                  [?statement :idx 0]]
-                [ast])))))))
+            (ffirst (q the-query [ast])))))))