eihli
/
clj-tightly-packed-trie
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Comment warn-on-reflection and remove cruft

Browse Source
main
Eric Ihli 3 years ago
parent 00ea29be44
commit 846eee5e92
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File

8
test/tightly_packed_trie_test.clj
Unescape Escape View File

@ -6,7 +6,7 @@
[com.owoga.tightly-packed-trie.encoding :as encoding] [com.owoga.tightly-packed-trie.encoding :as encoding]
[com.owoga.tightly-packed-trie.bit-manip :as bm])) [com.owoga.tightly-packed-trie.bit-manip :as bm]))
(set! *warn-on-reflection* true) #_(set! *warn-on-reflection* true)
(defn value-encode-fn (defn value-encode-fn
(#^bytes [^Integer v] (#^bytes [^Integer v]
@ -97,6 +97,7 @@
(let [trie (trie/make-trie '(1 2 3) 123 '(1 2 1) 121 '(1 2 2) 122 '(1 3 1) 131) (let [trie (trie/make-trie '(1 2 3) 123 '(1 2 1) 121 '(1 2 2) 122 '(1 3 1) 131)
tpt (tpt/tightly-packed-trie trie value-encode-fn value-decode-fn) tpt (tpt/tightly-packed-trie trie value-encode-fn value-decode-fn)
byte-buffer (.byte-buffer tpt)] byte-buffer (.byte-buffer tpt)]
(tpt/wrap-byte-buffer (tpt/wrap-byte-buffer
byte-buffer byte-buffer
(.limit byte-buffer (.limit tpt)) (.limit byte-buffer (.limit tpt))
@ -116,8 +117,3 @@
) )
(let [trie (trie/make-trie '(1 2 3) 123 '(1 2 1) 121 '(1 2 2) 122 '(1 3 1) 131)
initialized-trie (-> trie
(tpt/tightly-packed-trie value-encode-fn value-decode-fn))]
[initialized-trie
trie])

Write Preview
Loading…
Cancel
Save