add caching test

src/document_storage/postgres/core.clj

@@ -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

test/document_storage/postgres/core_test.clj

@@ -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

test/document_storage/postgres/encoding_test.clj

+(ns document-storage.postgres.encoding-test
+  (:require [document-storage.postgres.encoding :as sut]
+            [clojure.test :as t]))
+

test/document_storage/protocol_test.clj

@@ -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