r9250: make :target-slot joins many times more efficient

[clsql.git] / tests / test-init.lisp

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index f4268d7f32326713a81a4d14844057c238e43ec1..41437f54dedd2a4584955fc1d92002e520349a8e 100644 (file)
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -542,3 +542,10 @@
           (push test-form test-forms)))))
     (values (nreverse test-forms) (nreverse skip-tests))))
 
+
+(defun rl ()
+  "Rapid load for interactive testing."
+  (when *default-database*
+      (disconnect :database *default-database*))
+  (test-connect-to-database :postgresql (car (postgresql-spec (read-specs))))
+  (test-initialise-database))