blob: 4860efc30aba06c0ddd514c1497abef84c8b7669 (
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
|
;;; test-calibredb-epub-config--menu.el --- calibredb curated-menu tests -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests for the docked book-description command bound into the curated calibredb
;; menu. The transient itself, its `?'/`H' keybindings, and the
;; display-buffer-alist dock live in calibredb's deferred `use-package' config
;; (they need the elpa transient, which batch does not load) and are verified
;; live in the daemon; here we cover the describe command, which has no transient
;; dependency.
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'calibredb-epub-config)
;; calibredb vars (defvar'd here so the tests' `let' bindings are dynamic; the
;; module's bare defvars are file-local to its own compilation unit).
(defvar calibredb-sort-by)
(defvar calibredb-search-filter)
(defvar calibredb-format-filter-p)
(ert-deftest test-calibredb-describe-at-point-shows-entry-without-switch ()
"Normal: describe calls `calibredb-show-entry' on the entry at point with no
switch argument, so the entry lands in the docked window with focus (q quits)."
(let (call)
(cl-letf (((symbol-function 'calibredb-find-candidate-at-point)
(lambda () '(the-entry extra)))
((symbol-function 'calibredb-show-entry)
(lambda (&rest args) (setq call args))))
(cj/calibredb-describe-at-point)
;; one argument only -- the entry -- and switch is therefore nil
(should (equal call '(the-entry))))))
(ert-deftest test-calibredb-sort-preserving-filter-keeps-filter ()
"Normal: the filter-preserving sort sets the field and refreshes via
`calibredb-search-refresh-or-resume' without touching the active filter."
(let ((calibredb-sort-by 'id)
(calibredb-search-filter "epub")
(calibredb-format-filter-p t)
(refreshed nil))
(cl-letf (((symbol-function 'calibredb-search-refresh-or-resume)
(lambda (&rest _) (setq refreshed t))))
(cj/--calibredb-sort-preserving-filter 'author)
(should (eq calibredb-sort-by 'author)) ; field updated
(should refreshed) ; refreshed
(should (equal calibredb-search-filter "epub")) ; filter kept
(should calibredb-format-filter-p)))) ; filter flag kept
(provide 'test-calibredb-epub-config--menu)
;;; test-calibredb-epub-config--menu.el ends here
|
