Megatest: example-client.scm at [6d32c79c1e]

File testhttp/example-client.scm artifact 57afe37838 part of check-in 6d32c79c1e

(use regex http-client)

(print (with-input-from-request "http://localhost:8083/?foo=1" #f 
    (lambda ()
      (let ((match (string-search (regexp "<body>(.*)<.body>") (caddr (string-split (read-string) "\n")))))
	(cadr match)))))