From 4e41d54757ffcc202e9eff5a73a92f5081849ad9 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 20 Aug 2010 02:45:31 +0000 Subject: [PATCH] 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 --- tests/unit-testing.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 -- 2.25.1