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

[#93] Pickup record redefinitions at REPL, etc. (@smee)

Browse source
This commit is contained in:
Peter Taoussanis 2017-03-07 16:08:16 +01:00
parent 0819ede2c1
commit 1a8a44286a
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/taoensso/nippy.clj
View file

@ -1097,7 +1097,7 @@
(defn- read-record [in class-name] (defn- read-record [in class-name]
(let [content (thaw-from-in! in)] (let [content (thaw-from-in! in)]
(try (try
(let [class (Class/forName class-name) (let [class (clojure.lang.RT/classForName class-name)
method (.getMethod class "create" class-method-sig)] method (.getMethod class "create" class-method-sig)]
(.invoke method class (into-array Object [content]))) (.invoke method class (into-array Object [content])))
(catch Exception e (catch Exception e

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

@ -232,6 +232,15 @@
(range 50))] (range 50))]
(every? deref futures)))) (every? deref futures))))
;;;; Redefs
(defrecord MyFoo [] Object (toString [_] "v1"))
(str (thaw (freeze (MyFoo.))))
(defrecord MyFoo [] Object (toString [_] "v2"))
(deftest _redefs
(is (= (str (thaw (freeze (MyFoo.)))) "v2")))
;;;; Benchmarks ;;;; Benchmarks
(deftest _benchmarks (deftest _benchmarks