blob: d1161808193201dc6b426a5ff601b720628cfe77 (
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
|
;;; test-calibredb-epub-config--open-to-favorites.el --- in-progress open filter -*- lexical-binding: t; -*-
;;; Commentary:
;; `cj/--calibredb-open-to-favorites' advises `calibredb' :after so every launch
;; lands filtered to `calibredb-favorite-keyword' (Craig's "in-progress" books).
;; It scopes the filter to the TAG field (sets `calibredb-tag-filter-p', clears
;; the other filter-p flags) before delegating to `calibredb-search-keyword-filter',
;; so the keyword can't over-match in a book's title or description. It no-ops
;; when no usable keyword is set.
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'calibredb-epub-config)
;; calibredb defcustom + internal flags; declared special so `let' binds them
;; dynamically (all unbound under `make test', which never runs the use-package
;; :config or loads calibredb).
(defvar calibredb-favorite-keyword)
(defvar calibredb-tag-filter-p)
(defvar calibredb-favorite-filter-p)
(defvar calibredb-author-filter-p)
(defvar calibredb-date-filter-p)
(defvar calibredb-format-filter-p)
(ert-deftest test-calibredb-open-to-favorites-applies-keyword-scoped-to-tags ()
"Normal: with a favorite keyword set, the filter runs with that keyword and is
scoped to the tag field (so it can't over-match a description); a stale
non-tag filter flag is cleared."
(let ((applied :unset)
(calibredb-favorite-keyword "in-progress")
(calibredb-tag-filter-p nil)
(calibredb-favorite-filter-p t) ; stale, must be cleared
(calibredb-author-filter-p nil)
(calibredb-date-filter-p nil)
(calibredb-format-filter-p nil))
(cl-letf (((symbol-function 'calibredb-search-keyword-filter)
(lambda (kw) (setq applied kw))))
(cj/--calibredb-open-to-favorites))
(should (equal applied "in-progress")) ; keyword applied
(should (eq calibredb-tag-filter-p t)) ; scoped to the tag field
(should-not calibredb-favorite-filter-p))) ; stale flag cleared
(ert-deftest test-calibredb-open-to-favorites-noop-without-usable-keyword ()
"Boundary/Error: nil, empty, or non-string keyword applies no filter."
(dolist (kw (list nil "" 42))
(let ((applied :unset)
(calibredb-favorite-keyword kw))
(cl-letf (((symbol-function 'calibredb-search-keyword-filter)
(lambda (k) (setq applied k))))
(cj/--calibredb-open-to-favorites))
(should (eq applied :unset)))))
(provide 'test-calibredb-epub-config--open-to-favorites)
;;; test-calibredb-epub-config--open-to-favorites.el ends here
|
