Menu
▾
▴
euslisp-commit
|
From: <k-...@us...> - 2013-06-29 07:57:32
|
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.
|
|
From: <k-...@us...> - 2013-06-29 07:57:35
|
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.
|
|
From: <k-...@us...> - 2013-11-22 23:34:09
|
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.
|
|
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.
|
|
From: <k-...@us...> - 2013-11-23 00:00:23
|
Revision: 657
http://sourceforge.net/p/euslisp/code/657
Author: k-okada
Date: 2013-11-23 00:00:14 +0000 (Sat, 23 Nov 2013)
Log Message:
-----------
set number of test is number of assrt, https://sourceforge.net/p/jskeus/tickets/44/
Modified Paths:
--------------
trunk/EusLisp/lib/llib/unittest.l
Modified: trunk/EusLisp/lib/llib/unittest.l
===================================================================
--- trunk/EusLisp/lib/llib/unittest.l 2013-11-22 23:34:02 UTC (rev 656)
+++ trunk/EusLisp/lib/llib/unittest.l 2013-11-23 00:00:14 UTC (rev 657)
@@ -56,7 +56,7 @@
(:init (n) (setq name n tests nil failures nil time 0))
(:tests () tests)
(:num-tests () (length tests))
- (:num-failures () (if failures 1 0)) ;; need fix
+ (:num-failures () (length failures))
(:num-successes () (- (send self :num-tests) (send self :num-failures)))
(:time () time)
(:prin1
@@ -123,8 +123,7 @@
(push (instance unit-test-result :init func-sym) result))
(:clear-result ()
(setq result nil)
- (send self :init-result 'all-test)
- (send self :increment-test 'all-test))
+ )
;;
(:print-xml-result
(&optional (strm t))
@@ -176,7 +175,6 @@
(send *unit-test* :init-result func-sym)
(format t "TEST-NAME: ~A~%" func-sym)
(format t " now testing...~%")
- (send *unit-test* :increment-test func-sym)
(setq tm (instance mtimer :init))
(send tm :start)
(funcall func)
@@ -213,6 +211,7 @@
;; (setq ret (lisp::step ,pred))
;; (setq ret ,pred))
;;
+ (send *unit-test* :increment-test ',pred)
(if (not ret)
;; escape <> for xml
(send *unit-test* :increment-failure ',pred (format nil ,message ,@args)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <k-...@us...> - 2013-11-23 00:00:25
|
Revision: 657
http://sourceforge.net/p/euslisp/code/657
Author: k-okada
Date: 2013-11-23 00:00:14 +0000 (Sat, 23 Nov 2013)
Log Message:
-----------
set number of test is number of assrt, https://sourceforge.net/p/jskeus/tickets/44/
Modified Paths:
--------------
trunk/EusLisp/lib/llib/unittest.l
Modified: trunk/EusLisp/lib/llib/unittest.l
===================================================================
--- trunk/EusLisp/lib/llib/unittest.l 2013-11-22 23:34:02 UTC (rev 656)
+++ trunk/EusLisp/lib/llib/unittest.l 2013-11-23 00:00:14 UTC (rev 657)
@@ -56,7 +56,7 @@
(:init (n) (setq name n tests nil failures nil time 0))
(:tests () tests)
(:num-tests () (length tests))
- (:num-failures () (if failures 1 0)) ;; need fix
+ (:num-failures () (length failures))
(:num-successes () (- (send self :num-tests) (send self :num-failures)))
(:time () time)
(:prin1
@@ -123,8 +123,7 @@
(push (instance unit-test-result :init func-sym) result))
(:clear-result ()
(setq result nil)
- (send self :init-result 'all-test)
- (send self :increment-test 'all-test))
+ )
;;
(:print-xml-result
(&optional (strm t))
@@ -176,7 +175,6 @@
(send *unit-test* :init-result func-sym)
(format t "TEST-NAME: ~A~%" func-sym)
(format t " now testing...~%")
- (send *unit-test* :increment-test func-sym)
(setq tm (instance mtimer :init))
(send tm :start)
(funcall func)
@@ -213,6 +211,7 @@
;; (setq ret (lisp::step ,pred))
;; (setq ret ,pred))
;;
+ (send *unit-test* :increment-test ',pred)
(if (not ret)
;; escape <> for xml
(send *unit-test* :increment-failure ',pred (format nil ,message ,@args)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
×
Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.
Thanks for helping keep SourceForge clean.
X