Allow advanced queries to pull in dsl rules as needed

- Remove unused query' and when checks from custom-query
- Update bb command to use correct watch
- Provide $EXAMPLE mode in query dsl test to document rule usage
This commit is contained in:
Gabriel Horner
2022-03-09 15:21:13 -05:00
committed by Tienson Qin
parent a7b230d71d
commit 79bbf21f7d
7 changed files with 153 additions and 22 deletions

View File

@@ -15,10 +15,25 @@
;; Test helpers
;; ============
(def dsl-query*
"When $EXAMPLE set, prints query result of build query. Useful for
documenting examples and debugging"
(if (some? js/process.env.EXAMPLE)
(fn dsl-query-star [& args]
(let [old-build-query query-dsl/build-query]
(with-redefs [query-dsl/build-query
(fn [& args']
(let [res (apply old-build-query args')]
(println "EXAMPLE:" (pr-str (:query res)))
res))]
(apply query-dsl/query args))))
query-dsl/query))
(defn- dsl-query
[s]
(db/clear-query-state!)
(when-let [result (query-dsl/query test-helper/test-db s)]
(when-let [result (dsl-query* test-helper/test-db s)]
(map first (deref result))))
(defn- custom-query