diff options
| author | scgilardi <scgilardi@gmail.com> | 2008-10-03 23:26:10 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2008-10-03 23:26:10 +0000 |
| commit | f3c6fc60e81e503e57053053684ee1b0e8855e94 (patch) | |
| tree | 2261937021005671466d99259749f0e8da6af225 /src/clojure/contrib/sql/test | |
| parent | fcbdeb6e5b07994b5880f5706d05ae5a619b5456 (diff) | |
improved support for additional options in sql/connection. Based on a suggestion from Tom Emerson.
Diffstat (limited to 'src/clojure/contrib/sql/test')
| -rw-r--r-- | src/clojure/contrib/sql/test/test.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/clojure/contrib/sql/test/test.clj b/src/clojure/contrib/sql/test/test.clj index 4937d96f..83df028f 100644 --- a/src/clojure/contrib/sql/test/test.clj +++ b/src/clojure/contrib/sql/test/test.clj @@ -19,7 +19,7 @@ (Class/forName "org.apache.derby.jdbc.EmbeddedDriver") (defn db [] - (connection "derby" "/tmp/clojure.contrib.sql.test.db;create=true")) + (connection "derby" "/tmp/clojure.contrib.sql.test.db" :create true)) (defn db-write [] (with-connection con (db) @@ -31,12 +31,12 @@ "appearance varchar(32)" "cost int" "grade real") - (insert-rows con "fruit" + (insert-rows con "fruit" ["Apple" "red" 59 87] ["Banana" "yellow" 29 92.2] ["Peach" "fuzzy" 139 90.0] ["Orange" "juicy" 89 88.6]) - (insert-values con "fruit" ["name" "cost"] + (insert-values con "fruit" ["name" "cost"] ["Mango" 722] ["Feijoa" 441]))) @@ -54,7 +54,7 @@ (defn db-exception [] (with-connection con (db) - (insert-values con "fruit" ["name" "appearance"] + (insert-values con "fruit" ["name" "appearance"] ["Grape" "yummy"] ["Pear" "bruised"]) (throw (Exception. "an exception")))) |