From 1fdd50d6b01ca69c4de2cc7d98bb1cd776612a8a Mon Sep 17 00:00:00 2001
From: Sean Corfield <sean@corfield.org>
Date: Mon, 28 Sep 2020 13:18:34 -0700
Subject: [PATCH] Add more tests on insert

---
 test/honey/sql_test.cljc | 49 +++++++++++++++++++++++++++++++++++++++-
 1 file changed, 48 insertions(+), 1 deletion(-)

diff --git a/test/honey/sql_test.cljc b/test/honey/sql_test.cljc
index fe741d0..8071fb1 100644
--- a/test/honey/sql_test.cljc
+++ b/test/honey/sql_test.cljc
@@ -215,6 +215,10 @@
                     :from [:bar]
                     :where [:= [:mod :col1 4] [:+ :col2 4]]}))))
 
+  (testing "Example from dharrigan"
+    (is (= ["SELECT pg_try_advisory_lock(1)"]
+           (format {:select [:%pg_try_advisory_lock.1]}))))
+
   (testing "Value context only applies to sequences in value/comparison spots"
     (let [sub {:select [:%sum.amount]
                :from [:bar]
@@ -236,7 +240,6 @@
                           {:values [[1 2] [3 4] [5 6]]}]]})
          ["WITH bar (spam, eggs) AS (VALUES (?, ?), (?, ?), (?, ?)) SELECT foo FROM bar1 UNION SELECT foo FROM bar2" 1 2 3 4 5 6])))
 
-
 (deftest union-all-with-cte
   (is (= (format {:union-all [{:select [:foo] :from [:bar1]}
                               {:select [:foo] :from [:bar2]}]
@@ -399,6 +402,50 @@
                   :from [[:foo :f]]
                   :cross-join [[:bar :b]]}))))
 
+(deftest insert-example-tests
+  ;; these examples are taken from https://www.postgresql.org/docs/13/sql-insert.html
+  (is (= ["
+INSERT INTO films
+VALUES ('UA502', 'Bananas', 105, '1971-07-13', 'Comedy', '82 minutes')
+"]
+         (format {:insert-into :films
+                  :values [[[:inline "UA502"] [:inline "Bananas"] [:inline 105]
+                            [:inline "1971-07-13"] [:inline "Comedy"]
+                            [:inline "82 minutes"]]]}
+                 {:pretty? true})))
+  (is (= ["
+INSERT INTO films
+VALUES (?, ?, ?, ?, ?, ?)
+" "UA502", "Bananas", 105, "1971-07-13", "Comedy", "82 minutes"]
+         (format {:insert-into :films
+                  :values [["UA502" "Bananas" 105 "1971-07-13" "Comedy" "82 minutes"]]}
+                 {:pretty? true})))
+  (is (= ["
+INSERT INTO films
+(code, title, did, date_prod, kind)
+VALUES (?, ?, ?, ?, ?)
+" "T_601", "Yojimo", 106, "1961-06-16", "Drama"]
+         (format {:insert-into :films
+                  :columns [:code :title :did :date_prod :kind]
+                  :values [["T_601", "Yojimo", 106, "1961-06-16", "Drama"]]}
+                 {:pretty? true})))
+  (is (= ["
+INSERT INTO films
+VALUES (?, ?, ?, DEFAULT, ?, ?)
+" "UA502", "Bananas", 105, "Comedy", "82 minutes"]
+         (format {:insert-into :films
+                  :values [["UA502" "Bananas" 105 [:default] "Comedy" "82 minutes"]]}
+                 {:pretty? true})))
+  (is (= ["
+INSERT INTO films
+(code, title, did, date_prod, kind)
+VALUES (?, ?, ?, DEFAULT, ?)
+" "T_601", "Yojimo", 106, "Drama"]
+         (format {:insert-into :films
+                  :columns [:code :title :did :date_prod :kind]
+                  :values [["T_601", "Yojimo", 106, [:default], "Drama"]]}
+                 {:pretty? true}))))
+
 (deftest on-conflict-tests
   ;; these examples are taken from https://www.postgresqltutorial.com/postgresql-upsert/
   (is (= ["