blob: 4a714e2e8a7a3d7251fa31f2d57b0509af2ec4b2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
;;; test-wttrin--extract-http-status.el --- Tests for wttrin--extract-http-status -*- lexical-binding: t; -*-
;; Copyright (C) 2025-2026 Craig Jennings
;;; Commentary:
;; Unit tests for wttrin--extract-http-status function.
;; Parses the HTTP status code from url-retrieve's response buffer.
;;; Code:
(require 'ert)
(require 'wttrin)
(require 'testutil-wttrin)
;;; Normal Cases
(ert-deftest test-wttrin--extract-http-status-normal-200 ()
"Standard 200 OK response should return 200."
(with-temp-buffer
(insert "HTTP/1.1 200 OK\r\nContent-Type: text/plain\r\n\r\nbody")
(should (= (wttrin--extract-http-status) 200))))
(ert-deftest test-wttrin--extract-http-status-normal-404 ()
"404 Not Found response should return 404."
(with-temp-buffer
(insert "HTTP/1.1 404 Not Found\r\n\r\nNot found")
(should (= (wttrin--extract-http-status) 404))))
(ert-deftest test-wttrin--extract-http-status-normal-500 ()
"500 Internal Server Error should return 500."
(with-temp-buffer
(insert "HTTP/1.1 500 Internal Server Error\r\n\r\nerror")
(should (= (wttrin--extract-http-status) 500))))
;;; Boundary Cases
(ert-deftest test-wttrin--extract-http-status-boundary-no-status-line ()
"Buffer with no HTTP status line should return nil."
(with-temp-buffer
(insert "just some text with no HTTP headers")
(should-not (wttrin--extract-http-status))))
(ert-deftest test-wttrin--extract-http-status-boundary-http2 ()
"HTTP/2 responses use a different format but still have a status code."
(with-temp-buffer
(insert "HTTP/2 301 Moved Permanently\r\n\r\n")
(should (= (wttrin--extract-http-status) 301))))
(ert-deftest test-wttrin--extract-http-status-boundary-does-not-move-point ()
"Parsing the status should not change point, so it doesn't interfere
with subsequent header/body parsing."
(with-temp-buffer
(insert "HTTP/1.1 200 OK\r\n\r\nbody")
(goto-char (point-min))
(let ((pos-before (point)))
(wttrin--extract-http-status)
(should (= (point) pos-before)))))
(provide 'test-wttrin--extract-http-status)
;;; test-wttrin--extract-http-status.el ends here
|
