(import [org.apache.commons.dbcp BasicDataSource])
(require '[clojure.java.jdbc :as sql])

(def ds
  (doto (BasicDataSource.)
    (.setDriverClassName "oracle.jdbc.driver.OracleDriver")
    (.setUrl "jdbc:oracle:thin:@localhost:1521:sstest")
    (.setUsername "testuser")
    (.setPassword "testpass")))

(defn nextval [seq]
  (sql/with-query-results res
    [(str "select " seq ".nextval as id from dual")]
    (-> res first :id long)))

(defn run-test []
  (sql/with-connection {:datasource ds}
    (sql/transaction
     (let [id (nextval "testapp_contacts_seq")]
       (sql/insert-record
        :testapp_contacts
        {:id id
         :fname "John"
         :lname "Smith"
         :email "test@test.com"})))))