Skip to content
Snippets Groups Projects
Commit d5e8ab54 authored by Bruno Burke's avatar Bruno Burke :hamburger:
Browse files

add caching test

parent 240cf557
No related branches found
No related tags found
1 merge request!1Draft: Migration
Pipeline #95839 passed
......@@ -29,6 +29,7 @@
(reset-cache [this] "Clear and reset the document cache")
(cached-repository? [this repository] "Checks if the repository will use caching")
(run-query [this query-key params] "Run a Query on a DB-based Storage"))
;;;TODO cached-document? method
(defrecord postgres-storage [storage-id params connection queries]
db-storage
......
......@@ -31,5 +31,38 @@
(deftest find-document-test
(protocol-tests/test-find-documents ds-atom))
(deftest test-update-repository
(testing "create repository and check if update repository changes repository options"
(let [reponame (str (gensym "r"))]
(.create-repository @ds-atom {:name reponame
:caching false
:versioning false})
(is (= (.cached-repository? @ds-atom reponame) false) "Initial repo with caching false should return false for cached-repository? method")
(is (= (.versioned-repository? @ds-atom reponame) false) "Initial repo with versioning false should return false for versioned-repository? method")
(.update-repository @ds-atom {:name reponame
:caching true
:versioning false})
(is (= (.cached-repository? @ds-atom reponame) true) "Updated repo with caching true should return true for cached-repository? method")
(is (= (.versioned-repository? @ds-atom reponame) false) "Updated repo with versioning false should return false for versioned-repository? method")
(.update-repository @ds-atom {:name reponame
:caching true
:versioning true})
(is (= (.cached-repository? @ds-atom reponame) true) "Updated repo with caching true should return true for cached-repository? method")
(is (= (.versioned-repository? @ds-atom reponame) true) "Updated repo with versioning true should return true for versioned-repository? method")
(.update-repository @ds-atom {:name reponame
:caching false
:versioning true})
(is (= (.cached-repository? @ds-atom reponame) false) "Updated repo with caching false should return false for cached-repository? method")
(is (= (.versioned-repository? @ds-atom reponame) true) "Updated repo with versioning true should return true for versioned-repository? method")
(.update-repository @ds-atom {:name reponame
:caching false
:versioning false})
(is (= (.cached-repository? @ds-atom reponame) false) "Updated repo with caching false should return false for cached-repository? method")
(is (= (.versioned-repository? @ds-atom reponame) false) "Updated repo with versioning false should return false for versioned-repository? method")
(.delete-repository @ds-atom reponame))))
;;;TODO reset-cache
;;;TODO test if versioning/caching parameters are set correctly for new repositories
(ns document-storage.postgres.encoding-test
(:require [document-storage.postgres.encoding :as sut]
[clojure.test :as t]))
......@@ -65,3 +65,10 @@
(is (= 1 (count find-results)) "Search should return only one document")
(is (= needle (first (vals find-results))) "Search should return testdocument")))))
;;;TODO deftest delete-document
;;;TODO shutdown
;;;TODO get-document-size
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment