1 ;;; message-mode-tests.el --- Tests for message-mode -*- lexical-binding: t; -*-
3 ;; Copyright (C) 2015 Free Software Foundation, Inc.
5 ;; Author: João Távora <joaotavora@gmail.com>
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.
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.
17 ;; You should have received a copy of the GNU General Public License
18 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
22 ;; This file contains tests for message-mode.
28 (ert-deftest message-mode-propertize
()
33 (insert "here's an opener (\n"
34 "here's a sad face :-(\n"
35 "> here's citing someone with an opener (\n"
36 "and here's a closer ")
37 (let ((last-command-event ?\
)))
38 (ert-simulate-command '(self-insert-command 1)))
39 ;; Syntax propertization doesn't kick in batch mode
41 (syntax-propertize (point-max)))
43 (should (string= "here's an opener "
44 (buffer-substring-no-properties
45 (line-beginning-position)
48 (should (string= "and here's a closer )"
49 (buffer-substring-no-properties
50 (line-beginning-position)
52 (set-buffer-modified-p nil
))))
54 (provide 'message-mode-tests
)
55 ;;; message-mode-tests.el ends here