anchor.diff:        (dolist (spec (db-type-spec db-type specs))
           (let ((*test-connection-spec* spec)
                 (*test-connection-db-type* db-type))
  -          (do-tests-for-backend db-type spec)))))
  +          (do-tests-for-backend db-type spec :suites suites)))))
     (zerop *error-count*))
   
   (defun load-necessary-systems (specs)
  
positive.code:     (disconnect)))
  
  
  (defun compute-tests-for-backend (db-type db-underlying-type)
    (let ((test-forms '())
          (skip-tests '()))
      (dolist (test-form (append *rt-internal* *rt-connection* *rt-basic* *rt-fddl* *rt-fdml*
                                 *rt-ooddl* *rt-oodml* *rt-syntax*))
        (let ((test (second test-form)))
          (cond
  	  ((and (not (eql db-underlying-type :mysql))
  
negative.code:   (run-function-append-report-file 'run-tests report-file))
  
  
  (defun run-tests (&key (report-stream *standard-output*) (sexp-report-stream nil)
  		  (suites (default-suites)))
    ;; clear SQL-OUTPUT cache
    (setq clsql-sys::*output-hash* (make-hash-table :test #'equal))
    (let ((specs (read-specs))
  