add tests for whitespace only zippers. (see #20)

Author: Yannick Scherer

test/rewrite_clj/zip/base_test.clj

@@ -55,6 +55,18 @@
       (base/of-file f)
       (base/of-file (.getPath f)))))
 
+(tabular
+  (fact "about zipper creation for whitespace-only nodes."
+      (let [n (node/forms-node [?ws])
+            loc (base/edn n)]
+        (base/tag loc) => :forms
+        (base/sexpr loc) => nil
+        (base/string loc) => ?s
+        (base/root-string loc) => ?s))
+  ?ws                        ?s
+  (node/spaces 3)            "   "
+  (node/comment-node "foo")  ";foo")
+
 (tabular
   (fact "about length calculation."
         (let [s ?s