yogsototh/humane-test-output
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

colors

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2016-04-29 12:06:58 +02:00
parent ef8a7aa824
commit 44d660e188
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 15 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/pjstadig/util.cljc
View file

@ -1,7 +1,9 @@
(ns pjstadig.util
#?(: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]
[clojure.data :refer [diff]]
[cljs.test :refer [inc-report-counter! testing-vars-str testing-contexts-str get-current-env]]]))
#?(:cljs (:import [goog.string StringBuffer])))
@ -43,20 +45,26 @@
#?(:clj (binding [*out* (pp/get-pretty-writer *out*)]
(let [print-expected (fn [actual]
(print "expected: ")
(print "\u001b[36m")
(pp/pprint expected)
(print " actual: ")
(pp/pprint actual))]
(print "\u001b[0m actual: ")
(print "\u001b[33m")
(pp/pprint actual)
(print "\u001b[0m"))]
(if (seq diffs)
(doseq [[actual [a b]] diffs]
(print-expected actual)
(print " diff:")
(if a
(do (print " - ")
(do (print "\u001b[31m - ")
(pp/pprint a)
(print " + "))
(print " + "))
(print "\u001b[32m + "))
(print "\u001b[32m + "))
(print "\u001b[0m")
(when b
(pp/pprint b)))
(print "\u001b[32m")
(pp/pprint b)
(print "\u001b[0m")))
(print-expected actual))))
:cljs (let [sb (StringBuffer.)]
(binding [*out* (pp/get-pretty-writer (StringBufferWriter. sb))]