added tests for derby database, which doesn't support generated keys

project.clj

@@ -7,7 +7,8 @@
   :dev-dependencies [[swank-clojure               "1.3.0-SNAPSHOT"]
                      [mysql/mysql-connector-java  "5.1.17"]
                      [org.xerial/sqlite-jdbc      "3.7.2"]
-                     [postgresql/postgresql       "8.4-702.jdbc4"]]
+                     [postgresql/postgresql       "8.4-702.jdbc4"]
+                     [org.apache.derby/derby      "10.1.1.0"]]
 
   :repositories {"clojure-releases"  {:url "http://build.clojure.org/releases"}})
 

test/clojureql/test.clj

@@ -39,7 +39,15 @@
    :subname     "/tmp/cql.sqlite3"
    :create      true})
 
-(def databases [mysql postgresql sqlite3])
+(def derby
+  {:classname   "org.apache.derby.jdbc.EmbeddedDriver"
+   :subprotocol "derby"
+   :subname     "/tmp/cql.derby"
+   :create      true})
+
+(def register-derby-driver (-> (Class/forName "org.apache.derby.jdbc.EmbeddedDriver") .newInstance))
+
+(def databases [mysql postgresql sqlite3 derby])
 
 (defn mysql? []
   (isa? (class (connection)) com.mysql.jdbc.JDBC4Connection))
@@ -50,6 +58,9 @@
 (defn sqlite3? []
   (isa? (class (connection)) org.sqlite.Conn))
 
+(defn derby? []
+  (isa? (class (connection)) org.apache.derby.impl.jdbc.EmbedConnection))
+
 (defn drop-if [table]
   (try (drop-table table) (catch Exception _)))
 
@@ -95,6 +106,18 @@
    [:id        :integer "PRIMARY KEY" "AUTOINCREMENT"]
    [:wage      :integer]))
 
+(defmethod create-schema org.apache.derby.impl.jdbc.EmbedConnection []
+  (create-table
+   :users
+   [:id        :integer "PRIMARY KEY" "GENERATED ALWAYS AS IDENTITY"]
+   [:name      "varchar(255)"]
+   [:title     "varchar(255)"]
+   [:birthday  "TIMESTAMP"])
+  (create-table
+   :salary
+   [:id        :integer "PRIMARY KEY" "GENERATED ALWAYS AS IDENTITY"]
+   [:wage      :integer]))
+
 (def users  (-> (table :users) (project [:id :name :title])))
 (def salary (-> (table :salary) (project [:id :wage])))