projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9329: * db-odbc/*.lisp: Add a layer of indirection to foreign-type
[clsql.git]
/
tests
/
utils.lisp
diff --git
a/tests/utils.lisp
b/tests/utils.lisp
index f73edbc39e6afa37823695cdb8c6c41a2f4a0e76..c93c91fea491fbfbea6a30a5226373e374074f24 100644
(file)
--- a/
tests/utils.lisp
+++ b/
tests/utils.lisp
@@
-1,4
+1,4
@@
-;;;
;
-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
@@
-58,14
+58,6
@@
(defun db-type-spec (db-type specs)
(funcall (spec-fn db-type) specs))
(defun db-type-spec (db-type specs)
(funcall (spec-fn db-type) specs))
-(defun db-type-ensure-system (db-type)
- (unless (find-package (symbol-name db-type))
- (asdf:operate 'asdf:load-op
- (intern (concatenate 'string
- (symbol-name '#:clsql-)
- (symbol-name db-type))))))
-
-
(defun summarize-test-report (sexp &optional (output *standard-output*))
(flet ((db-title (db-type underlying-db-type)
(defun summarize-test-report (sexp &optional (output *standard-output*))
(flet ((db-title (db-type underlying-db-type)
@@
-87,6
+79,7
@@
impl-version
machine-type)
form
impl-version
machine-type)
form
+ (declare (ignorable utime impl-version))
(if failed-tests
(format output "~&~A: ~D of ~D tests failed (~A, ~A).~&"
(db-title db-type underlying-db-type)
(if failed-tests
(format output "~&~A: ~D of ~D tests failed (~A, ~A).~&"
(db-title db-type underlying-db-type)