repro_mpg_bug.clj

(ns repro-mpg-bug.core
  (:require [clojure.java.jdbc :as jdbc]
            [mpg.core :as mpg])
  (:import [java.sql PreparedStatement ParameterMetaData]))

(mpg/patch)

(def db-conn (jdbc/get-connection "postgres://<pg-user>:@localhost:5432/repro_bug"))
(def stmt "INSERT INTO foo (bar) VALUES (?) ")

(def prepared-statement (.prepareStatement db-conn stmt))
(def stmt-conn (.getConnection prepared-statement))
(def meta (.getParameterMetaData prepared-statement))
(.getParameterTypeName meta 1) ;; => "_varchar"
(.setObject prepared-statement 1 (.createArrayOf db-conn "VARCHAR" (to-array "boo")))
(.getParameterTypeName meta 1) ;; => "varchar[]"

(def prepared-statement2 (.prepareStatement db-conn stmt))
(def stmt-conn2 (.getConnection prepared-statement2))
(def meta2 (.getParameterMetaData prepared-statement2))
(.getParameterTypeName meta2 1) ;; => "varchar[]"                                                                                                             
(.setObject prepared-statement2 1 (.createArrayOf db-conn "VARCHAR" (to-array "boo")))
(.getParameterTypeName meta2 1) ;; => "varchar[]"