blob: 74a3f2ab7f93d8e443cc401838d454dbc14659d8 (
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
|
;;; test-org-drill-org-9.6-dep.el --- Test Org dep declarations match runtime needs -*- lexical-binding: t; -*-
;;; Commentary:
;; org-drill calls `org-fold-show-entry' and `org-fold-show-subtree'
;; from seven sites without `fboundp' guards. Both functions arrived
;; in Org 9.6. Pre-fix the package declared `(org "9.3")' /
;; `(depends-on "org" "9.2")', so users on older Org would silently
;; void-function at runtime instead of getting a clear install-time
;; error.
;;
;; Bumping the dep to 9.6 makes the requirement explicit and lets us
;; call the new APIs without per-site guards. Tests verify the
;; declared deps and that the API symbols are actually bound.
;;; Code:
(require 'ert)
(require 'org)
(require 'org-drill)
;;;; Dep declarations
(ert-deftest test-org-drill-package-requires-org-9.6-or-newer ()
"The Package-Requires header declares org 9.6+ — matches the runtime
need for org-fold-show-entry/-subtree."
(let ((header-line
(with-temp-buffer
(insert-file-contents
(locate-library "org-drill") nil 0 4096)
(goto-char (point-min))
(when (re-search-forward "Package-Requires:.*$" nil t)
(match-string 0)))))
(should header-line)
(should (string-match-p "(org \"9\\.6\\|9\\.[7-9]\\|[1-9][0-9]" header-line))))
(ert-deftest test-org-drill-org-fold-functions-bound ()
"On any supported Org version (>= 9.6), the org-fold APIs we call
without guards are actually bound."
(should (fboundp 'org-fold-show-entry))
(should (fboundp 'org-fold-show-subtree)))
(provide 'test-org-drill-org-9.6-dep)
;;; test-org-drill-org-9.6-dep.el ends here
|
