From ab575666ce3ff55bb1eac8e8f6af5eae725bcbae Mon Sep 17 00:00:00 2001 From: Scott Bell Date: Sat, 5 Jul 2014 16:55:33 -0700 Subject: [PATCH] Add additional tests for HTTP PUT with request body content original commit: 9bd23a87268a4d1d91bb5fdca55e243f7ebef524 --- .../net-test/tests/net/http-client.rkt | 20 ++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/pkgs/net-pkgs/net-test/tests/net/http-client.rkt b/pkgs/net-pkgs/net-test/tests/net/http-client.rkt index a445baf7d8..6e9980220a 100644 --- a/pkgs/net-pkgs/net-test/tests/net/http-client.rkt +++ b/pkgs/net-pkgs/net-test/tests/net/http-client.rkt @@ -222,4 +222,22 @@ #"GET / HTTP/1.1\r\nHost: localhost:REDACTED\r\nUser-Agent: Racket/REDACTED (net/http-client)\r\nAccept-Encoding: gzip\r\nConnection: close\r\n\r\n" #"HTTP/1.1 200 OK" '(#"Content-Type: text/plain" #"Transfer-Encoding: chunked" #"Another-Header: ta-daa") - #"\n\t\t\t\t\t \n\t\t\t\t\t ABCNANOTECH Co., LTD.\n\t\t\t\t\t \n\t\t\t\t\t \n\t\t\t\t\t \n\t\t\t\t\t "])) + #"\n\t\t\t\t\t \n\t\t\t\t\t ABCNANOTECH Co., LTD.\n\t\t\t\t\t \n\t\t\t\t\t \n\t\t\t\t\t \n\t\t\t\t\t "] + + ["PUT" #f "HTTP/1.1 200 OK\r\n\r\n" + #"PUT / HTTP/1.1\r\nHost: localhost:REDACTED\r\nUser-Agent: Racket/REDACTED (net/http-client)\r\nAccept-Encoding: gzip\r\nConnection: close\r\n\r\n" + #"HTTP/1.1 200 OK" + '() + #""] + + ["PUT" #"frob" "HTTP/1.1 200 OK\r\n\r\n" + #"PUT / HTTP/1.1\r\nHost: localhost:REDACTED\r\nUser-Agent: Racket/REDACTED (net/http-client)\r\nAccept-Encoding: gzip\r\nContent-Length: 4\r\nConnection: close\r\n\r\nfrob" + #"HTTP/1.1 200 OK" + '() + #""] + + ["PUT" "frob" "HTTP/1.1 200 OK\r\n\r\n" + #"PUT / HTTP/1.1\r\nHost: localhost:REDACTED\r\nUser-Agent: Racket/REDACTED (net/http-client)\r\nAccept-Encoding: gzip\r\nContent-Length: 4\r\nConnection: close\r\n\r\nfrob" + #"HTTP/1.1 200 OK" + '() + #""]))