mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Add test for lm-website

Browse source 
* lisp/emacs-lisp/lisp-mnt.el (lm-website): Use rx.
* test/lisp/emacs-lisp/lisp-mnt-tests.el
(lm--tests-lm-website): New test.
This commit is contained in:
Stefan Kangas 2021-09-26 14:13:03 +02:00
parent 6e1de14e51
commit a0d5de4fb9
2 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/lisp-mnt.el
View file

@ -501,9 +501,9 @@ absent, return nil."
(defun lm-website (&optional file)
"Return the website in file FILE, or current buffer if FILE is nil."
(let ((page (lm-with-file file
(lm-header "\\(?:x-\\)?\\(?:url\\|homepage\\)"))))
(if (and page (string-match "^<.+>$" page))
(substring page 1 -1)
(lm-header (rx (? "x-") (or "url" "homepage"))))))
(if (and page (string-match (rx bol "<" (+ nonl) ">" eol) page))
(substring page 1 -1)
page)))
(defalias 'lm-homepage 'lm-website) ; for backwards-compatibility

8
test/lisp/emacs-lisp/lisp-mnt-tests.el
View file

@ -32,5 +32,13 @@
'(("Bob Weiner" . "rsw@gnu.org")
("Mats Lidell" . "matsl@gnu.org")))))
(ert-deftest lm--tests-lm-website ()
(with-temp-buffer
(insert ";; URL: https://example.org/foo")
(should (string= (lm-website) "https://example.org/foo")))
(with-temp-buffer
(insert ";; X-URL: <https://example.org/foo>")
(should (string= (lm-website) "https://example.org/foo"))))
(provide 'lisp-mnt-tests)
;;; lisp-mnt-tests.el ends here