Refactor tests for better reporting
This commit is contained in:
parent
3c42890e15
commit
d30021db16
1 changed files with 175 additions and 172 deletions
347
tests.bqn
347
tests.bqn
|
|
@ -7,179 +7,182 @@
|
||||||
⟩←•Import"curl.bqn"
|
⟩←•Import"curl.bqn"
|
||||||
|
|
||||||
httpbinURL←"http://localhost:8080"
|
httpbinURL←"http://localhost:8080"
|
||||||
r←0
|
|
||||||
|
|
||||||
## Simple API
|
RunTest←{•term.OutRaw (4⥊' ')∾"Test "∾𝕨 ⋄ 𝕏 @ ⋄ •Out ((69-≠𝕨)⥊'.')∾"OK"}
|
||||||
|
RunSuite←{•Out 𝕨∾':' ⋄ RunTest´¨𝕩 ⋄ •Out " All "∾(•Fmt ≠𝕩)∾" tests passed."}
|
||||||
|
RunAll←{RunSuite´¨𝕩 ⋄ •Out "All "∾(•Fmt +´≠¨⊢´¨𝕩)∾" tests passed."}
|
||||||
|
|
||||||
•Out " Test GET"
|
simpleAPI_testsuite←⟨
|
||||||
r↩Get httpbinURL∾"/get"
|
"simple GET"‿{𝕊𝕩:
|
||||||
! 200=r.code
|
r←Get httpbinURL∾"/get"
|
||||||
! 0=r.redirectCount
|
! 200=r.code
|
||||||
! 1=⊑"HTTP/"⍷r.headers
|
! 0=r.redirectCount
|
||||||
! 1=+´"Content-Type: "⍷r.headers
|
! 1=⊑"HTTP/"⍷r.headers
|
||||||
! 1=+´"Content-Length: "⍷r.headers
|
! 1=+´"Content-Type: "⍷r.headers
|
||||||
! 1=+´"""Host"": ""localhost:8080"""⍷r.content
|
! 1=+´"Content-Length: "⍷r.headers
|
||||||
! 1=+´"""User-Agent"": ""curl/bqn"""⍷r.content
|
! 1=+´"""Host"": ""localhost:8080"""⍷r.content
|
||||||
! 0=+´"""Hello"": ""World"""⍷r.content
|
! 1=+´"""User-Agent"": ""curl/bqn"""⍷r.content
|
||||||
•Out "OK"
|
! 0=+´"""Hello"": ""World"""⍷r.content
|
||||||
|
},
|
||||||
|
"simple GET with headers"‿{𝕊𝕩:
|
||||||
|
headers←⟨"User-Agent: toto","Content-Type: application/json","Hello: World"⟩
|
||||||
|
r←headers Get httpbinURL∾"/get"
|
||||||
|
! 200=r.code
|
||||||
|
! 0=r.redirectCount
|
||||||
|
! 1=+´"""Host"": ""localhost:8080"""⍷r.content
|
||||||
|
! 1=+´"""User-Agent"": ""toto"""⍷r.content
|
||||||
|
! 1=+´"""Content-Type"": ""application/json"""⍷r.content
|
||||||
|
! 1=+´"""Hello"": ""World"""⍷r.content
|
||||||
|
},
|
||||||
|
"simple POST with headers"‿{𝕊𝕩:
|
||||||
|
headers←⟨"Content-Type: application/json"⟩
|
||||||
|
r←headers Post ⟨httpbinURL∾"/post","{""key"": ""value""}"⟩
|
||||||
|
! 200=r.code
|
||||||
|
! 0=r.redirectCount
|
||||||
|
! 1=⊑"HTTP/"⍷r.headers
|
||||||
|
! 1=+´"Content-Type: "⍷r.headers
|
||||||
|
! 1=+´"Content-Length: "⍷r.headers
|
||||||
|
! 1=+´"""Content-Type"": ""application/json"""⍷r.content
|
||||||
|
! 1=+´"""data"": ""{\""key\"": \""value\""}"""⍷r.content
|
||||||
|
}
|
||||||
|
⟩
|
||||||
|
|
||||||
•Out " Test GET with headers"
|
advancedAPI_testsuite←⟨
|
||||||
r↩⟨"User-Agent: toto","Content-Type: application/json","Hello: World"⟩Get httpbinURL∾"/get"
|
"open session"‿{𝕊𝕩:
|
||||||
! 200=r.code
|
session←OpenSession @
|
||||||
! 0=r.redirectCount
|
! 8=≠session.sessionPtr
|
||||||
! 1=+´"""Host"": ""localhost:8080"""⍷r.content
|
! (8↑0)≢session.headersSlist
|
||||||
! 1=+´"""User-Agent"": ""toto"""⍷r.content
|
CloseSession session
|
||||||
! 1=+´"""Content-Type"": ""application/json"""⍷r.content
|
},
|
||||||
! 1=+´"""Hello"": ""World"""⍷r.content
|
"GET"‿{𝕊𝕩:
|
||||||
•Out "OK"
|
session←OpenSession @
|
||||||
|
r←Perform (httpbinURL∾"/get") SetURL session
|
||||||
|
! 200=r.code
|
||||||
|
! 0=r.redirectCount
|
||||||
|
! 10≤≠r.content
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"POST"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
r←Perform "toto"SetData (httpbinURL∾"/post") SetURL session
|
||||||
|
! 200=r.code
|
||||||
|
! 0=r.redirectCount
|
||||||
|
! 1=+´"toto"⍷r.content
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"basic auth fail"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
session↩(httpbinURL∾"/basic-auth/username/s3cr3tpa55word") SetURL session
|
||||||
|
r←Perform session
|
||||||
|
! 401=r.code
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"basic auth with header"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
session↩(httpbinURL∾"/basic-auth/username/s3cr3tpa55word") SetURL session
|
||||||
|
r←Perform ⟨"Authorization: Basic dXNlcm5hbWU6czNjcjN0cGE1NXdvcmQ="⟩ SetHeaders session
|
||||||
|
! 200=r.code
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"basic auth with URL"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
session↩("http://username:s3cr3tpa55word@localhost:8080/basic-auth/username/s3cr3tpa55word") SetURL session
|
||||||
|
r←Perform session
|
||||||
|
! 200=r.code
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"bearer auth fail"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
session↩(httpbinURL∾"/bearer") SetURL session
|
||||||
|
r←Perform session
|
||||||
|
! 401=r.code
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"bearer auth"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
session↩(httpbinURL∾"/bearer") SetURL session
|
||||||
|
r←Perform ⟨"Authorization: Bearer hey!"⟩ SetHeaders session
|
||||||
|
! 200=r.code
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"status GET"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
r←Perform (httpbinURL∾"/status/418") SetURL session
|
||||||
|
! 418=r.code
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"status POST"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
r←Perform ""SetData (httpbinURL∾"/status/418") SetURL session
|
||||||
|
! 418=r.code
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"set headers"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
session↩(httpbinURL∾"/headers") SetURL session
|
||||||
|
r←Perform ⟨"Hello: World"⟩ SetHeaders session
|
||||||
|
! 1=+´"""Hello"": ""World"""⍷r.content
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"default user-agent"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
session↩(httpbinURL∾"/user-agent") SetURL session
|
||||||
|
r←Perform session
|
||||||
|
! 1=+´"curl/bqn"⍷r.content
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"custom user-agent"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
session↩(httpbinURL∾"/user-agent") SetURL session
|
||||||
|
r←Perform ⟨"User-Agent: hello/world"⟩ SetHeaders session
|
||||||
|
! 0=+´"curl/bqn"⍷r.content
|
||||||
|
! 1=+´"hello/world"⍷r.content
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"timeout with fast request"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
session↩1010 SetTimeoutms (httpbinURL∾"/delay/1") SetURL session
|
||||||
|
r←Perform session
|
||||||
|
! 200=r.code
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"request timeout"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
session↩100 SetTimeoutms (httpbinURL∾"/delay/1") SetURL session
|
||||||
|
! Perform⎊1 session
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"follow redirects"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
r←Perform (httpbinURL∾"/redirect/5") SetURL session
|
||||||
|
! 200=r.code
|
||||||
|
! 5=r.redirectCount
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"follow absolute redirects"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
r←Perform (httpbinURL∾"/absolute-redirect/5") SetURL session
|
||||||
|
! 200=r.code
|
||||||
|
! 5=r.redirectCount
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"follow relative redirects"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
r←Perform (httpbinURL∾"/relative-redirect/5") SetURL session
|
||||||
|
! 200=r.code
|
||||||
|
! 5=r.redirectCount
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
"parameters"‿{𝕊𝕩:
|
||||||
|
session←OpenSession @
|
||||||
|
r←Perform (httpbinURL∾"/anything?hello=world&zig=zag") SetURL session
|
||||||
|
! 1=+´"""hello"": ""world"""⍷r.content
|
||||||
|
! 1=+´"""zig"": ""zag"""⍷r.content
|
||||||
|
CloseSession session
|
||||||
|
},
|
||||||
|
⟩
|
||||||
|
|
||||||
•Out " Test POST with headers"
|
RunAll⟨
|
||||||
r↩⟨"Content-Type: application/json"⟩Post⟨httpbinURL∾"/post","{""key"": ""value""}"⟩
|
"Simple API"‿simpleAPI_testsuite,
|
||||||
! 200=r.code
|
"Advanced API"‿advancedAPI_testsuite,
|
||||||
! 0=r.redirectCount
|
⟩
|
||||||
! 1=⊑"HTTP/"⍷r.headers
|
|
||||||
! 1=+´"Content-Type: "⍷r.headers
|
|
||||||
! 1=+´"Content-Length: "⍷r.headers
|
|
||||||
! 1=+´"""Content-Type"": ""application/json"""⍷r.content
|
|
||||||
! 1=+´"""data"": ""{\""key\"": \""value\""}"""⍷r.content
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
## Advanced API
|
|
||||||
|
|
||||||
•Out " Test open session"
|
|
||||||
session←OpenSession @
|
|
||||||
! 8=≠session.sessionPtr
|
|
||||||
! (8↑0)≢session.headersSlist
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test GET"
|
|
||||||
session↩ResetSession session
|
|
||||||
r↩Perform (httpbinURL∾"/get") SetURL session
|
|
||||||
! 200=r.code
|
|
||||||
! 0=r.redirectCount
|
|
||||||
! 10≤≠r.content
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test POST"
|
|
||||||
session↩ResetSession session
|
|
||||||
r↩Perform "toto"SetData (httpbinURL∾"/post") SetURL session
|
|
||||||
! 200=r.code
|
|
||||||
! 0=r.redirectCount
|
|
||||||
! 1=+´"toto"⍷r.content
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test basic auth fail"
|
|
||||||
session↩ResetSession session
|
|
||||||
session↩(httpbinURL∾"/basic-auth/username/s3cr3tpa55word") SetURL session
|
|
||||||
r↩Perform session
|
|
||||||
! 401=r.code
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test basic auth with header"
|
|
||||||
session↩ResetSession session
|
|
||||||
session↩(httpbinURL∾"/basic-auth/username/s3cr3tpa55word") SetURL session
|
|
||||||
r↩Perform ⟨"Authorization: Basic dXNlcm5hbWU6czNjcjN0cGE1NXdvcmQ="⟩ SetHeaders session
|
|
||||||
! 200=r.code
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test basic auth with URL"
|
|
||||||
session↩ResetSession session
|
|
||||||
session↩("http://username:s3cr3tpa55word@localhost:8080/basic-auth/username/s3cr3tpa55word") SetURL session
|
|
||||||
r↩Perform session
|
|
||||||
! 200=r.code
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test bearer auth fail"
|
|
||||||
session↩ResetSession session
|
|
||||||
session↩(httpbinURL∾"/bearer") SetURL session
|
|
||||||
r↩Perform session
|
|
||||||
! 401=r.code
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test bearer auth"
|
|
||||||
session↩ResetSession session
|
|
||||||
session↩(httpbinURL∾"/bearer") SetURL session
|
|
||||||
r↩Perform ⟨"Authorization: Bearer hey!"⟩ SetHeaders session
|
|
||||||
! 200=r.code
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test status GET"
|
|
||||||
session↩ResetSession session
|
|
||||||
r↩Perform (httpbinURL∾"/status/418") SetURL session
|
|
||||||
! 418=r.code
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test status POST"
|
|
||||||
session↩ResetSession session
|
|
||||||
r↩Perform ""SetData (httpbinURL∾"/status/418") SetURL session
|
|
||||||
! 418=r.code
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test set headers"
|
|
||||||
session↩ResetSession session
|
|
||||||
session↩(httpbinURL∾"/headers") SetURL session
|
|
||||||
r↩Perform ⟨"Hello: World"⟩ SetHeaders session
|
|
||||||
! 1=+´"""Hello"": ""World"""⍷r.content
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test default user-agent"
|
|
||||||
session↩ResetSession session
|
|
||||||
session↩(httpbinURL∾"/user-agent") SetURL session
|
|
||||||
r↩Perform session
|
|
||||||
! 1=+´"curl/bqn"⍷r.content
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test custom user-agent"
|
|
||||||
session↩ResetSession session
|
|
||||||
session↩(httpbinURL∾"/user-agent") SetURL session
|
|
||||||
r↩Perform ⟨"User-Agent: hello/world"⟩ SetHeaders session
|
|
||||||
! 0=+´"curl/bqn"⍷r.content
|
|
||||||
! 1=+´"hello/world"⍷r.content
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test timeout with fast request"
|
|
||||||
session↩ResetSession session
|
|
||||||
session↩1010 SetTimeoutms (httpbinURL∾"/delay/1") SetURL session
|
|
||||||
r↩Perform session
|
|
||||||
! 200=r.code
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test request timeout"
|
|
||||||
session↩ResetSession session
|
|
||||||
session↩100 SetTimeoutms (httpbinURL∾"/delay/1") SetURL session
|
|
||||||
! Perform⎊1 session
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test follow redirects"
|
|
||||||
session↩ResetSession session
|
|
||||||
r↩Perform (httpbinURL∾"/redirect/5") SetURL session
|
|
||||||
! 200=r.code
|
|
||||||
! 5=r.redirectCount
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test follow absolute redirects"
|
|
||||||
session↩ResetSession session
|
|
||||||
r↩Perform (httpbinURL∾"/absolute-redirect/5") SetURL session
|
|
||||||
! 200=r.code
|
|
||||||
! 5=r.redirectCount
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test follow relative redirects"
|
|
||||||
session↩ResetSession session
|
|
||||||
r↩Perform (httpbinURL∾"/relative-redirect/5") SetURL session
|
|
||||||
! 200=r.code
|
|
||||||
! 5=r.redirectCount
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test parameters"
|
|
||||||
session↩ResetSession session
|
|
||||||
r↩Perform (httpbinURL∾"/anything?hello=world&zig=zag") SetURL session
|
|
||||||
! 1=+´"""hello"": ""world"""⍷r.content
|
|
||||||
! 1=+´"""zig"": ""zag"""⍷r.content
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out " Test close session"
|
|
||||||
CloseSession session
|
|
||||||
•Out "OK"
|
|
||||||
|
|
||||||
•Out "All tests passed."
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue