     :subprotocol "postgresql"
     :subname "//localhost:5432/alan"
   ; :user "alan"
-  ; :pass "secret" 
+  ; :pass "secret"
   })
 
 (def table-name "rm_case_master" )
 
-(def creation-sql "
+(def creation-sql-str "
   CREATE TABLE rm_case_master (
           ENTERPRISE_ID numeric NOT NULL,
           CASE_ID numeric NOT NULL,

          PRIMARY KEY (ENTERPRISE_ID,CASE_ID,DLP_REVISION_NUMBER)
  ); " )

(defn v0 []
  (newline)
  (println "-----------------------------------------------------------------------------")
  (println "rm-case-master-spec")

  (spy :msg "drop table"
    (jdbc/execute! db-spec [ (format "drop table if exists %s cascade" table-name) ] ))

  (spy :msg "create2"
    (jdbc/execute! db-spec [creation-sql-str] ))

  (spy :msg "insert2"
    (jdbc/execute! db-spec [insert2-str] ))

  (spy :msg "query"
    (jdbc/query db-spec
      (jdbc-sql/select * table-name  )))

 (newline))

(defn -main []
  (drop-create)
  (test0)
)

