blob: 3d1d17658a29520d3af4ef381e0b02c4aeb13fe6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(define-module (test 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))
|
