sql: improve error reporting on SQLException including BatchUpdateException

1 files changed, 23 insertions, 0 deletions

diff --git a/src/clojure/contrib/sql/test.clj b/src/clojure/contrib/sql/test.clj
index 0c586688..375ee53d 100644
--- a/src/clojure/contrib/sql/test.clj
+++ b/src/clojure/contrib/sql/test.clj
@@ -173,6 +173,29 @@
     ;; untouched.
     (throw (Exception. "sql/test exception")))))
 
+(defn db-sql-exception
+  "Demonstrate an sql exception"
+  []
+  (sql/with-connection
+   db
+   (sql/transaction
+    (sql/insert-values
+     :fruit
+     [:name :appearance]
+     ["Grape" "yummy"]
+     ["Pear" "bruised"]
+     ["Apple" "strange" "whoops"]))))
+
+(defn db-batchupdate-exception
+  "Demonstrate a batch update exception"
+  []
+  (sql/with-connection
+   db
+   (sql/transaction
+    (sql/do-commands
+     "DROP TABLE fruit"
+     "DROP TABLE fruit"))))
+
 (defn db-rollback
   "Demonstrate a rollback-only trasaction"
   []