blob: d059a899aed1045e9040ba1c8dc627ffe45862a7 (
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
89
90
91
92
93
94
95
96
97
|
;;; test-dirvish-config-playlist.el --- Tests for the playlist helpers -*- lexical-binding: t; -*-
;;; Commentary:
;; `cj/--playlist-filter-audio' and `cj/--playlist-sanitize-name' are
;; the two pure pieces under `cj/dired-create-playlist-from-marked'.
;; The interactive command does the dired marking, prompting,
;; overwrite-confirmation loop, and the file write -- the helpers stay
;; testable in isolation.
;;; Code:
(require 'ert)
(require 'package)
(setq package-user-dir (expand-file-name "elpa" user-emacs-directory))
(package-initialize)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(add-to-list 'load-path (expand-file-name "elpa/dirvish-2.3.0/extensions"
user-emacs-directory))
(require 'user-constants)
(require 'keybindings)
(require 'dirvish-config)
;;; --------------------------- filter-audio --------------------------
(ert-deftest test-cj--playlist-filter-audio-keeps-only-audio ()
"Normal: a mixed list returns only the entries with audio extensions."
(should (equal (cj/--playlist-filter-audio
'("/m/song.mp3" "/d/notes.org" "/m/track.flac" "/d/run.sh")
'("mp3" "flac"))
'("/m/song.mp3" "/m/track.flac"))))
(ert-deftest test-cj--playlist-filter-audio-case-insensitive-extension ()
"Boundary: uppercase / mixed-case extensions are matched against the
lowercase extension list."
(should (equal (cj/--playlist-filter-audio
'("/m/A.MP3" "/m/B.Flac" "/m/c.OGG")
'("mp3" "flac" "ogg"))
'("/m/A.MP3" "/m/B.Flac" "/m/c.OGG"))))
(ert-deftest test-cj--playlist-filter-audio-files-without-extension-excluded ()
"Boundary: a file with no extension can't be an audio file."
(should (equal (cj/--playlist-filter-audio
'("/m/README" "/m/song.mp3" "/m/Makefile")
'("mp3"))
'("/m/song.mp3"))))
(ert-deftest test-cj--playlist-filter-audio-empty-input-empty-output ()
"Boundary: no input files -> no output."
(should-not (cj/--playlist-filter-audio '() '("mp3" "flac"))))
(ert-deftest test-cj--playlist-filter-audio-empty-extensions-empty-output ()
"Boundary: no allowed extensions -> nothing matches."
(should-not (cj/--playlist-filter-audio
'("/m/song.mp3" "/m/track.flac")
'())))
;;; ---------------------- sanitize-playlist-name ---------------------
(ert-deftest test-cj--playlist-sanitize-name-strips-trailing-m3u ()
"Normal: a `.m3u' suffix is stripped."
(should (equal (cj/--playlist-sanitize-name "summer.m3u") "summer")))
(ert-deftest test-cj--playlist-sanitize-name-bare-name-unchanged ()
"Normal: a name without `.m3u' is returned unchanged."
(should (equal (cj/--playlist-sanitize-name "summer") "summer")))
(ert-deftest test-cj--playlist-sanitize-name-embedded-m3u-untouched ()
"Boundary: `.m3u' that isn't at the end is kept (it's part of the name)."
(should (equal (cj/--playlist-sanitize-name "my.m3u.draft")
"my.m3u.draft")))
(ert-deftest test-cj--playlist-sanitize-name-empty-string-unchanged ()
"Boundary: empty string returns empty string."
(should (equal (cj/--playlist-sanitize-name "") "")))
(ert-deftest test-cj--playlist-sanitize-name-only-suffix ()
"Boundary: a name that's just `.m3u' becomes empty after stripping."
(should (equal (cj/--playlist-sanitize-name ".m3u") "")))
;;; cj/--playlist-name-safe-p
(ert-deftest test-cj--playlist-name-safe-p-bare-name ()
"Normal: a bare filename is safe."
(should (cj/--playlist-name-safe-p "roadtrip")))
(ert-deftest test-cj--playlist-name-safe-p-empty ()
"Boundary: an empty name is not safe."
(should-not (cj/--playlist-name-safe-p "")))
(ert-deftest test-cj--playlist-name-safe-p-rejects-separators ()
"Error: any directory separator (relative, absolute, or nested) is rejected."
(dolist (bad '("../evil" "../../etc/cron" "/etc/passwd" "sub/dir/name"))
(should-not (cj/--playlist-name-safe-p bad))))
(provide 'test-dirvish-config-playlist)
;;; test-dirvish-config-playlist.el ends here
|
