Changeset 3297
- Timestamp:
- 06/19/08 17:12:00 (5 months ago)
- Files:
-
- trunk/projects/bos/test/web/drakma-requests.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/projects/bos/test/web/drakma-requests.lisp
r3282 r3297 16 16 (pass))) 17 17 18 (test request-start-page 18 (test request-start-page 19 #+ccl(skip "known to fail on ccl") 19 20 (with-bos-test-server (port) 20 21 (let ((uri (format nil "http://localhost:~D" port))) 21 22 (is (= 200 (nth-value 1 (drakma:http-request uri))))))) 22 23 23 (test request-start-page.tmp ; just to compare with request-start-page24 (let ((uri "http://test.createrainforest.org"))25 (is (= 200 (nth-value 1 (drakma:http-request uri))))))26
