From 6c7b46f5a9fbc1175a706dd005f72a952877a03c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 27 Oct 2023 16:22:14 +0200 Subject: Add tests for HTTP status codes. --- tests/unit/web-util/http-status-codes.scm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 tests/unit/web-util/http-status-codes.scm (limited to 'tests/unit') diff --git a/tests/unit/web-util/http-status-codes.scm b/tests/unit/web-util/http-status-codes.scm new file mode 100644 index 00000000..51bc26d6 --- /dev/null +++ b/tests/unit/web-util/http-status-codes.scm @@ -0,0 +1,16 @@ +(define-module (test web-http-status-codes) + :use-module (srfi srfi-64) + :use-module (srfi srfi-88) + :use-module ((web http status-codes) + :select (http-status-codes + http-status-phrase + http-status-line))) + +(test-equal "Existing code" "Locked" (http-status-phrase 423)) +(test-equal "Missing code" "" (http-status-phrase 999)) +(test-equal "Default status line" + "HTTP/1.1 302 Found" (http-status-line 302)) +(test-equal "Custom status line" + "HTTP/1.1 200 Sure Thing" (http-status-line 200 "Sure Thing")) + +'((web http status-codes)) -- cgit v1.2.3