56 lines
2.7 KiB
Clojure
56 lines
2.7 KiB
Clojure
(ns taoensso.nippy.tests.main
|
|
(:require [expectations :as test :refer :all]
|
|
[taoensso.nippy :as nippy :refer (freeze thaw)]
|
|
[taoensso.nippy.compression :as compression]
|
|
[taoensso.nippy.benchmarks :as benchmarks]))
|
|
|
|
;; Remove stuff from stress-data that breaks roundtrip equality
|
|
(def test-data (dissoc nippy/stress-data :bytes :throwable :exception :ex-info))
|
|
|
|
(defn- before-run {:expectations-options :before-run} [])
|
|
(defn- after-run {:expectations-options :after-run} [])
|
|
|
|
(expect test-data ((comp thaw freeze) test-data))
|
|
(expect test-data ((comp thaw #(freeze % {:legacy-mode true})) test-data))
|
|
(expect test-data ((comp #(thaw % {:password [:salted "p"]})
|
|
#(freeze % {:password [:salted "p"]}))
|
|
test-data))
|
|
(expect test-data ((comp #(thaw % {:compressor compression/lzma2-compressor})
|
|
#(freeze % {:compressor compression/lzma2-compressor}))
|
|
test-data))
|
|
(expect test-data ((comp #(thaw % {:compressor compression/lzma2-compressor
|
|
:password [:salted "p"]})
|
|
#(freeze % {:compressor compression/lzma2-compressor
|
|
:password [:salted "p"]}))
|
|
test-data))
|
|
|
|
(expect AssertionError (thaw (freeze test-data {:password "malformed"})))
|
|
(expect Exception (thaw (freeze test-data {:password [:salted "p"]})))
|
|
(expect Exception (thaw (freeze test-data {:password [:salted "p"]})
|
|
{:compressor nil}))
|
|
|
|
(expect ; Snappy lib compatibility (for legacy versions of Nippy)
|
|
(let [^bytes raw-ba (freeze test-data {:compressor nil})
|
|
^bytes xerial-ba (org.xerial.snappy.Snappy/compress raw-ba)
|
|
^bytes iq80-ba (org.iq80.snappy.Snappy/compress raw-ba)]
|
|
(= (thaw raw-ba)
|
|
(thaw (org.xerial.snappy.Snappy/uncompress xerial-ba))
|
|
(thaw (org.xerial.snappy.Snappy/uncompress iq80-ba))
|
|
(thaw (org.iq80.snappy.Snappy/uncompress iq80-ba 0 (alength iq80-ba)))
|
|
(thaw (org.iq80.snappy.Snappy/uncompress xerial-ba 0 (alength xerial-ba))))))
|
|
|
|
|
|
;;; Extend to custom Type
|
|
(defrecord MyType [data])
|
|
(nippy/extend-freeze MyType 1 [x s] (.writeUTF s (:data x)))
|
|
(expect Exception (thaw (freeze (->MyType "val"))))
|
|
(expect (do (nippy/extend-thaw 1 [s] (->MyType (.readUTF s)))
|
|
(let [type (->MyType "val")] (= type (thaw (freeze type))))))
|
|
|
|
;;; Extend to custom Record
|
|
(defrecord MyRec [data])
|
|
(expect (do (nippy/extend-freeze MyRec 2 [x s] (.writeUTF s (str "fast-" (:data x))))
|
|
(nippy/extend-thaw 2 [s] (->MyRec (.readUTF s)))
|
|
(= (->MyRec "fast-val") (thaw (freeze (->MyRec "val"))))))
|
|
|
|
(expect (benchmarks/bench {})) ; Also tests :cached passwords
|