1 files changed, 65 insertions, 0 deletions
diff --git a/tests/test-video-audio-recording-friendly-state.el b/tests/test-video-audio-recording-friendly-state.el
new file mode 100644
index 00000000..91b47998
--- /dev/null
+++ b/tests/test-video-audio-recording-friendly-state.el
@@ -0,0 +1,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