Refactor tests for better reporting
This commit is contained in:
parent
3c42890e15
commit
d30021db16
1 changed files with 175 additions and 172 deletions
223
tests.bqn
223
tests.bqn
|
|
@ -7,12 +7,14 @@
|
|||
⟩←•Import"curl.bqn"
|
||||
|
||||
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"
|
||||
r↩Get httpbinURL∾"/get"
|
||||
simpleAPI_testsuite←⟨
|
||||
"simple GET"‿{𝕊𝕩:
|
||||
r←Get httpbinURL∾"/get"
|
||||
! 200=r.code
|
||||
! 0=r.redirectCount
|
||||
! 1=⊑"HTTP/"⍷r.headers
|
||||
|
|
@ -21,20 +23,20 @@ r↩Get httpbinURL∾"/get"
|
|||
! 1=+´"""Host"": ""localhost:8080"""⍷r.content
|
||||
! 1=+´"""User-Agent"": ""curl/bqn"""⍷r.content
|
||||
! 0=+´"""Hello"": ""World"""⍷r.content
|
||||
•Out "OK"
|
||||
|
||||
•Out " Test GET with headers"
|
||||
r↩⟨"User-Agent: toto","Content-Type: application/json","Hello: World"⟩Get httpbinURL∾"/get"
|
||||
},
|
||||
"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
|
||||
•Out "OK"
|
||||
|
||||
•Out " Test POST with headers"
|
||||
r↩⟨"Content-Type: application/json"⟩Post⟨httpbinURL∾"/post","{""key"": ""value""}"⟩
|
||||
},
|
||||
"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
|
||||
|
|
@ -42,144 +44,145 @@ r↩⟨"Content-Type: application/json"⟩Post⟨httpbinURL∾"/post","{""key"":
|
|||
! 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"
|
||||
advancedAPI_testsuite←⟨
|
||||
"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
|
||||
CloseSession session
|
||||
},
|
||||
"GET"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
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
|
||||
CloseSession session
|
||||
},
|
||||
"POST"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
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
|
||||
CloseSession session
|
||||
},
|
||||
"basic auth fail"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
session↩(httpbinURL∾"/basic-auth/username/s3cr3tpa55word") SetURL session
|
||||
r↩Perform session
|
||||
r←Perform session
|
||||
! 401=r.code
|
||||
•Out "OK"
|
||||
|
||||
•Out " Test basic auth with header"
|
||||
session↩ResetSession session
|
||||
CloseSession session
|
||||
},
|
||||
"basic auth with header"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
session↩(httpbinURL∾"/basic-auth/username/s3cr3tpa55word") SetURL session
|
||||
r↩Perform ⟨"Authorization: Basic dXNlcm5hbWU6czNjcjN0cGE1NXdvcmQ="⟩ SetHeaders session
|
||||
r←Perform ⟨"Authorization: Basic dXNlcm5hbWU6czNjcjN0cGE1NXdvcmQ="⟩ SetHeaders session
|
||||
! 200=r.code
|
||||
•Out "OK"
|
||||
|
||||
•Out " Test basic auth with URL"
|
||||
session↩ResetSession session
|
||||
CloseSession session
|
||||
},
|
||||
"basic auth with URL"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
session↩("http://username:s3cr3tpa55word@localhost:8080/basic-auth/username/s3cr3tpa55word") SetURL session
|
||||
r↩Perform session
|
||||
r←Perform session
|
||||
! 200=r.code
|
||||
•Out "OK"
|
||||
|
||||
•Out " Test bearer auth fail"
|
||||
session↩ResetSession session
|
||||
CloseSession session
|
||||
},
|
||||
"bearer auth fail"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
session↩(httpbinURL∾"/bearer") SetURL session
|
||||
r↩Perform session
|
||||
r←Perform session
|
||||
! 401=r.code
|
||||
•Out "OK"
|
||||
|
||||
•Out " Test bearer auth"
|
||||
session↩ResetSession session
|
||||
CloseSession session
|
||||
},
|
||||
"bearer auth"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
session↩(httpbinURL∾"/bearer") SetURL session
|
||||
r↩Perform ⟨"Authorization: Bearer hey!"⟩ SetHeaders 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
|
||||
CloseSession session
|
||||
},
|
||||
"status GET"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
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
|
||||
CloseSession session
|
||||
},
|
||||
"status POST"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
r←Perform ""SetData (httpbinURL∾"/status/418") SetURL session
|
||||
! 418=r.code
|
||||
•Out "OK"
|
||||
|
||||
•Out " Test set headers"
|
||||
session↩ResetSession session
|
||||
CloseSession session
|
||||
},
|
||||
"set headers"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
session↩(httpbinURL∾"/headers") SetURL session
|
||||
r↩Perform ⟨"Hello: World"⟩ SetHeaders session
|
||||
r←Perform ⟨"Hello: World"⟩ SetHeaders session
|
||||
! 1=+´"""Hello"": ""World"""⍷r.content
|
||||
•Out "OK"
|
||||
|
||||
•Out " Test default user-agent"
|
||||
session↩ResetSession session
|
||||
CloseSession session
|
||||
},
|
||||
"default user-agent"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
session↩(httpbinURL∾"/user-agent") SetURL session
|
||||
r↩Perform session
|
||||
r←Perform session
|
||||
! 1=+´"curl/bqn"⍷r.content
|
||||
•Out "OK"
|
||||
|
||||
•Out " Test custom user-agent"
|
||||
session↩ResetSession session
|
||||
CloseSession session
|
||||
},
|
||||
"custom user-agent"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
session↩(httpbinURL∾"/user-agent") SetURL session
|
||||
r↩Perform ⟨"User-Agent: hello/world"⟩ SetHeaders 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
|
||||
CloseSession session
|
||||
},
|
||||
"timeout with fast request"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
session↩1010 SetTimeoutms (httpbinURL∾"/delay/1") SetURL session
|
||||
r↩Perform session
|
||||
r←Perform session
|
||||
! 200=r.code
|
||||
•Out "OK"
|
||||
|
||||
•Out " Test request timeout"
|
||||
session↩ResetSession session
|
||||
CloseSession session
|
||||
},
|
||||
"request timeout"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
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
|
||||
CloseSession session
|
||||
},
|
||||
"follow redirects"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
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
|
||||
CloseSession session
|
||||
},
|
||||
"follow absolute redirects"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
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
|
||||
CloseSession session
|
||||
},
|
||||
"follow relative redirects"‿{𝕊𝕩:
|
||||
session←OpenSession @
|
||||
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
|
||||
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
|
||||
•Out "OK"
|
||||
|
||||
•Out " Test close session"
|
||||
CloseSession session
|
||||
•Out "OK"
|
||||
},
|
||||
⟩
|
||||
|
||||
•Out "All tests passed."
|
||||
RunAll⟨
|
||||
"Simple API"‿simpleAPI_testsuite,
|
||||
"Advanced API"‿advancedAPI_testsuite,
|
||||
⟩
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue