Restore cljs compatibility
This commit is contained in:
parent
830301c843
commit
07eb66759a
3 changed files with 8 additions and 4 deletions
|
|
@ -344,7 +344,7 @@ to identify inline parameter values, and how to add in raw SQL fragments!
|
|||
```
|
||||
```clojure
|
||||
call-qualify-map
|
||||
=> {:where [:and [:= :a [:param :baz]] [:= :b [:inline 42]]]
|
||||
=> '{:where [:and [:= :a [:param :baz]] [:= :b [:inline 42]]]
|
||||
:from (:foo)
|
||||
:select [[[:foo :bar]] [[:raw "@var := foo.bar"]]]}
|
||||
```
|
||||
|
|
|
|||
|
|
@ -460,10 +460,11 @@
|
|||
"in" "not-in" "like" "not-like" "regexp"
|
||||
"ilike" "not-ilike" "similar-to" "not-similar-to"
|
||||
"is" "is-not" "not=" "!=" "regex"}
|
||||
(into (map str "+-*/%|&^=<>"))
|
||||
(into (map str "+-*%|&^=<>"))
|
||||
(into (keys infix-aliases))
|
||||
(into (vals infix-aliases))
|
||||
(->> (into #{} (map keyword)))
|
||||
(conj :/) ; because (keyword "/") does not work in cljs
|
||||
(atom)))
|
||||
|
||||
(def ^:private op-ignore-nil (atom #{:and :or}))
|
||||
|
|
|
|||
|
|
@ -5,7 +5,10 @@
|
|||
(:require #?(:clj [clojure.test :refer [deftest is testing]]
|
||||
:cljs [cljs.test :refer-macros [deftest is testing]])
|
||||
[honey.sql :as sql]
|
||||
[honey.sql.helpers :refer :all]))
|
||||
[honey.sql.helpers
|
||||
:refer [columns cross-join from full-join group-by having insert-into
|
||||
join left-join limit offset order-by right-join
|
||||
select select-distinct values where with]]))
|
||||
|
||||
(deftest test-select
|
||||
(let [m1 (-> (with [:cte (-> (select :*)
|
||||
|
|
@ -263,7 +266,7 @@
|
|||
:from [:collection]
|
||||
:where [:= :personal_owner_id nil]}
|
||||
(clojure.core/for [id ids]
|
||||
[:not-like :location [:raw (clojure.core/format "'/%d/%%'" id)]])))))
|
||||
[:not-like :location [:raw (str "'/" id "/%'")]])))))
|
||||
|
||||
(deftest issue-282
|
||||
(is (= [(str "SELECT id AS id FROM collection"
|
||||
|
|
|
|||
Loading…
Reference in a new issue