Skip to content

Instantly share code, notes, and snippets.

@nobutaka
Created September 22, 2010 19:42
Show Gist options
  • Save nobutaka/592372 to your computer and use it in GitHub Desktop.
Save nobutaka/592372 to your computer and use it in GitHub Desktop.
display test result in color.
(use 'clojure.test)
; Green or Red
(defn gor [summary]
(if (successful? summary)
(print (str (char 27) "[32m" "succeeded\n" (char 27) "[m"))
(print (str (char 27) "[31m" "failed\n" (char 27) "[m")))
summary)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment