Additional test for embedded quote string coercion (#218)

Thanks to @borkdude for noticing we weren't really covering here.

Amendment to #176

Co-authored-by: Michiel Borkent <[email protected]>

Author: lread

test/rewrite_clj/node/coercer_test.cljc

@@ -66,7 +66,9 @@
   (testing "multi-line string newline variants are normalized"
     (let [s "hey\nyou\rover\r\nthere"
           n (node/coerce s)]
-      (is (= "hey\nyou\nover\nthere" (node/sexpr n))))))
+      (is (= "hey\nyou\nover\nthere" (node/sexpr n)))))
+  (testing "coerce string roundtrip"
+    (is (= "\"hey \\\" man\"" (-> "hey \" man" node/coerce node/string)))))
 
 (deftest
   t-quoted-list-reader-location-metadata-elided