Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (ns clojure.zip.tests
- (:use clojure.test)
- (:require [clojure.zip :as zip]))
- (def vecdat [[[1 2 3] [4 [5 6] 7] [8 9]]])
- (def veczip (zip/vector-zip vecdat))
- (def seqdat (list (list 1 2 3) (list 4 (list 5 6) 7) (list 8 9)))
- (def seqzip (zip/seq-zip seqdat))
- (deftest seqveczip
- (testing "it seems seq and vector zippers not behaving the same way"
- (is (= (-> veczip zip/down zip/down zip/node)
- (-> seqzip zip/down zip/node))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement