Response objects

1 files changed, 20 insertions, 0 deletions

diff --git a/tests/response.scm b/tests/response.scm
new file mode 100644
index 0000000..e382169
--- /dev/null
+++ b/tests/response.scm
@@ -0,0 +1,20 @@
+(use-modules (srfi srfi-64)
+             (weeb response)
+             (weeb struct))
+
+(test-runner-current (test-runner-simple))
+
+(test-begin "weeb-response")
+
+(test-group "any->response"
+  (let ((resp (make-struct <response> 201 '() "created")))
+    (test-equal "identity" resp (any->response resp)))
+  (test-equal "string-only" (make-struct <response> 200 '() "hello")
+    (any->response "hello"))
+  (test-equal "list" (make-struct <response> 404 '() "not found")
+    (any->response '(404 "not found")))
+  (test-error "integer should trigger error" #t (any->response 500))
+  (test-error "list too short" #t (any->response '(200)))
+  (test-error "list too long" #t (any->response '(200 "body" "extra"))))
+
+(test-end)