blob: a91b531b7dfd76665bcade84291a97a9da4fc02f (
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
66
|
;;; test-transcription-format-entry.el --- Tests for format-transcription-entry -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests for `cj/--format-transcription-entry', which renders a single
;; transcription entry for display in the *Transcriptions* buffer.
;;; Code:
(require 'ert)
(defvar cj/custom-keymap (make-sparse-keymap))
(unless (fboundp 'notifications-notify)
(defun notifications-notify (&rest _args) nil))
(require 'transcription-config)
(defun test-format-entry-face-at (string needle)
"Return the `face' property at the start of NEEDLE within STRING."
(let ((pos (string-match-p (regexp-quote needle) string)))
(and pos (get-text-property pos 'face string))))
;;; Normal Cases
(ert-deftest test-format-entry-normal-running-uses-warning-face ()
"Running status renders with the `warning' face."
(let* ((entry '(proc "/tmp/a.m4a" (0 0 0 0) running))
(s (cj/--format-transcription-entry entry)))
(should (string-match-p "running" s))
(should (eq 'warning (test-format-entry-face-at s "running")))))
(ert-deftest test-format-entry-normal-complete-uses-success-face ()
"Complete status renders with the `success' face."
(let* ((entry '(proc "/tmp/a.m4a" (0 0 0 0) complete))
(s (cj/--format-transcription-entry entry)))
(should (string-match-p "complete" s))
(should (eq 'success (test-format-entry-face-at s "complete")))))
(ert-deftest test-format-entry-normal-error-uses-error-face ()
"Error status renders with the `error' face."
(let* ((entry '(proc "/tmp/a.m4a" (0 0 0 0) error))
(s (cj/--format-transcription-entry entry)))
(should (string-match-p "error" s))
(should (eq 'error (test-format-entry-face-at s "error")))))
(ert-deftest test-format-entry-normal-shows-basename-only ()
"Only the file's basename appears; the directory path is stripped."
(let* ((entry '(proc "/deep/nested/path/track.m4a" (0 0 0 0) running))
(s (cj/--format-transcription-entry entry)))
(should (string-match-p "track\\.m4a" s))
(should-not (string-match-p "/deep/nested" s))))
(ert-deftest test-format-entry-normal-includes-duration-in-parens ()
"Rendering includes a parenthesised duration."
(let* ((entry '(proc "/a.m4a" (0 0 0 0) running))
(s (cj/--format-transcription-entry entry)))
(should (string-match-p "([0-9]+:[0-9][0-9])" s))))
(ert-deftest test-format-entry-normal-ends-with-newline ()
"Each rendered entry terminates with a newline for buffer concatenation."
(let* ((entry '(proc "/a.m4a" (0 0 0 0) running))
(s (cj/--format-transcription-entry entry)))
(should (string-suffix-p "\n" s))))
(provide 'test-transcription-format-entry)
;;; test-transcription-format-entry.el ends here
|
