luciano/nippy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Refactor deftype tests

Browse source
This commit is contained in:
Peter Taoussanis 2022-06-27 09:55:24 +02:00
parent 049197072c
commit 941ad15b0f
1 changed files with 25 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
test/taoensso/nippy/tests/main.clj
View file

@ -1,11 +1,11 @@
(ns taoensso.nippy.tests.main
(:require
[clojure.test :as test :refer (is are deftest run-tests)]
[clojure.test :as test :refer [deftest testing is]]
[clojure.test.check :as tc]
[clojure.test.check.generators :as tc-gens]
[clojure.test.check.properties :as tc-props]
[taoensso.encore :as enc :refer ()]
[taoensso.nippy :as nippy :refer (freeze thaw)]
[taoensso.encore :as enc :refer []]
[taoensso.nippy :as nippy :refer [freeze thaw]]
[taoensso.nippy.benchmarks :as benchmarks]))
(comment (test/run-tests))
@ -90,25 +90,30 @@
(defrecord MyRec [data])
(deftest _types
;;; Extend to custom Type
(testing "Extend to custom type"
(is (thrown? Exception ; No thaw extension yet
(do (alter-var-root #'nippy/*custom-readers* (constantly {}))
(nippy/extend-freeze MyType 1 [x s] (.writeUTF s (.data x)))
(thaw (freeze (MyType. "val"))))))
(is (do (nippy/extend-thaw 1 [s] (MyType. (.readUTF s)))
(let [mt (MyType. "val")] (= (.data ^MyType mt)
(.data ^MyType (thaw (freeze mt)))))))
;;; Extend to custom Record
(is (do (nippy/extend-thaw 1 [s] (MyType. (.readUTF s)))
(let [mt (MyType. "val")]
(=
(.data ^MyType mt)
(.data ^MyType (thaw (freeze mt))))))))
(testing "Extend to custom Record"
(is (do (nippy/extend-freeze MyRec 2 [x s] (.writeUTF s (str "foo-" (:data x))))
(nippy/extend-thaw 2 [s] (MyRec. (.readUTF s)))
(= (MyRec. "foo-val") (thaw (freeze (MyRec. "val"))))))
(=
(do (MyRec. "foo-val"))
(thaw (freeze (MyRec. "val")))))))
;;; Keyword (prefixed) extensions
(testing "Keyword (prefixed) extensions"
(is
(do (nippy/extend-freeze MyRec :nippy-tests/MyRec [x s] (.writeUTF s (:data x)))
(nippy/extend-thaw :nippy-tests/MyRec [s] (MyRec. (.readUTF s)))
(let [mr (MyRec. "val")] (= mr (thaw (freeze mr)))))))
(let [mr (MyRec. "val")] (= mr (thaw (freeze mr))))))))
;;;; Caching