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

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

Revision: 646
          http://sourceforge.net/p/euslisp/code/646
Author:   k-okada
Date:     2013-06-29 07:57:20 +0000 (Sat, 29 Jun 2013)
Log Message:
-----------
add debug message

Modified Paths:
--------------
    trunk/EusLisp/lib/llib/unittest.l

Modified: trunk/EusLisp/lib/llib/unittest.l
===================================================================
--- trunk/EusLisp/lib/llib/unittest.l	2013-06-17 06:06:22 UTC (rev 645)
+++ trunk/EusLisp/lib/llib/unittest.l	2013-06-29 07:57:20 UTC (rev 646)
@@ -164,6 +164,7 @@
   `(progn
      ;; its not cool...
      (defun ,name ()
+       (warning-message 2 "start testing [~A]~%" ',name)
        ,@body)
      (send *unit-test* :add-function ',name)
      ',name))

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.