diff options
Diffstat (limited to 'src/clojure/contrib/sql/test.clj')
| -rw-r--r-- | src/clojure/contrib/sql/test.clj | 23 |
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" [] |