         (sc/set-rollback! ctx)))))
 
 (use-fixtures :each my-fixture)
-
-;; (deftest inserting-json
-;;   (sc/execute *ctx* "create table t1 (data json, k int)")
-;;   (sc/execute *ctx* ["insert into t1 (data, k) values (?, ?)" (DSL/val #{:foo "bar"} datatype) 3])
-;;   (-> (sc/fetch *ctx* ["select * from t1"])
-;;       (println)))
 
 (deftype MyJson [data])
 

    (sc/execute *ctx* ["insert into t1 (data) values (?)" data]))
  (let [result (sc/fetch *ctx* "select * from t1")]
    (is (= result [{:data [1 2 3]}]))))

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

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