diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/world/net/http/server.lux | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/stdlib/source/test/lux/world/net/http/server.lux b/stdlib/source/test/lux/world/net/http/server.lux index 63f0d76ed..92f57b953 100644 --- a/stdlib/source/test/lux/world/net/http/server.lux +++ b/stdlib/source/test/lux/world/net/http/server.lux @@ -58,14 +58,14 @@ )) (def identification - (Random //.Identification) + (Random request.Identification) (all random.and ..address ..address )) (def protocol - (Random //.Protocol) + (Random request.Protocol) (all random.and versionT.random schemeT.random @@ -86,7 +86,7 @@ )) (def resource - (Random //.Resource) + (Random request.Resource) (all random.and ..method (random.lower_cased 2) @@ -135,11 +135,11 @@ (`` (all _.and (,, (with_template [<server> <scheme>] [(in (do [! async.monad] - [good_response (let [expected_request (has [request.#protocol //.#scheme] <scheme> expected_request)] + [good_response (let [expected_request (has [request.#protocol request.#scheme] <scheme> expected_request)] (<server> expected_server ! expected_request)) good_body ((the [response.#message //.#body] good_response) {.#None}) - bad_response (let [expected_request (has [request.#protocol //.#scheme] scheme.file expected_request)] + bad_response (let [expected_request (has [request.#protocol request.#scheme] scheme.file expected_request)] (<server> expected_server ! expected_request))] (unit.coverage [<server>] (and (n.= expected_status @@ -174,11 +174,11 @@ (`` (all _.and (,, (with_template [<server> <correct_method> <incorrect_method>] [(in (do [! async.monad] - [good_response (let [expected_request (has [request.#resource //.#method] {<correct_method>} expected_request)] + [good_response (let [expected_request (has [request.#resource request.#method] {<correct_method>} expected_request)] (<server> expected_server ! expected_request)) good_body ((the [response.#message //.#body] good_response) {.#None}) - bad_response (let [expected_request (has [request.#resource //.#method] {<incorrect_method>} expected_request)] + bad_response (let [expected_request (has [request.#resource request.#method] {<incorrect_method>} expected_request)] (<server> expected_server ! expected_request))] (unit.coverage [<server>] (and (n.= expected_status @@ -226,11 +226,11 @@ [bad_uri (random.upper_cased 2) good_uri (random.upper_cased 3)] (in (do [! async.monad] - [good_response (let [expected_request (has [request.#resource //.#uri] good_uri expected_request)] + [good_response (let [expected_request (has [request.#resource request.#uri] good_uri expected_request)] (/.uri good_uri expected_server ! expected_request)) good_body ((the [response.#message //.#body] good_response) {.#None}) - bad_response (let [expected_request (has [request.#resource //.#uri] bad_uri expected_request)] + bad_response (let [expected_request (has [request.#resource request.#uri] bad_uri expected_request)] (/.uri good_uri expected_server ! expected_request))] (unit.coverage [/.uri] (and (n.= expected_status @@ -250,13 +250,13 @@ [.let [server (is /.Server (/.or (/.http expected_server) (/.https expected_server)))] - http_response (server ! (has [request.#protocol //.#scheme] scheme.http expected_request)) + http_response (server ! (has [request.#protocol request.#scheme] scheme.http expected_request)) http_body ((the [response.#message //.#body] http_response) {.#None}) - https_response (server ! (has [request.#protocol //.#scheme] scheme.https expected_request)) + https_response (server ! (has [request.#protocol request.#scheme] scheme.https expected_request)) https_body ((the [response.#message //.#body] https_response) {.#None}) - bad_response (server ! (has [request.#protocol //.#scheme] scheme.file expected_request))] + bad_response (server ! (has [request.#protocol request.#scheme] scheme.file expected_request))] (unit.coverage [/.or] (let [correct_http_status! (n.= expected_status @@ -297,7 +297,7 @@ (in (do [! async.monad] [.let [server (is (/.Server Async) (/.static (response.content ! expected_status expected_mime expected_data)))] - response (server ! (has [request.#protocol //.#scheme] scheme.http expected_request)) + response (server ! (has [request.#protocol request.#scheme] scheme.http expected_request)) body ((the [response.#message //.#body] response) {.#None})] (unit.coverage [/.static] (and (n.= expected_status |