From: <k-...@us...> - 2013-11-22 23:34:11
|
Revision: 656 http://sourceforge.net/p/euslisp/code/656 Author: k-okada Date: 2013-11-22 23:34:02 +0000 (Fri, 22 Nov 2013) Log Message: ----------- make sure that color is back to black Modified Paths: -------------- trunk/EusLisp/lib/llib/unittest.l Modified: trunk/EusLisp/lib/llib/unittest.l =================================================================== --- trunk/EusLisp/lib/llib/unittest.l 2013-10-25 08:29:24 UTC (rev 655) +++ trunk/EusLisp/lib/llib/unittest.l 2013-11-22 23:34:02 UTC (rev 656) @@ -66,9 +66,10 @@ (format strm " PASSED: ~A~%" (send self :num-successes)) (if (> (send self :num-failures) 0) (format strm "~C[3~Cm" #x1b 49)) - (format strm " FAILURE: ~A~%" (send self :num-failures)) + (format strm " FAILURE: ~A" (send self :num-failures)) (if (> (send self :num-failures) 0) - (format strm "~C[0m" #x1b)) + (format strm "~C[0m~%" #x1b) + (format strm "~%")) ) (:prin1-xml (strm) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |