tests-server.sbclrc

(load "asdf.lisp")
(load ".quicklisp-install/require-quicklisp.lisp")
(push (make-pathname :directory '(:relative ".")) ql:*local-project-directories*)
(push (make-pathname :directory '(:relative "weblocks-selenium-tests-app")) asdf:*central-registry*)
(require :sb-posix)
(setf sb-impl::*default-external-format* :utf-8)
(defvar *port* (parse-integer (nth 1 *posix-argv*)))
(defvar *swank-port* (parse-integer (nth 2 *posix-argv*)))

(ql:quickload :cl-ppcre)
(ql:quickload :weblocks-selenium-tests-app)
(ql:quickload :weblocks-selenium-tests)
(loop for i in (cl-ppcre:split " " (string-trim " " (nth 3 *posix-argv*))) do 
 (ql:quickload (intern (string-upcase i) "KEYWORD")))

(weblocks-selenium-tests-app:start-weblocks-selenium-tests-app :port *port*)

(when (interactive-stream-p *terminal-io*)
 (require :sb-aclrepl)
 (ql:quickload :linedit)
 (funcall (intern "INSTALL-REPL" :linedit) :wrap-current t))

(swank:create-server :dont-close t :port *swank-port*)

(format t "~C[2J~%" #\Esc)

(format t "Welcome to weblocks~%")
(format t "Weblocks is running on port ~S, and can be access by browsing http://me:~S~%" *port* *port*)
(format t "Please update your hosts file apropriately (add alias \"me\" for 127.0.0.1)~%")
(format t "Swank is running on port ~S~%" *swank-port*)
(format t "Use (quit) to exit REPL")

(in-package :weblocks-selenium-tests)
(defun quit () (sb-ext:exit))