tests/http.min
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 |
'min-test require :test
;;;
"http" test.describe
"postman-echo.com" :host
"https://$1" (host) => % :url
("$1/get" (url) => % get-content from-json "headers" dget "user-agent" dget "min http-module/$1" (version) => % ==) test.assert
("$1/get?test=Hello!" (url) => % "tests/test1.json" :file file download file fread from-json "args" dget "test" dget "Hello!" ==) test.assert
"tests/test1.json" rm
(
{} (
("$1/get" (url) => % "url" dset)
("GET" "method" dset)
({"it-it" :Accept-Language} "headers" dset)
(request)
) tap "body" dget from-json "headers" dget "accept-language" dget "it-it" ==
) test.assert
(
{} (
("$1/put" (url) => % "url" dset)
("PUT" "method" dset)
({} to-json "body" dset)
(request)
) tap "body" dget from-json "data" dget {} ==
) test.assert
(
{} (
("$1/post" (url) => % "url" dset)
("POST" "method" dset)
({"post" :test} to-json "body" dset)
(request)
) tap "headers" dget "content-type" dget "^application/json" match?
) test.assert
(
{} (
("$1/patch" (url) => % "url" dset)
("PATCH" "method" dset)
({} to-json "body" dset)
(request)
) tap "body" dget from-json "data" dget {} ==
) test.assert
(
{} (
("$1/delete" (url) => % "url" dset)
("DELETE" "method" dset)
(request)
) tap "body" dget from-json "url" dget "https?:\\/\\/$1/delete" (host) => % match?
) test.assert
test.report
clear-stack
|