60 lines
2.5 KiB
Clojure
60 lines
2.5 KiB
Clojure
;; Copyright 2016 Mozilla
|
|
;;
|
|
;; Licensed under the Apache License, Version 2.0 (the "License"); you may not use
|
|
;; this file except in compliance with the License. You may obtain a copy of the
|
|
;; License at http://www.apache.org/licenses/LICENSE-2.0
|
|
;; Unless required by applicable law or agreed to in writing, software distributed
|
|
;; under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR
|
|
;; CONDITIONS OF ANY KIND, either express or implied. See the License for the
|
|
;; specific language governing permissions and limitations under the License.
|
|
|
|
(ns datomish.upgrade-test
|
|
(:require
|
|
[clojure.java.io :refer [copy]]
|
|
[datomish.jdbc-sqlite :as jdbc]
|
|
[datomish.sqlite :as s]
|
|
[datomish.api :as d]
|
|
[datomish.test-macros :refer [deftest-async]]
|
|
[datomish.pair-chan :refer [go-pair <?]]
|
|
[clojure.test :as t :refer [is are deftest testing]]))
|
|
|
|
(deftest-async test-upgrade-v1-connect
|
|
;; Copy our test DB to a temporary directory.
|
|
;; Open it with Datomish. Make sure nothing untoward happened.
|
|
(let [out (java.io.File/createTempFile "someprefixstringv1" "db")]
|
|
(copy (java.io.File. "test/v1.db") out)
|
|
(let [path (.getAbsolutePath out)
|
|
conn (<? (d/<connect path))]
|
|
|
|
(is (= (d/entid (d/db conn) :db.schema/version) 36))
|
|
(d/<close conn))))
|
|
|
|
(deftest-async test-upgrade-v1
|
|
;; Copy our test DB to a temporary directory.
|
|
;;
|
|
;; Open it with SQLite. Verify that v2 features are not present, and the
|
|
;; user_version is 1.
|
|
;;
|
|
;; Open it with Datomish. Verify that bootstrapped v2 features are present,
|
|
;; and the user_version is 2.
|
|
(let [out (java.io.File/createTempFile "someprefixstringv1" "db")]
|
|
(copy (java.io.File. "test/v1.db") out)
|
|
(let [path (.getAbsolutePath out)
|
|
sqlite (<? (jdbc/open path))]
|
|
|
|
(is (= (<? (s/get-user-version sqlite))
|
|
1))
|
|
(is (= [{:idx 36}]
|
|
(<? (s/all-rows sqlite ["SELECT idx FROM parts WHERE part = ':db.part/db'"]))))
|
|
(is (empty? (<? (s/all-rows sqlite ["SELECT * FROM idents WHERE ident = ':db.schema/version'"]))))
|
|
|
|
;; This will automatically upgrade.
|
|
(let [db (<? (datomish.db-factory/<db-with-sqlite-connection sqlite))]
|
|
(is (= 2 (<? (s/get-user-version sqlite))))
|
|
(is (= [{:idx 38}]
|
|
(<? (s/all-rows sqlite ["SELECT idx FROM parts WHERE part = ':db.part/db'"]))))
|
|
(is (= [{:entid 36}]
|
|
(<? (s/all-rows sqlite ["SELECT entid FROM idents WHERE ident = ':db.schema/version'"]))))
|
|
(is (= (d/entid db :db.schema/version) 36))
|
|
(s/close sqlite)))))
|
|
|