X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-init.lisp;h=41437f54dedd2a4584955fc1d92002e520349a8e;hp=f4268d7f32326713a81a4d14844057c238e43ec1;hb=90011694c27b5b22673a34cb6948a2a721a9b6cd;hpb=82a46396a91b6eb30efb60eb6356b4a20a7a9136

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index f4268d7..41437f5 100644
--- 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))