     (sc/execute *ctx* ["insert into t1 (data) values (?)" data]))
   (let [result (sc/fetch *ctx* "select * from t1")]
     (is (= result [{:data [1 2 3]}]))))
+
+(deftest render-array
+  (let [q (-> (dsl/insert-into :t1)
+              (dsl/insert-values {:data (myintarray [1 2 3])}))]
+    (is (= (fmt/get-sql q {:dialect :pgsql :type :inlined})
+           "insert into t1 (data) values ('{1,2,3}'::bigint[])"))))
+

  (render [self]
    (let [items (->> (map str (.-data self))
                     (interpose ","))]
      (str "{" (apply str items) "}")))

  (bind [self stmt index]
    (let [con (.getConnection stmt)

        (sc/set-rollback! ctx)))))

(use-fixtures :each my-fixture)

(deftype MyJson [data])

