Check that variable lists are actually lists
[emacs.git] / test / src / eval-tests.el
blob95655eac826a87a3bd51e00f16a5cdc2e23f8769
1 ;;; eval-tests.el --- unit tests for src/eval.c -*- lexical-binding: t; -*-
3 ;; Copyright (C) 2016-2017 Free Software Foundation, Inc.
5 ;; Author: Philipp Stephani <phst@google.com>
7 ;; This file is part of GNU Emacs.
9 ;; GNU Emacs is free software: you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation, either version 3 of the License, or
12 ;; (at your option) any later version.
14 ;; GNU Emacs is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;; GNU General Public License for more details.
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
22 ;;; Commentary:
24 ;; Unit tests for src/eval.c.
26 ;;; Code:
28 (require 'ert)
30 (ert-deftest eval-tests--bug24673 ()
31 "Checks that Bug#24673 has been fixed."
32 ;; This should not crash.
33 (should-error (funcall '(closure)) :type 'invalid-function))
35 (ert-deftest eval-tests--bugs-24912-and-24913 ()
36 "Checks that Emacs doesn’t accept weird argument lists.
37 Bug#24912 and Bug#24913."
38 (dolist (args '((&optional) (&rest) (&optional &rest) (&rest &optional)
39 (&optional &rest a) (&optional a &rest)
40 (&rest a &optional) (&rest &optional a)
41 (&optional &optional) (&optional &optional a)
42 (&optional a &optional b)
43 (&rest &rest) (&rest &rest a)
44 (&rest a &rest b)))
45 (should-error (eval `(funcall (lambda ,args)) t) :type 'invalid-function)
46 (should-error (byte-compile-check-lambda-list args))
47 (let ((byte-compile-debug t))
48 (should-error (eval `(byte-compile (lambda ,args)) t)))))
51 (dolist (form '(let let*))
52 (dolist (arg '(1 "a" [a]))
53 (eval
54 `(ert-deftest ,(intern (format "eval-tests--%s--%s" form (type-of arg))) ()
55 ,(format "Check that the first argument of `%s' cannot be a %s"
56 form (type-of arg))
57 (should-error (,form ,arg) :type 'wrong-type-argument))
58 t)))
60 ;;; eval-tests.el ends here