aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorPhilipp Stephani2018-01-07 14:14:38 +0100
committerPhilipp Stephani2018-01-07 14:14:38 +0100
commit610dad1102cba5fa6111050d30c734b51bcdb77d (patch)
treee017da7f090e2125d21dbc4d5600a444765f5277 /test
parent6735df4443fe0aa60862a95c38746edf2b053862 (diff)
downloademacs-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.el9
-rw-r--r--test/lisp/emacs-lisp/cl-preloaded-tests.el33
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