First commit. Taken from open source branch of internal sample-tracking application.
This commit is contained in:
13
test/clj/org/parkerici/sample_tracking/schema_test.clj
Normal file
13
test/clj/org/parkerici/sample_tracking/schema_test.clj
Normal file
@@ -0,0 +1,13 @@
|
||||
(ns org.parkerici.sample-tracking.schema-test
|
||||
(:require [clojure.test :refer :all]
|
||||
[org.parkerici.sample-tracking.db.schema :as sc]
|
||||
[org.parkerici.alzabo.schema :as alz]
|
||||
[org.parkerici.sample-tracking.test-utils :as tu]))
|
||||
|
||||
(deftest validate-schema
|
||||
;; will throw error if invalid
|
||||
(alz/validate-schema sc/schema))
|
||||
|
||||
(deftest test-datomic-schema
|
||||
(tu/with-datomic-context
|
||||
(sc/transact-schema)))
|
||||
Reference in New Issue
Block a user