Testing H2 MVStore

core_test.clj

(ns h2-test.core-test
  (:require [clojure.test :refer :all]
            [h2-test.core :refer :all])
  (:import [org.h2.mvstore MVStore]
           [java.util UUID]))


(deftest a-test
  (testing "Testing H2"
    (with-open [db (MVStore/open (format "/var/tmp/%s.db" (UUID/randomUUID)))]
      (let [m (.openMap db "data")
            data ["1" :key-2 {:val true}]]
        (.put m :key data)
        (is (= (.get m :key) data))))))