From kilian.sprotte at googlemail.com Sun Mar 2 17:39:51 2008 From: kilian.sprotte at googlemail.com (Kilian Sprotte) Date: Sun, 2 Mar 2008 18:39:51 +0100 Subject: [lift-devel] PATCH define test-timeout-condition after test-condition Message-ID: <1d26dc7e0803020939meb5c9e0m57bfdcfdcaaa7a10@mail.gmail.com> Hi Gary, I am sending a small patch Sun Mar 2 18:34:28 CET 2008 kilian.sprotte at gmail.com * define test-timeout-condition after test-condition that simply swaps the order of definitions of test-timeout-condition and test-condition. Otherwise (at least on sbcl) lift does currently not compile. Best, Kilian -------------- next part -------------- A non-text attachment was scrubbed... Name: test-timeout-condition.patch Type: application/octet-stream Size: 1143 bytes Desc: not available URL: From gwking at metabang.com Sun Mar 2 22:35:22 2008 From: gwking at metabang.com (Gary King) Date: Sun, 2 Mar 2008 17:35:22 -0500 Subject: [lift-devel] PATCH define test-timeout-condition after test-condition In-Reply-To: <1d26dc7e0803020939meb5c9e0m57bfdcfdcaaa7a10@mail.gmail.com> References: <1d26dc7e0803020939meb5c9e0m57bfdcfdcaaa7a10@mail.gmail.com> Message-ID: <7B285076-CDCD-41B7-AE78-5018CE76323E@metabang.com> Hi Killian, Thanks. That was stupid of me not to run the self tests only on Allegro and not also on SBCL. Of course, I now realize that I need to improve my website generation tool to make all the different test platforms available! It's funny how in coding and design, one thing often leads to two more. thanks again, On Mar 2, 2008, at 12:39 PM, Kilian Sprotte wrote: > Hi Gary, > > I am sending a small patch > > Sun Mar 2 18:34:28 CET 2008 kilian.sprotte at gmail.com > * define test-timeout-condition after test-condition > > that simply swaps the order of definitions of test-timeout-condition > and test-condition. > > Otherwise (at least on sbcl) lift does currently not compile. > > Best, > Kilian > condition.patch>_______________________________________________ > lift-devel mailing list > lift-devel at common-lisp.net > http://common-lisp.net/cgi-bin/mailman/listinfo/lift-devel -- Gary Warren King, metabang.com Cell: (413) 559 8738 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM From nlamirault at gmail.com Mon Mar 3 16:46:40 2008 From: nlamirault at gmail.com (Nicolas Lamirault) Date: Mon, 03 Mar 2008 17:46:40 +0100 Subject: [lift-devel] lift setup questions ... Message-ID: <87wsojkb67.fsf@perave.org> hi, i would like to use lift with cl-selenium to perform unit test to launch and manage my website i use : (defparameter *website* (make-web-site 'ut)) (start-website *website*) (stop-website *website*) how can i setup a unit tests suite which could contains all unit tests ? i try this : (lift:deftestsuite web-test (main-test) ((website (make-web-site 'ut))) (:run-setup :once-per-session) (:setup (start-website website)) (:teardown (stop-website website)) (:documentation "Unit Test web suite.")) ;; Test selenium (lift:addtest (ovorost-web-test) google-test (:documentation "Test Selenium" ) (let* ((selenium:*selenium-driver-url* "http://localhost:4444/selenium-server/driver") (selenium:*selenium-session* (selenium:do-get-new-browser-session "*firefox" "http://www.google.com"))) (selenium:do-open "http://www.google.com/webhp?hl=en") (selenium:do-type "q" "hello world") (selenium:do-click "btnG") (selenium:do-wait-for-page-to-load "5000") (lift:ensure (string= (selenium:do-get-title) "hello world - Google Search")))) but i've got an error (ERROR \"not implemented\") and web site doesn't start / stop someone could help me on this feature ? thanks for any help. -- Nicolas Lamirault From gwking at metabang.com Tue Mar 4 17:48:07 2008 From: gwking at metabang.com (Gary King) Date: Tue, 4 Mar 2008 12:48:07 -0500 Subject: [lift-devel] lift setup questions ... In-Reply-To: <87wsojkb67.fsf@perave.org> References: <87wsojkb67.fsf@perave.org> Message-ID: <4B9557F0-BE61-44C1-8A3E-78C5625EE8B1@metabang.com> Hi Nicolas, Thanks for looking at LIFT. I'm sorry that you ran into an unsupported feature and even more sorry that the error message printed is completely cryptic! the problem is that you are trying to use :run- setup :once-per-session and I've never gotten around to implementing once-per-session. You can, however, use :once-per-suite (which will run the setup _once_ at the beginning of the tests for the suite and the teardown _once_ at the end). The per-session code isn't anything tricky so I'll try to make time to get to it within the the next week or so. thanks, On Mar 3, 2008, at 11:46 AM, Nicolas Lamirault wrote: > > > hi, > i would like to use lift with cl-selenium to perform unit test > > to launch and manage my website i use : > > (defparameter *website* (make-web-site 'ut)) > (start-website *website*) > (stop-website *website*) > > how can i setup a unit tests suite which could contains all unit > tests ? > > i try this : > > (lift:deftestsuite web-test (main-test) > ((website (make-web-site 'ut))) > (:run-setup :once-per-session) > (:setup (start-website website)) > (:teardown (stop-website website)) > (:documentation "Unit Test web suite.")) > > ;; Test selenium > (lift:addtest (ovorost-web-test) > google-test > (:documentation "Test Selenium" ) > (let* ((selenium:*selenium-driver-url* "http://localhost:4444/selenium-server/driver > ") > (selenium:*selenium-session* > (selenium:do-get-new-browser-session "*firefox" "http://www.google.com > "))) > (selenium:do-open "http://www.google.com/webhp?hl=en") > (selenium:do-type "q" "hello world") > (selenium:do-click "btnG") > (selenium:do-wait-for-page-to-load "5000") > (lift:ensure (string= (selenium:do-get-title) "hello world - > Google Search")))) > > > but i've got an error (ERROR \"not implemented\") and web site doesn't > start / stop > > someone could help me on this feature ? > > thanks for any help. > > -- > Nicolas Lamirault > _______________________________________________ > lift-devel mailing list > lift-devel at common-lisp.net > http://common-lisp.net/cgi-bin/mailman/listinfo/lift-devel -- Gary Warren King, metabang.com Cell: (413) 559 8738 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM