[Euslisp-commit] SF.net SVN: euslisp:[656] trunk/EusLisp/lib/llib/unittest.l

[<k-...@us...>]

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.