Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Incorporated integration test code from Datahike #16

Open
wants to merge 7 commits into
base: development
Choose a base branch
from
Open

Incorporated integration test code from Datahike #16

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
5e025dc
Incorporated integration test code from Datahike
yflim Mar 31, 2022
c8110fa
Bug fix: tests spuriously passed because backend value set to default…
yflim Apr 25, 2022
5366886
Use datahike's own integration tests
jsmassa Mar 24, 2023
3c712cd
Merge branch 'development' into integration-tests-from-datahike
jsmassa Mar 24, 2023
dcb1fb3
change .gitignore
jsmassa Apr 7, 2023
a1f51c2
merge main
jsmassa Apr 7, 2023
541c849
cleanups
jsmassa Apr 7, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions .gitignore
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -16,3 +16,4 @@ datahike.mv.db
.idea/
datahike-jdbc.iml
.clj-kondo/
.lsp/
122 changes: 13 additions & 109 deletions test/datahike_jdbc/core_test.cljc
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,8 +1,8 @@
(ns datahike-jdbc.core-test
(:require
#?(:cljs [cljs.test :as t :refer-macros [is are deftest testing]]
:clj [clojure.test :as t :refer [is are deftest testing]])
[datahike.api :as d]
#?(:cljs [cljs.test :as t :refer-macros [deftest]]
:clj [clojure.test :as t :refer [deftest]])
[datahike.integration-test :as dt]
[datahike-jdbc.core]))

(deftest ^:integration test-postgresql
Expand All @@ -13,23 +13,8 @@
:user "alice"
:password "foo"}
:schema-flexibility :read
:keep-history? false}
_ (d/delete-database config)]
(is (not (d/database-exists? config)))
(let [_ (d/create-database config)
conn (d/connect config)]

(d/transact conn [{:db/id 1, :name "Ivan", :age 15}
{:db/id 2, :name "Petr", :age 37}
{:db/id 3, :name "Ivan", :age 37}
{:db/id 4, :age 15}])
(is (= (d/q '[:find ?e :where [?e :name]] @conn)
#{[3] [2] [1]}))

(d/release conn)
(is (d/database-exists? config))
(d/delete-database config)
(is (not (d/database-exists? config))))))
:keep-history? false}]
(dt/integration-test config)))

(deftest ^:integration test-mysql
(let [config {:store {:backend :jdbc
Expand All @@ -38,28 +23,8 @@
:password "foo"
:dbname "config-test"}
:schema-flexibility :write
:keep-history? false}
_ (d/delete-database config)]
(is (not (d/database-exists? config)))
(let [_ (d/create-database config)
conn (d/connect config)]
(d/transact conn [{:db/ident :name
:db/valueType :db.type/string
:db/cardinality :db.cardinality/one}
{:db/ident :age
:db/valueType :db.type/long
:db/cardinality :db.cardinality/one}])
(d/transact conn [{:db/id 1, :name "Ivan", :age 15}
{:db/id 2, :name "Petr", :age 37}
{:db/id 3, :name "Ivan", :age 37}
{:db/id 4, :age 15}])
(is (= (d/q '[:find ?e :where [?e :name]] @conn)
#{[3] [2] [1]}))

(d/release conn)
(is (d/database-exists? config))
(d/delete-database config)
(is (not (d/database-exists? config))))))
:keep-history? false}]
(dt/integration-test config)))

(deftest ^:integration test-mssql
(let [config {:store {:backend :jdbc
Expand All @@ -68,78 +33,17 @@
:password "passwordA1!"
:dbname "tempdb"}
:schema-flexibility :write
:keep-history? false}
_ (d/delete-database config)]
(is (not (d/database-exists? config)))
(let [_ (d/create-database config)
conn (d/connect config)]
(d/transact conn [{:db/ident :name
:db/valueType :db.type/string
:db/cardinality :db.cardinality/one}
{:db/ident :age
:db/valueType :db.type/long
:db/cardinality :db.cardinality/one}])
(d/transact conn [{:db/id 1, :name "Ivan", :age 15}
{:db/id 2, :name "Petr", :age 37}
{:db/id 3, :name "Ivan", :age 37}
{:db/id 4, :age 15}])
(is (= (d/q '[:find ?e :where [?e :name]] @conn)
#{[3] [2] [1]}))

(d/release conn)
(is (d/database-exists? config))
(d/delete-database config)
(is (not (d/database-exists? config))))))
:keep-history? false}]
(dt/integration-test config)))

(deftest ^:integration test-h2
(let [config {:store {:backend :jdbc
:dbtype "h2"
:dbname "./temp/db"}
:schema-flexibility :write
:keep-history? false}
_ (d/delete-database config)]
(is (not (d/database-exists? config)))
(let [_ (d/create-database config)
conn (d/connect config)]

(d/transact conn [{:db/ident :name
:db/valueType :db.type/string
:db/cardinality :db.cardinality/one}
{:db/ident :age
:db/valueType :db.type/long
:db/cardinality :db.cardinality/one}])
(d/transact conn [{:db/id 1, :name "Ivan", :age 15}
{:db/id 2, :name "Petr", :age 37}
{:db/id 3, :name "Ivan", :age 37}
{:db/id 4, :age 15}])
(is (= (d/q '[:find ?e :where [?e :name]] @conn)
#{[3] [2] [1]}))

(d/release conn)
(is (d/database-exists? config))
(d/delete-database config)
(is (not (d/database-exists? config))))))
:keep-history? false}]
(dt/integration-test config)))

(deftest ^:integration test-env
(let [_ (d/delete-database)]
(is (not (d/database-exists?)))
(let [_ (d/create-database)
conn (d/connect)]

(d/transact conn [{:db/ident :name
:db/valueType :db.type/string
:db/cardinality :db.cardinality/one}
{:db/ident :age
:db/valueType :db.type/long
:db/cardinality :db.cardinality/one}])
(d/transact conn [{:db/id 1, :name "Ivan", :age 15}
{:db/id 2, :name "Petr", :age 37}
{:db/id 3, :name "Ivan", :age 37}
{:db/id 4, :age 15}])
(is (= (d/q '[:find ?e :where [?e :name]] @conn)
#{[3] [2] [1]}))

(d/release conn)
(is (d/database-exists?))
(d/delete-database)
(is (not (d/database-exists?))))))
(let [config {:name "test-env"}]
(dt/integration-test config)))