diff --git a/ChangeLog b/ChangeLog index 761591a9..0aab1aed 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2009-12-27 Yuto Hayamizu + + * test/run-test.el (twittering-run-test): colorize resulting + outputs + 2009-12-27 Satoshi Yatagawa * twittering-mode.el (twittering-http-post-default-sentinel): diff --git a/test/run-test.el b/test/run-test.el index 8e1a96c2..36d27adc 100644 --- a/test/run-test.el +++ b/test/run-test.el @@ -20,8 +20,18 @@ (test-run-all-cases) - (princ (save-excursion (set-buffer "*test-result*") - (buffer-string))) + (save-excursion + (set-buffer "*test-result*") + (beginning-of-buffer) + (while (search-forward-regexp "\\b[0-9]+ pass\\b" nil t) + (replace-match + (concat "\033[1m\033[32m" (match-string 0) "\033[0m"))) + + (beginning-of-buffer) + (while (search-forward-regexp "\\b[0-9]+ fail\\b" nil t) + (replace-match + (concat "\033[1m\033[31m" (match-string 0) "\033[0m"))) + (princ (buffer-string))) (terpri)) (twittering-run-test)