From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 20 Aug 2010 02:45:31 +0000 (+0000)
Subject: Minor fixes to unit-testing.scm.
X-Git-Tag: 20101212-Gtk~90
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4e41d54757ffcc202e9eff5a73a92f5081849ad9;p=mit-scheme.git

Minor fixes to unit-testing.scm.

- Update copyright years.
- Ignore unused variable CONDITION in ASSERT-ERROR.
- Use RUN-SUB-TEST to run test procedures in RUN-SUB-TESTS

The last one is probably wrong, but without it, running unit tests
crashes in a bizarre way for me.  Example:

(run-unit-tests "runtime/test-ephemeron")
;Loading "runtime/test-ephemeron.com"... done
no-gc: failed 2 sub-tests out of 2 in .32 seconds:
    .0.0:
;Ill-formed failure: key
---

diff --git a/tests/unit-testing.scm b/tests/unit-testing.scm
index ca9ecd40d..f7b01a200 100644
--- a/tests/unit-testing.scm
+++ b/tests/unit-testing.scm
@@ -2,7 +2,7 @@
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-    2006, 2007, 2008, 2009 Massachusetts Institute of Technology
+    2006, 2007, 2008, 2009, 2010 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -121,7 +121,7 @@ USA.
     (if (pair? named-sub-tests)
 	(loop (cdr named-sub-tests)
 	      (cons (cons (caar named-sub-tests)
-			  ((cdar named-sub-tests)))
+			  (run-sub-test (cdar named-sub-tests)))
 		    results))
 	(reverse! results))))
 
@@ -388,6 +388,7 @@ USA.
 	    'RESULT-OBJECT 
 	    (bind-condition-handler condition-types
 		(lambda (condition)
+		  condition		;ignore
 		  (k #f))
 	      thunk)
 	    properties))))
\ No newline at end of file