From mkennedy at common-lisp.net Sun Jan 20 20:01:43 2008 From: mkennedy at common-lisp.net (mkennedy) Date: Sun, 20 Jan 2008 15:01:43 -0500 (EST) Subject: [cl-selenium-cvs] CVS cl-selenium Message-ID: <20080120200143.D290D830A3@common-lisp.net> Update of /project/cl-selenium/cvsroot/cl-selenium In directory clnet:/tmp/cvs-serv15245 Log Message: Initial import. Status: Vendor Tag: intial Release Tags: initial N cl-selenium/.cvsignore N cl-selenium/ChangeLog N cl-selenium/README N cl-selenium/iedoc-0.8.3-1879.xml N cl-selenium/iedoc.lisp N cl-selenium/packages.lisp N cl-selenium/selenium.asd N cl-selenium/selenium.lisp No conflicts created by this import From mkennedy at common-lisp.net Thu Jan 24 15:40:40 2008 From: mkennedy at common-lisp.net (mkennedy) Date: Thu, 24 Jan 2008 10:40:40 -0500 (EST) Subject: [cl-selenium-cvs] CVS cl-selenium Message-ID: <20080124154040.B47776410E@common-lisp.net> Update of /project/cl-selenium/cvsroot/cl-selenium In directory clnet:/tmp/cvs-serv7506 Modified Files: ChangeLog iedoc.lisp packages.lisp selenium.lisp Log Message: Add doc strings. --- /project/cl-selenium/cvsroot/cl-selenium/ChangeLog 2008/01/20 20:01:43 1.1.1.1 +++ /project/cl-selenium/cvsroot/cl-selenium/ChangeLog 2008/01/24 15:40:40 1.2 @@ -1,3 +1,7 @@ +2008-01-24 Matthew Kennedy + + * packages.lisp: Add documentation strings. + 2008-01-15 Matthew Kennedy * selenium.lisp: Use define-iedoc to parse iedoc-0.8.3-1879.xml at --- /project/cl-selenium/cvsroot/cl-selenium/iedoc.lisp 2008/01/20 20:01:43 1.1.1.1 +++ /project/cl-selenium/cvsroot/cl-selenium/iedoc.lisp 2008/01/24 15:40:40 1.2 @@ -157,5 +157,11 @@ #+nil (mapcar #'convert-function (parse-iedoc #p"/selenium-core-0.8.2/core/iedoc.xml")) -(defvar *selenium-driver-url* (puri:parse-uri "http://localhost:9999/selenium-server/driver/")) -(defvar *selenium-session* nil) +(defvar *selenium-driver-url* (puri:parse-uri "http://localhost:9999/selenium-server/driver/") + "The URL of the Selenium Remote Control server.") + +(defvar *selenium-session* nil + "Almost all functions take an optional argument called session which + defaults to this special variable. You can bind a selenium session + to this variable and use those functions without providing an + explicit session each time.") --- /project/cl-selenium/cvsroot/cl-selenium/packages.lisp 2008/01/20 20:01:43 1.1.1.1 +++ /project/cl-selenium/cvsroot/cl-selenium/packages.lisp 2008/01/24 15:40:40 1.2 @@ -1,11 +1,11 @@ (defpackage #:selenium (:use #:common-lisp) + (:documentation "An interface to Selenium Remote Control.") (:export - *selenium-session* - *selenium-driver-url* - define-iedoc - do-get-new-browser-session - do-test-complete - base-error - http-error - execution-error)) + #:*selenium-session* + #:*selenium-driver-url* + #:do-get-new-browser-session + #:do-test-complete + #:base-error + #:http-error + #:execution-error)) --- /project/cl-selenium/cvsroot/cl-selenium/selenium.lisp 2008/01/20 20:01:43 1.1.1.1 +++ /project/cl-selenium/cvsroot/cl-selenium/selenium.lisp 2008/01/24 15:40:40 1.2 @@ -14,6 +14,7 @@ *compile-file-pathname*)) (defun do-get-new-browser-session (browser url) + "Create a session by using the the given browser and initial URL." (execute (puri:merge-uris (make-instance 'puri:uri :query (marshall-request "getNewBrowserSession" browser url)) *selenium-driver-url*)))