blob: 91b47998690234037344432e6d8181f6f174eeda (
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
62
63
64
65
|
;;; test-video-audio-recording-friendly-state.el --- Tests for cj/recording-friendly-state -*- lexical-binding: t; -*-
;;; Commentary:
;; Unit tests for cj/recording-friendly-state function.
;; Tests conversion of technical pactl state names to user-friendly labels.
;;; Code:
(require 'ert)
;; Stub dependencies before loading the module
(defvar cj/custom-keymap (make-sparse-keymap)
"Stub keymap for testing.")
;; Now load the actual production module
(require 'video-audio-recording)
;;; Normal Cases
(ert-deftest test-video-audio-recording-friendly-state-normal-suspended-returns-ready ()
"Test that SUSPENDED state converts to Ready."
(should (string= "Ready" (cj/recording-friendly-state "SUSPENDED"))))
(ert-deftest test-video-audio-recording-friendly-state-normal-running-returns-active ()
"Test that RUNNING state converts to Active."
(should (string= "Active" (cj/recording-friendly-state "RUNNING"))))
(ert-deftest test-video-audio-recording-friendly-state-normal-idle-returns-ready ()
"Test that IDLE state converts to Ready."
(should (string= "Ready" (cj/recording-friendly-state "IDLE"))))
;;; Boundary Cases
(ert-deftest test-video-audio-recording-friendly-state-boundary-empty-string-returns-empty ()
"Test that empty string passes through unchanged."
(should (string= "" (cj/recording-friendly-state ""))))
(ert-deftest test-video-audio-recording-friendly-state-boundary-lowercase-suspended-returns-unchanged ()
"Test that lowercase 'suspended' is not converted (case-sensitive)."
(should (string= "suspended" (cj/recording-friendly-state "suspended"))))
(ert-deftest test-video-audio-recording-friendly-state-boundary-mixed-case-returns-unchanged ()
"Test that mixed case 'Running' passes through unchanged."
(should (string= "Running" (cj/recording-friendly-state "Running"))))
;;; Error Cases
(ert-deftest test-video-audio-recording-friendly-state-error-unknown-state-returns-unchanged ()
"Test that unknown state passes through unchanged."
(should (string= "UNKNOWN" (cj/recording-friendly-state "UNKNOWN"))))
(ert-deftest test-video-audio-recording-friendly-state-error-random-string-returns-unchanged ()
"Test that random string passes through unchanged."
(should (string= "foobar" (cj/recording-friendly-state "foobar"))))
(ert-deftest test-video-audio-recording-friendly-state-error-numeric-string-returns-unchanged ()
"Test that numeric string passes through unchanged."
(should (string= "12345" (cj/recording-friendly-state "12345"))))
(ert-deftest test-video-audio-recording-friendly-state-error-special-chars-returns-unchanged ()
"Test that string with special characters passes through unchanged."
(should (string= "!@#$%" (cj/recording-friendly-state "!@#$%"))))
(provide 'test-video-audio-recording-friendly-state)
;;; test-video-audio-recording-friendly-state.el ends here
|
