AtlatestRepositorysigil-http

sigil-http / treetest-http-request.sgl

1;;; Test file to debug the HTTP request parsing issue
2
3(import (sigil http request))
4
5(display "=== Testing HTTP request parsing ===") (newline)
6
7;; Test parse-request-line directly
8(display "Test 1: parse-request-line \"GET /path HTTP/1.1\"") (newline)
9(let ((result (parse-request-line "GET /path HTTP/1.1")))
10 (display "Result: ") (display result) (newline))
11(newline)
13(display "Test 2: parse-request-line \"GET / HTTP/1.1\"") (newline)
14(let ((result (parse-request-line "GET / HTTP/1.1")))
15 (display "Result: ") (display result) (newline))
16(newline)
18(display "Test 3: parse-request-line with query \"GET /search?q=test HTTP/1.1\"") (newline)
19(let ((result (parse-request-line "GET /search?q=test HTTP/1.1")))
20 (display "Result: ") (display result) (newline))
21(newline)
23(display "=== Tests completed ===") (newline)