Fixed error in read-sql-value that was throwing no next-method errors

[clsql.git] / clsql-tests.asd

diff --git a/clsql-tests.asd b/clsql-tests.asd
index ddd2bbee5e0c5e70df850bacff19e12060fe46d3..f0280fc92510a84a1490f1c7fe38b7e3552da079 100644 (file)
--- a/clsql-tests.asd
+++ b/clsql-tests.asd
@@ -3,7 +3,7 @@
 ;;;; FILE IDENTIFICATION
 ;;;;
 ;;;; File:     clsql-tests.asd
-;;;; Authors:  Marcus Pearce <m.t.pearce@city.ac.uk> and Kevin Rosenberg
+;;;; Authors:  Marcus Pearce and Kevin Rosenberg
 ;;;; Created:  30/03/2004
 ;;;;
 ;;;; This file is part of CLSQL.
@@ -17,6 +17,10 @@
 (defpackage #:clsql-tests-system (:use #:asdf #:cl))
 (in-package #:clsql-tests-system)
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (unless (find-package '#:uffi)
+    (asdf:operate 'asdf:load-op 'uffi)))
+
 (defsystem clsql-tests
     :name "CLSQL Tests"
     :author ""
@@ -34,6 +38,7 @@
                           (:file "datasets")
                           (:file "ds-employees")
                           (:file "ds-nodes")
+                          (:file "ds-artists")
                           (:file "benchmarks")
                           (:file "test-internal")
                           (:file "test-basic")
@@ -44,7 +49,8 @@
                           (:file "test-ooddl")
                           (:file "test-oodml")
                           (:file "test-syntax")
-                           #-uffi:no-i18n (:file "test-i18n")
+                           (:file "test-pool")
+                           ; #-uffi:no-i18n (:file "test-i18n")
                            ))))
 
 (defmethod perform ((o test-op) (c (eql (find-system 'clsql-tests))))