blob: dd18edaf8593d6edd1c2b0a2819c3e31f0f85650 (
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
|
;;; test-dirvish-config-html-file-p.el --- Tests for the html-file predicate -*- lexical-binding: t; -*-
;;; Commentary:
;; `cj/--html-file-p' is the predicate behind `cj/dirvish-open-html-in-eww'.
;; The earlier inline regex was case-sensitive (`.html?\='), but most
;; browsers treat `.HTML' as HTML too, so the helper is case-insensitive.
;; The predicate also anchors on the trailing extension so files with
;; "html" embedded in the middle of the name don't match.
;;; 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)
(ert-deftest test-cj--html-file-p-html-extension-matches ()
"Normal: `.html' extension matches."
(should (cj/--html-file-p "/tmp/index.html")))
(ert-deftest test-cj--html-file-p-htm-extension-matches ()
"Normal: `.htm' extension matches (legacy 8.3 form)."
(should (cj/--html-file-p "/tmp/page.htm")))
(ert-deftest test-cj--html-file-p-uppercase-html-matches ()
"Boundary: `.HTML' (uppercase) matches -- match is case-insensitive."
(should (cj/--html-file-p "/tmp/index.HTML")))
(ert-deftest test-cj--html-file-p-mixed-case-html-matches ()
"Boundary: mixed case (`.Html') matches."
(should (cj/--html-file-p "/tmp/index.Html")))
(ert-deftest test-cj--html-file-p-embedded-html-does-not-match ()
"Boundary: `html' in the middle of the name doesn't match (anchor at end)."
(should-not (cj/--html-file-p "/tmp/html-thing.org")))
(ert-deftest test-cj--html-file-p-non-html-extension-does-not-match ()
"Error: a non-html file returns nil."
(should-not (cj/--html-file-p "/tmp/notes.txt")))
(ert-deftest test-cj--html-file-p-no-extension-does-not-match ()
"Boundary: a file without an extension does not match."
(should-not (cj/--html-file-p "/tmp/README")))
(provide 'test-dirvish-config-html-file-p)
;;; test-dirvish-config-html-file-p.el ends here
|
