Revision: 4256 Author: hans URL: http://bknr.net/trac/changeset/4256

Forgot to save this.

U trunk/thirdparty/hunchentoot/test/script.lisp

Modified: trunk/thirdparty/hunchentoot/test/script.lisp =================================================================== --- trunk/thirdparty/hunchentoot/test/script.lisp 2009-02-16 12:00:15 UTC (rev 4255) +++ trunk/thirdparty/hunchentoot/test/script.lisp 2009-02-16 12:05:37 UTC (rev 4256) @@ -40,9 +40,15 @@

(defun test-hunchentoot (base-url &key (make-cookie-jar (lambda () (make-instance 'drakma:cookie-jar))))

- "Run the built-in confidence test. The keyword arguments accepted - are for future extension and should not currently be used." + "Run the built-in confidence test. BASE-URL is the base URL to use + for testing, it should not have a trailing slash. The keyword + arguments accepted are for future extension and should not + currently be used.

+ The script expects the Hunchentoot example test server to be + running at the given BASE-URL and retrieves various pages from that + server, expecting certain responses." + (with-script-context (:base-url (format nil "~A/hunchentoot/test/" base-url))

(say "Request home page")