[#53] implement 'NodeCoerceable' for 'nil'.

Author: jespera

src/rewrite_clj/node/coerce.clj

@@ -49,6 +49,11 @@
       (token-node v)
       v)))
 
+(extend-protocol NodeCoerceable
+  nil
+  (coerce [v]
+    (token-node nil)))
+
 ;; ## Seqs
 
 (defn- seq-node

test/rewrite_clj/node/coerce_test.clj

@@ -2,7 +2,8 @@
   (:require [midje.sweet :refer :all]
             [rewrite-clj.node.protocols
              :as node :refer [coerce]]
-            [rewrite-clj.node.coerce :refer :all]))
+            [rewrite-clj.node.coerce :refer :all]
+            [rewrite-clj.parser :as p]))
 
 (tabular
   (fact "about sexpr -> node -> sexpr roundtrip."
@@ -52,6 +53,12 @@
         n => #(satisfies? node/Node %)
         (node/sexpr n) => '(var clojure.core/identity)))
 
+(fact "about nil."
+      (let [n (coerce nil)]
+        n => #(satisfies? node/Node %)
+        (node/sexpr n) => nil
+        (p/parse-string "nil") => n))
+
 (defrecord Foo-Bar [a])
 
 (fact "about records."