1 ;;; print-tests.el --- tests for src/print.c -*- lexical-binding: t; -*-
3 ;; Copyright (C) 2014-2015 Free Software Foundation, Inc.
5 ;; This file is part of GNU Emacs.
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/>.
24 (ert-deftest terpri
()
25 (should (string= (with-output-to-string
27 (should (terpri nil t
)))
29 (should (string= (with-output-to-string
30 (should-not (terpri nil t
))
35 (progn (should (terpri nil t
))
36 (should-not (terpri nil t
))
38 (should (terpri nil t
))
39 (should-not (terpri nil t
)))
40 (should (string= (progn (should-not (terpri nil t
))
42 (should (terpri nil t
))
45 (let ((standard-output
46 (with-current-buffer (get-buffer-create "*terpri-test*")
49 (should (terpri nil t
))
50 (should-not (terpri nil t
))
51 (should (string= (with-current-buffer (marker-buffer standard-output
)
55 (provide 'print-tests
)
56 ;;; print-tests.el ends here