storage: migrate from SQLite to H2

add ADR-0002 about migrating to H2

1 files changed, 8 insertions, 8 deletions

diff --git a/test/weepinbell/storage_test.clj b/test/weepinbell/storage_test.clj
index b0df532..0885855 100644
--- a/test/weepinbell/storage_test.clj
+++ b/test/weepinbell/storage_test.clj
@@ -1,7 +1,7 @@
 (ns weepinbell.storage-test

   (:require [clojure.test :refer [testing is deftest]]

             [weepinbell.storage.edn-storage :as edns]

-            [weepinbell.storage.sqlite :as sqlite]

+            [weepinbell.storage.h2 :as h2]

             [weepinbell.storage.worker :as worker]

             [clojure.java.io :as io]

             [clojure.spec.alpha :as s]

@@ -12,16 +12,16 @@
 (def test-edn-file "tmp/testfile")

 (when (.exists (io/file test-edn-file))

   (io/delete-file test-edn-file))

-(def test-sqlite-db "tmp/testsqlite.db")

-(when (.exists (io/file test-sqlite-db))

-  (io/delete-file test-sqlite-db))

+(def test-h2-db "tmp/testh2")

+(when (.exists (io/file test-h2-db))

+  (io/delete-file test-h2-db))

 

 (def edn-storage (edns/use-store test-edn-file))

-(def sqlite-storage (sqlite/use-store test-sqlite-db))

+(def h2-storage (h2/use-store test-h2-db))

 (def storages [edn-storage

-               sqlite-storage

-               (last (worker/start sqlite-storage))

-               (last (worker/start edn-storage))])

+               h2-storage

+               (last (worker/start edn-storage))

+               (last (worker/start h2-storage))])

 

 ;; check if storages conform spec