From 3c42890e1584c8f8d48f8c7c23d3765f155877f6 Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri@lozeve.com>
Date: Mon, 2 Oct 2023 19:40:19 +0200
Subject: [PATCH] Add tests

---
 tests.bqn | 154 +++++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 152 insertions(+), 2 deletions(-)
 mode change 100644 => 100755 tests.bqn

diff --git a/tests.bqn b/tests.bqn
old mode 100644
new mode 100755
index 85a85b8..67bd4f9
--- a/tests.bqn
+++ b/tests.bqn
@@ -1,10 +1,20 @@
-⟨Get,Post⟩←•Import"curl.bqn"
+#!/usr/bin/env bqn
+⟨
+  Get,Post,
+  OpenSession,ResetSession,CloseSession,
+  SetURL,SetHeaders,SetVerbose,SetTimeout,SetTimeoutms,SetData,
+  Perform,
+⟩←•Import"curl.bqn"
 
 httpbinURL←"http://localhost:8080"
+r←0
+
+## Simple API
 
 •Out "    Test GET"
-r←Get httpbinURL∾"/get"
+r↩Get httpbinURL∾"/get"
 ! 200=r.code
+! 0=r.redirectCount
 ! 1=⊑"HTTP/"⍷r.headers
 ! 1=+´"Content-Type: "⍷r.headers
 ! 1=+´"Content-Length: "⍷r.headers
@@ -16,6 +26,7 @@ r←Get httpbinURL∾"/get"
 •Out "    Test GET with headers"
 r↩⟨"User-Agent: toto","Content-Type: application/json","Hello: World"⟩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
@@ -25,6 +36,7 @@ r↩⟨"User-Agent: toto","Content-Type: application/json","Hello: World"⟩Get
 •Out "    Test POST with headers"
 r↩⟨"Content-Type: application/json"⟩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
@@ -32,4 +44,142 @@ r↩⟨"Content-Type: application/json"⟩Post⟨httpbinURL∾"/post","{""key"":
 ! 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."