Add smoke tests for top level API

Author: plexus

repl_sessions/str_rep.clj

@@ -0,0 +1,34 @@
+(ns str-rep
+  (:require [clojure.string :as str]))
+
+(defn left-pad [s len pad]
+  (concat (repeat (- len (count s)) pad) s))
+
+(defn int->hex [i]
+  (str/upper-case
+   (Integer/toHexString i)))
+
+(defn unicode-rep [char]
+  (apply str "\\u" (left-pad (int->hex (long char)) 4 \0)))
+
+(defn char-rep [char]
+  (cond
+    (= \backspace char)
+    "\\b"
+    (= \tab char)
+    "\\t"
+    (= \newline char)
+    "\\n"
+    (= \formfeed char)
+    "\\f"
+    (= \return char)
+    "\\r"
+    (< (long char) 32)
+    (unicode-rep char)
+    :else
+    (str char)))
+
+(defn str-rep [s]
+  (str "\""
+       (apply str (map char-rep s))
+       "\""))

test/lambdaisland/deep_diff2_test.cljc

@@ -0,0 +1,19 @@
+(ns lambdaisland.deep-diff2-test
+  "Smoke tests of the top level API."
+  (:require [lambdaisland.deep-diff2 :as ddiff]
+            [lambdaisland.deep-diff2.diff-impl :as diff-impl]
+            [clojure.test :refer [is are deftest testing]]
+            [clojure.string :as str]))
+
+(deftest diff-test
+  (is (= [{:foo (diff-impl/->Mismatch 1 2)}]
+         (ddiff/diff [{:foo 1}] [{:foo 2}]))))
+
+(deftest printer-test
+  (is (instance? lambdaisland.deep_diff2.puget.printer.PrettyPrinter
+                 (ddiff/printer))))
+
+(deftest pretty-print-test
+  (is (= "\u001B[1;31m[\u001B[0m\u001B[1;31m{\u001B[0m\u001B[1;33m:foo\u001B[0m \u001B[31m-1\u001B[0m \u001B[32m+2\u001B[0m\u001B[1;31m}\u001B[0m\u001B[1;31m]\u001B[0m\n"
+         (with-out-str
+           (ddiff/pretty-print (ddiff/diff [{:foo 1}] [{:foo 2}]))))))