diff options
Diffstat (limited to 'test/src/cmds-tests.el')
| -rw-r--r-- | test/src/cmds-tests.el | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/test/src/cmds-tests.el b/test/src/cmds-tests.el index a545d0e08b5..73e933eb372 100644 --- a/test/src/cmds-tests.el +++ b/test/src/cmds-tests.el @@ -1,22 +1,24 @@ -;;; cmds-tests.el --- Testing some Emacs commands +;;; cmds-tests.el --- Testing some Emacs commands -*- lexical-binding: t -*- -;; Copyright (C) 2013-2017 Free Software Foundation, Inc. +;; Copyright (C) 2013-2022 Free Software Foundation, Inc. ;; Author: Nicolas Richard <youngfrog@members.fsf.org> ;; Keywords: -;; This program is free software; you can redistribute it and/or modify +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. -;; This program is distributed in the hope that it will be useful, +;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see <https://www.gnu.org/licenses/>. +;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. ;;; Commentary: @@ -30,5 +32,13 @@ (let ((last-command-event ?a)) (should-error (self-insert-command -1)))) +(ert-deftest forward-line-with-bignum () + (with-temp-buffer + (insert "x\n") + (let ((shortage (forward-line (1- most-negative-fixnum)))) + (should (= shortage most-negative-fixnum))) + (let ((shortage (forward-line (+ 2 most-positive-fixnum)))) + (should (= shortage (1+ most-positive-fixnum)))))) + (provide 'cmds-tests) ;;; cmds-tests.el ends here |