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 fs.read 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 stack.clear |