-
-
Save duelinmarkers/65101 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns clj-record.query | |
(:require [clojure.contrib.str-utils :as str-utils])) | |
(defn- clause-and-parameters [join-with values] | |
[(str-utils/str-join join-with (reduce (fn [v1 v2] (conj v1 (if (nil? v2) "NULL" "?"))) [] values)) (filter (complement nil?) values)]) | |
(defn between [value1 value2] | |
(fn [attribute] | |
(let [[clause parameters] (clause-and-parameters " AND " [value1 value2])] | |
[(str (name attribute) " BETWEEN " clause) parameters]))) | |
(defn in [& values] | |
(fn [attribute] | |
(let [[clause parameters] (clause-and-parameters ", " values)] | |
[(str (name attribute) " IN (" clause ")") parameters]))) | |
(defn like [value] | |
(fn [attribute] | |
(let [[clause parameters] (clause-and-parameters "" [value])] | |
[(str (name attribute) " LIKE " clause) parameters]))) | |
;; to-conditions tests | |
["a BETWEEN ? AND ?" 1 3] {:a (query/between 1 3)} | |
["a IN (?, ?, NULL, ?)" "foo" "bar" "baz"] {:a (query/in "foo" "bar" nil "baz")} | |
["a LIKE ?" "h%"] {:a (query/like "h%")} | |
;; An associated test... | |
(defdbtest find-records-using-between | |
(let [humedai (manufacturer/create (valid-manufacturer-with {:name "Humedai Motors" :grade 90})) | |
foyoto (manufacturer/create (valid-manufacturer-with {:name "Foyoto Auto" :grade 78})) | |
gmb (manufacturer/create (valid-manufacturer-with {:name "GMB Motors" :grade 89})) | |
ghysler (manufacturer/create (valid-manufacturer-with {:name "Ghysler Inc" :grade 59})) | |
merledas (manufacturer/create (valid-manufacturer-with {:name "Merledas Automotive" :grade 39}))] | |
(is (= #{ghysler foyoto} (set (manufacturer/find-records {:grade (query/between 40 80)})))))) | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment