;;;; Created: 30/03/2004
;;;; Updated: $Id$
;;;;
-;;;; $Id$
+;;;; This file is part of CLSQL.
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-;;;; ======================================================================
(in-package #:cl-user)
(defpackage #:clsql-tests-system (:use #:asdf #:cl))
(:file "test-syntax")))))
(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")))