mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 15:50:40 -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

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