File tree Expand file tree Collapse file tree 1 file changed +8
-8
lines changed
Expand file tree Collapse file tree 1 file changed +8
-8
lines changed Original file line number Diff line number Diff line change 77 (let code (head result))
88 (let lines (split (@ result 1) "\n"))
99
10- (test:case (string: format "{} {}{}{}" method path (if (empty? query) "" "?") query) {
10+ (test:case (format "{} {}{}{}" method path (if (empty? query) "" "?") query) {
1111 (test:eq code 200)
12- (test:eq (@ lines 1) (string: format "CONTENT_LENGTH: {}" length))
13- (test:eq (@ lines 3) (string: format "REQUEST_METHOD: {}" method))
14- (test:eq (@ lines 4) (string: format "PATH_INFO: {}" path))
15- (test:eq (@ lines 5) (string: format "QUERY_STRING: {}" query))
16- (test:eq (@ lines 6) (string: format "CONTENT_TYPE: {}" content_type))
12+ (test:eq (@ lines 1) (format "CONTENT_LENGTH: {}" length))
13+ (test:eq (@ lines 3) (format "REQUEST_METHOD: {}" method))
14+ (test:eq (@ lines 4) (format "PATH_INFO: {}" path))
15+ (test:eq (@ lines 5) (format "QUERY_STRING: {}" query))
16+ (test:eq (@ lines 6) (format "CONTENT_TYPE: {}" content_type))
1717
1818 (if (not (nil? data))
19- (test:eq (@ lines 9) (string: format "DATA: {}" data)))
19+ (test:eq (@ lines 9) (format "DATA: {}" data)))
2020 (if (not (empty? headers))
2121 {
2222 (let as_str (join
2323 (map
2424 headers
2525 (fun (tuple)
26- (string: format "{}={};" (toUpper (head tuple)) (@ tuple 1))))
26+ (format "{}={};" (toUpper (head tuple)) (@ tuple 1))))
2727 ""))
2828 (test:eq (@ lines 10) (+ "HEADERS: " as_str)) })
2929 }) }))
You can’t perform that action at this time.
0 commit comments