+ (values (nreverse test-forms) (nreverse skip-tests))))
+
+
+(defun rapid-load (type)
+ "Rapid load for interactive testing."
+ (when *default-database*
+ (disconnect :database *default-database*))
+ (test-connect-to-database type (car (db-type-spec type (read-specs))))
+ (test-initialise-database))
+
+(defun rl ()
+ (rapid-load :postgresql))
+
+(defun rlm ()
+ (rapid-load :mysql))