From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Fri, 23 Apr 2004 12:01:43 +0000 (+0000)
Subject: r9154: add missing lispworks results
X-Git-Tag: v3.8.6~581
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=813ae0f6f92e4b9dfac48528d64a6ae8b229d3a1

r9154: add missing lispworks results
---

diff --git a/LATEST-TEST-RESULTS b/LATEST-TEST-RESULTS
index f2e3aca..29a45c9 100644
--- a/LATEST-TEST-RESULTS
+++ b/LATEST-TEST-RESULTS
@@ -14,6 +14,12 @@ MYSQL: All 83 tests passed (X86, CMU Common Lisp).
 SQLITE: All 88 tests passed (X86, CMU Common Lisp).
 ODBC/MYSQL: All 83 tests passed (X86, CMU Common Lisp).
 ODBC/POSTGRESQL: All 95 tests passed (X86, CMU Common Lisp).
+POSTGRESQL: All 95 tests passed (NIL, LispWorks).
+POSTGRESQL-SOCKET: All 95 tests passed (NIL, LispWorks).
+MYSQL: All 83 tests passed (NIL, LispWorks).
+SQLITE: All 88 tests passed (NIL, LispWorks).
+ODBC/MYSQL: All 83 tests passed (NIL, LispWorks).
+ODBC/POSTGRESQL: All 95 tests passed (NIL, LispWorks).
 POSTGRESQL: All 95 tests passed (X86, SBCL).
 POSTGRESQL-SOCKET: All 95 tests passed (X86, SBCL).
 MYSQL: All 83 tests passed (X86, SBCL).
diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index da60633..ca402ce 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -371,15 +371,15 @@
 	(dolist (test-form test-forms)
 	  (eval test-form))
 	
-	(let ((remaining (rtest:do-tests *report-stream*)))
-	  (when (rt:pending-tests)
+	(let ((remaining (regression-test:do-tests *report-stream*)))
+	  (when (regression-test:pending-tests)
 	    (incf *error-count* (length remaining))))
 	
 	(let ((sexp-error (list db-type 
 				*test-database-underlying-type* 
 				(get-universal-time)
 				(length test-forms)
-				(rt:pending-tests)
+				(regression-test:pending-tests)
 				(lisp-implementation-type) 
 				(lisp-implementation-version)
 				(machine-type))))