+ (:file "test-syntax")
+ (:file "test-pool")
+ ; #-uffi:no-i18n (:file "test-i18n")
+ ))))
+
+(defmethod perform ((o test-op) (c (eql (find-system 'clsql-tests))))
+ (operate 'load-op 'clsql)
+ (unless (funcall (intern (symbol-name '#:run-tests)
+ (find-package '#:clsql-tests)))
+ (error "test-op failed")))