Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

updated for new lisp-unit

  • Loading branch information...
commit e948e3c3634d2fc3bd48d81ab3012e2f85b83cf4 1 parent 7493290
Russ Tyndall authored October 16, 2012

Showing 1 changed file with 13 additions and 11 deletions. Show diff stats Hide diff stats

  1. 24  tests/setup.lisp
24  tests/setup.lisp
@@ -48,19 +48,21 @@
48 48
        )))
49 49
 
50 50
 (defun run-tests (&key suites tests (use-debugger T))
51  
-  (let* ((*package* (find-package :cl-mediawiki-test))
  51
+  (let* ((*package* (find-package :buildnode-test))
  52
+         (lisp-unit:*print-failures* t)
  53
+         (lisp-unit:*print-errors* t)
52 54
 	 (lisp-unit::*use-debugger* use-debugger)
53 55
 	 (tests (append (alexandria:ensure-list tests)
54 56
 			(loop for suite in (alexandria:ensure-list suites)
55  
-			      appending (get suite :tests))))
56  
-	 (out (with-output-to-string (*standard-output*)
57  
-		(lisp-unit::run-test-thunks
58  
-		 (lisp-unit::get-test-thunks
59  
-		  (if (null tests)
60  
-		      (get-tests *package*)
61  
-		      tests))))))
62  
-    
  57
+                              appending (get suite :tests))))
  58
+         (actual-std-out *standard-output*)
  59
+	 (out (with-output-to-string (s)
  60
+		(let ((*standard-output*
  61
+                        (make-broadcast-stream s actual-std-out)))
  62
+                  (if (null tests)
  63
+                      (lisp-unit::%run-all-thunks)
  64
+                      (lisp-unit::%run-thunks tests))))))
63 65
     (format *standard-output*
64  
-	    "~&~% ** TEST RESULTS: Cl-Mediawiki ** ~%-----------~%~A~%------ END TEST RESULTS ------~%"
65  
-	    out)))
  66
+     "~&~% ** TEST RESULTS: CL-MEDIAWIKI ** ~%-----------~%~A~%------ END TEST RESULTS ------~%"
  67
+     out)))
66 68
 

0 notes on commit e948e3c

Please sign in to comment.
Something went wrong with that request. Please try again.