Update %run-thunks to make a test-results-db instance.
authorThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Fri, 23 Nov 2012 18:06:59 +0000 (23 12:06 -0600)
committerThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Fri, 23 Nov 2012 18:06:59 +0000 (23 12:06 -0600)
lisp-unit.lisp

index 2819d58..58b8162 100644 (file)
@@ -660,7 +660,7 @@ assertion.")
   "Run the list of test thunks in the package."
   (loop
    with table = (package-table package)
-   and results = (make-instance 'test-results)
+   and results = (make-instance 'test-results-db)
    for test-name in test-names
    as unit-test = (gethash test-name table)
    if unit-test do