Merge pull request #8 from ianbishop/master

Add support for union
omnyway-labs · Feb 26, 2019 · fc38fba · fc38fba
2 parents 9c5ad3b + 97429ea
commit fc38fba
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/src/sqly/core.clj b/src/sqly/core.clj
@@ -312,6 +312,11 @@
          (remove nil?)
          (str/join " "))))
 
+(def-sql-op union [{:keys [union]}]
+  (->> union
+       (map emit-select)
+       (str/join " union ")))
+
 (defn emit-columns [columns]
   (when columns
     (->> columns

diff --git a/test/sqly/core_test.clj b/test/sqly/core_test.clj
@@ -356,3 +356,18 @@
 (deftest canonicalize-alpha-numeric-idents
   (is (= "a_v3" (sql/ident-str :a-v3)))
   (is (= "foo/a_v3" (sql/ident-str :foo/a-v3))))
+
+(deftest union-test
+  (is (= (canon
+          ["select related_id,type,description from a_events"
+           " where related_id = '{{related-id}}'"
+           " union "
+           "select related_id,type,description from b_events"
+           " where related_id = '{{related-id}}'"])
+         (sql/sql
+          '{:union [{:select [:related_id :type :description]
+                     :from :a_events
+                     :where {:related_id "{{related-id}}"}}
+                    {:select [:related_id :type :description]
+                     :from :b_events
+                     :where {:related_id "{{related-id}}"}}]}))))