From 94311b4fa477b370033cb644fbabc9655966a271 Mon Sep 17 00:00:00 2001 From: Nelson Morris Date: Thu, 1 Mar 2012 01:10:13 -0600 Subject: [PATCH] Test for sqlite3 transactions --- src/test/clojure/clojure/java/test_jdbc.clj | 14 ++++++++++++++ 1 files changed, 14 insertions(+), 0 deletions(-) diff --git a/src/test/clojure/clojure/java/test_jdbc.clj b/src/test/clojure/clojure/java/test_jdbc.clj index 1cbc840..b45b3ea 100644 --- a/src/test/clojure/clojure/java/test_jdbc.clj +++ b/src/test/clojure/clojure/java/test_jdbc.clj @@ -327,6 +327,20 @@ (is (= 0 (sql/with-query-results res ["SELECT * FROM fruit"] (count res)))))) (is (= 0 (sql/with-query-results res ["SELECT * FROM fruit"] (count res))))))) +(deftest test-transactions-work-with-generated-keys + (doseq [db (test-specs)] + (sql/with-connection db + (create-test-table :fruit db) + (try + (sql/transaction + (sql/set-rollback-only) + (sql/insert-values + :fruit + [:name :appearance] + ["Grape" "yummy"]) + (is (= 1 (sql/with-query-results res ["SELECT * FROM fruit"] (count res)))))) + (is (= 0 (sql/with-query-results res ["SELECT * FROM fruit"] (count res))))))) + (deftest test-metadata (doseq [db (test-specs)] (when-not (.endsWith ^String (:subprotocol db) "sqlserver") -- 1.7.4.1