Megatest

Diff
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Annotate Patch Side-by-side Diff

Differences From Artifact [83732ef8d7]:

To Artifact [57afe37838]:

1

2
3






1
2

3
4
5
6

-
+

-
+
+
+
+

(use http-client)
(use regex http-client)

(print (with-input-from-request "http://localhost:8082/?foo=1" #f read-string))
(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)))))
This page was generated in about 0.109s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00