diff options
| author | Philipp Stephani | 2018-01-07 14:14:38 +0100 |
|---|---|---|
| committer | Philipp Stephani | 2018-01-07 14:14:38 +0100 |
| commit | 610dad1102cba5fa6111050d30c734b51bcdb77d (patch) | |
| tree | e017da7f090e2125d21dbc4d5600a444765f5277 /test | |
| parent | 6735df4443fe0aa60862a95c38746edf2b053862 (diff) | |
| download | emacs-610dad1102cba5fa6111050d30c734b51bcdb77d.tar.gz emacs-610dad1102cba5fa6111050d30c734b51bcdb77d.zip | |
Revert "Prevent name clashes between CL structures and builtin types"
This reverts commit 151496a4b96430924bc148f85b9c8471d1e132b1.
That commit breaks bootstrap builds due to a cyclic dependency.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/emacs-lisp/cl-macs-tests.el | 9 | ||||
| -rw-r--r-- | test/lisp/emacs-lisp/cl-preloaded-tests.el | 33 |
2 files changed, 0 insertions, 42 deletions
diff --git a/test/lisp/emacs-lisp/cl-macs-tests.el b/test/lisp/emacs-lisp/cl-macs-tests.el index 9236ac73b50..f0bde7af397 100644 --- a/test/lisp/emacs-lisp/cl-macs-tests.el +++ b/test/lisp/emacs-lisp/cl-macs-tests.el | |||
| @@ -497,13 +497,4 @@ collection clause." | |||
| 497 | vconcat (vector (1+ x))) | 497 | vconcat (vector (1+ x))) |
| 498 | [2 3 4 5 6]))) | 498 | [2 3 4 5 6]))) |
| 499 | 499 | ||
| 500 | |||
| 501 | (ert-deftest cl-defstruct/builtin-type () | ||
| 502 | (should-error | ||
| 503 | (macroexpand '(cl-defstruct hash-table)) | ||
| 504 | :type 'wrong-type-argument) | ||
| 505 | (should-error | ||
| 506 | (macroexpand '(cl-defstruct (hash-table (:predicate hash-table-p)))) | ||
| 507 | :type 'wrong-type-argument)) | ||
| 508 | |||
| 509 | ;;; cl-macs-tests.el ends here | 500 | ;;; cl-macs-tests.el ends here |
diff --git a/test/lisp/emacs-lisp/cl-preloaded-tests.el b/test/lisp/emacs-lisp/cl-preloaded-tests.el deleted file mode 100644 index 008a6e629f5..00000000000 --- a/test/lisp/emacs-lisp/cl-preloaded-tests.el +++ /dev/null | |||
| @@ -1,33 +0,0 @@ | |||
| 1 | ;;; cl-preloaded-tests.el --- unit tests for cl-preloaded.el -*- lexical-binding: t; -*- | ||
| 2 | |||
| 3 | ;; Copyright (C) 2017 Free Software Foundation, Inc. | ||
| 4 | ;; Author: Philipp Stephani <phst@google.com> | ||
| 5 | |||
| 6 | ;; This file is part of GNU Emacs. | ||
| 7 | |||
| 8 | ;; This program is free software; you can redistribute it and/or modify | ||
| 9 | ;; it under the terms of the GNU General Public License as published by | ||
| 10 | ;; the Free Software Foundation, either version 3 of the License, or | ||
| 11 | ;; (at your option) any later version. | ||
| 12 | |||
| 13 | ;; This program is distributed in the hope that it will be useful, | ||
| 14 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 15 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 16 | ;; GNU General Public License for more details. | ||
| 17 | |||
| 18 | ;; You should have received a copy of the GNU General Public License | ||
| 19 | ;; along with this program. If not, see <http://www.gnu.org/licenses/>. | ||
| 20 | |||
| 21 | ;;; Commentary: | ||
| 22 | |||
| 23 | ;; Unit tests for lisp/emacs-lisp/cl-preloaded.el. | ||
| 24 | |||
| 25 | ;;; Code: | ||
| 26 | |||
| 27 | (ert-deftest cl-struct-define/builtin-type () | ||
| 28 | (should-error | ||
| 29 | (cl-struct-define 'hash-table nil nil 'record nil nil | ||
| 30 | 'cl-preloaded-tests-tag 'cl-preloaded-tests nil) | ||
| 31 | :type 'wrong-type-argument)) | ||
| 32 | |||
| 33 | ;;; cl-preloaded-tests.el ends here | ||