anchor.diff:                "")
             ))
   
  -(defun do-tests-for-backend (db-type spec)
  +(defun do-tests-for-backend (db-type spec &key
  +			     (suites (default-suites)) )
     (test-connect-to-database db-type spec)
  -
     (unwind-protect
          (multiple-value-bind (test-forms skip-tests)
  -           (compute-tests-for-backend db-type *test-database-underlying-type*)
  +           (compute-tests-for-backend db-type *test-database-underlying-type* :suites suites)
   
              (write-report-banner "Test Suite" db-type *report-stream*
   				(database-name-from-spec spec db-type))
  -
  -;           (test-initialise-database)
   
              (regression-test:rem-all-tests)
              (dolist (test-form test-forms)
  
positive.code:   (run-function-append-report-file 'run-tests report-file))
  
  
  (defun run-tests (&key (report-stream *standard-output*) (sexp-report-stream nil))
    ;; clear SQL-OUTPUT cache
    (setq clsql-sys::*output-hash* (make-hash-table :test #'equal))
    (let ((specs (read-specs))
  
negative.code:     (disconnect)))
  
  
  (defun compute-tests-for-backend (db-type db-underlying-type
  				  &key (suites (default-suites)))
    (let ((test-forms '())
          (skip-tests '()))
      (dolist (test-form (if (listp suites) suites (list suites)))
        (let ((test (second test-form)))
          (cond
  	  ((and (not (eql db-underlying-type :mysql))
  