blob: f5f5fc5b87b66580a9ddc421e14e4dbec4e48ab1 (
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
;;; test-music-config--music-files-recursive.el --- Tests for filtered directory collection -*- coding: utf-8; lexical-binding: t; -*-
;;
;; Author: Craig Jennings <c@cjennings.net>
;;
;;; Commentary:
;; Directory adds used to hand the whole tree to emms-add-directory-tree,
;; which adds every file it finds -- cover.jpg and friends ended up as
;; playlist rows. The filtered walk returns only files passing
;; cj/music--valid-file-p, skipping hidden dirs/files, sorted. Real temp-dir
;; fixtures; the EMMS boundary is mocked only in the command-level test.
;;; Code:
(require 'ert)
(require 'cl-lib)
(defvar cj/custom-keymap (make-sparse-keymap)
"Stub keymap for testing.")
(require 'music-config)
(defmacro test-music-files--with-fixture (var &rest body)
"Run BODY with VAR bound to a temp music-directory fixture."
(declare (indent 1))
`(let ((,var (make-temp-file "music-test-" t)))
(unwind-protect
(progn
(make-directory (expand-file-name "album" ,var))
(make-directory (expand-file-name ".hidden" ,var))
(dolist (f '("song.mp3" "cover.jpg" "album/track.flac"
"album/folder.png" "album/notes.txt"
".hidden/secret.mp3" ".stray.ogg"))
(write-region "" nil (expand-file-name f ,var)))
,@body)
(delete-directory ,var t))))
;;; Normal Cases
(ert-deftest test-music-files-recursive-music-only ()
"Normal: only files with accepted music extensions come back, sorted;
cover art, text files, and hidden entries stay out."
(test-music-files--with-fixture root
(should (equal (mapcar (lambda (f) (file-relative-name f root))
(cj/music--music-files-recursive root))
'("album/track.flac" "song.mp3")))))
(ert-deftest test-music-add-directory-recursive-adds-only-music ()
"Normal: the directory-add command feeds only music files to EMMS."
(test-music-files--with-fixture root
(let (added)
(cl-letf (((symbol-function 'cj/music--ensure-playlist-buffer)
(lambda () (current-buffer)))
((symbol-function 'emms-add-file)
(lambda (f) (push f added))))
(cj/music-add-directory-recursive root))
(should (equal (mapcar (lambda (f) (file-relative-name f root))
(nreverse added))
'("album/track.flac" "song.mp3"))))))
;;; Boundary Cases
(ert-deftest test-music-files-recursive-case-insensitive-extensions ()
"Boundary: extensions match case-insensitively (Song.MP3 counts)."
(let ((root (make-temp-file "music-test-case-" t)))
(unwind-protect
(progn
(write-region "" nil (expand-file-name "Song.MP3" root))
(should (= 1 (length (cj/music--music-files-recursive root)))))
(delete-directory root t))))
(ert-deftest test-music-files-recursive-empty-directory ()
"Boundary: a directory with no music files returns nil."
(let ((root (make-temp-file "music-test-empty-" t)))
(unwind-protect
(progn
(write-region "" nil (expand-file-name "readme.txt" root))
(should-not (cj/music--music-files-recursive root)))
(delete-directory root t))))
;;; Error Cases
(ert-deftest test-music-add-directory-recursive-not-a-directory-errors ()
"Error: a non-directory argument signals user-error."
(should-error (cj/music-add-directory-recursive "/nonexistent/nowhere")
:type 'user-error))
(provide 'test-music-config--music-files-recursive)
;;; test-music-config--music-files-recursive.el ends here
|
