Skip to content
Snippets Groups Projects
Normal view Permalink
encoding_test.clj 824 B
Newer Older
Bruno Burke's avatar
add caching test
Bruno Burke committed
1 
(ns document-storage.postgres.encoding-test
Bruno Burke's avatar
add caching and encoding tests  
Bruno Burke committed
2 3 4 
  (:require [clojure.test :refer :all]
            [document-storage.postgres.encoding :as sut]
            [document-storage.testdata :refer [generate-document]]))
Bruno Burke's avatar
add caching test
Bruno Burke committed
5
Bruno Burke's avatar
add caching and encoding tests  
Bruno Burke committed
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 


(deftest test-encoding-roundtrip
  (testing "Test if a new document can be encoded and then decoded without loss"
    (let [new-document (generate-document)]
      (is (= (-> new-document
                 sut/encode-document
                 sut/decode-document)
             new-document)))))

(deftest test-transit-encoding-roundtrip
  (testing "Test if a new document can be encoded to transit and then decoded without loss"
    (let [new-document (generate-document)]
      (is (= (-> new-document
                 sut/document->transit
                 sut/transit->document)
             new-document)))))