colors
This commit is contained in:
parent
ef8a7aa824
commit
44d660e188
1 changed files with 15 additions and 7 deletions
|
@ -1,7 +1,9 @@
|
||||||
(ns pjstadig.util
|
(ns pjstadig.util
|
||||||
#?(:clj (:use [clojure.test]))
|
#?(:clj (:use [clojure.test]))
|
||||||
(:require #?@(:clj [[clojure.pprint :as pp]]
|
(:require #?@(:clj [[clojure.pprint :as pp]
|
||||||
|
[clojure.data :refer [diff]]]
|
||||||
:cljs [[cljs.pprint :as pp :include-macros true]
|
:cljs [[cljs.pprint :as pp :include-macros true]
|
||||||
|
[clojure.data :refer [diff]]
|
||||||
[cljs.test :refer [inc-report-counter! testing-vars-str testing-contexts-str get-current-env]]]))
|
[cljs.test :refer [inc-report-counter! testing-vars-str testing-contexts-str get-current-env]]]))
|
||||||
#?(:cljs (:import [goog.string StringBuffer])))
|
#?(:cljs (:import [goog.string StringBuffer])))
|
||||||
|
|
||||||
|
@ -43,20 +45,26 @@
|
||||||
#?(:clj (binding [*out* (pp/get-pretty-writer *out*)]
|
#?(:clj (binding [*out* (pp/get-pretty-writer *out*)]
|
||||||
(let [print-expected (fn [actual]
|
(let [print-expected (fn [actual]
|
||||||
(print "expected: ")
|
(print "expected: ")
|
||||||
|
(print "\u001b[36m")
|
||||||
(pp/pprint expected)
|
(pp/pprint expected)
|
||||||
(print " actual: ")
|
(print "\u001b[0m actual: ")
|
||||||
(pp/pprint actual))]
|
(print "\u001b[33m")
|
||||||
|
(pp/pprint actual)
|
||||||
|
(print "\u001b[0m"))]
|
||||||
(if (seq diffs)
|
(if (seq diffs)
|
||||||
(doseq [[actual [a b]] diffs]
|
(doseq [[actual [a b]] diffs]
|
||||||
(print-expected actual)
|
(print-expected actual)
|
||||||
(print " diff:")
|
(print " diff:")
|
||||||
(if a
|
(if a
|
||||||
(do (print " - ")
|
(do (print "\u001b[31m - ")
|
||||||
(pp/pprint a)
|
(pp/pprint a)
|
||||||
(print " + "))
|
(print "\u001b[32m + "))
|
||||||
(print " + "))
|
(print "\u001b[32m + "))
|
||||||
|
(print "\u001b[0m")
|
||||||
(when b
|
(when b
|
||||||
(pp/pprint b)))
|
(print "\u001b[32m")
|
||||||
|
(pp/pprint b)
|
||||||
|
(print "\u001b[0m")))
|
||||||
(print-expected actual))))
|
(print-expected actual))))
|
||||||
:cljs (let [sb (StringBuffer.)]
|
:cljs (let [sb (StringBuffer.)]
|
||||||
(binding [*out* (pp/get-pretty-writer (StringBufferWriter. sb))]
|
(binding [*out* (pp/get-pretty-writer (StringBufferWriter. sb))]
|
||||||
|
|
Loading…
Reference in a new issue