1;;; lisp-mnt-tests.el --- Tests for lisp-mnt -*- lexical-binding: t; -*- 2 3;; Copyright (C) 2021 2020-2021 Free Software Foundation, Inc. 4 5;; Author: Stefan Monnier <monnier@iro.umontreal.ca> 6 7;; This program is free software; you can redistribute it and/or modify 8;; it under the terms of the GNU General Public License as published by 9;; the Free Software Foundation, either version 3 of the License, or 10;; (at your option) any later version. 11 12;; This program is distributed in the hope that it will be useful, 13;; but WITHOUT ANY WARRANTY; without even the implied warranty of 14;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15;; GNU General Public License for more details. 16 17;; You should have received a copy of the GNU General Public License 18;; along with this program. If not, see <https://www.gnu.org/licenses/>. 19 20;;; Commentary: 21 22;; 23 24;;; Code: 25 26(require 'ert) 27(require 'lisp-mnt) 28 29(ert-deftest lm--tests-crack-address () 30 (should (equal (lm-crack-address 31 "Bob Weiner <rsw@gnu.org>, Mats Lidell <matsl@gnu.org>") 32 '(("Bob Weiner" . "rsw@gnu.org") 33 ("Mats Lidell" . "matsl@gnu.org"))))) 34 35(ert-deftest lm--tests-lm-website () 36 (with-temp-buffer 37 (insert ";; URL: https://example.org/foo") 38 (should (string= (lm-website) "https://example.org/foo"))) 39 (with-temp-buffer 40 (insert ";; X-URL: <https://example.org/foo>") 41 (should (string= (lm-website) "https://example.org/foo")))) 42 43(provide 'lisp-mnt-tests) 44;;; lisp-mnt-tests.el ends here 45