From 10193a03a80734bb41cfb970da50ae30ff8bde0b Mon Sep 17 00:00:00 2001 From: Joseph A. Oswald, III Date: Sat, 18 Jul 2009 12:51:54 -0400 Subject: [PATCH] Fix self-tests Properly empty out test database for self-testing. --- rt-test.lisp | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/rt-test.lisp b/rt-test.lisp index ff603b5..9341671 100644 --- a/rt-test.lisp +++ b/rt-test.lisp @@ -34,9 +34,12 @@ (defmacro with-empty-test-database (&body body) `(let ((regression-test::*entries* (list nil)) + (regression-test::*entries-table* (make-hash-table + :test #'equal)) (*test* nil) (regression-test::*in-test* nil)) - ,@body)) + (let ((regression-test::*entries-tail* regression-test::*entries*)) + ,@body))) (defun do-setup (form) (with-empty-test-database -- 1.5.4.5