diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2017-08-04 19:50:21 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-08-07 18:54:49 -0400 |
| commit | b5c8e9898d9dbd4145c40d08e8eef84a5e32008a (patch) | |
| tree | 55296988e6b39d42ee09395f2fb8078e3fed28c1 /test/lisp/emacs-lisp | |
| parent | cc30d77ecdd1b9155ade3d0656a84a0839ee2795 (diff) | |
| download | emacs-b5c8e9898d9dbd4145c40d08e8eef84a5e32008a.tar.gz emacs-b5c8e9898d9dbd4145c40d08e8eef84a5e32008a.tar.bz2 emacs-b5c8e9898d9dbd4145c40d08e8eef84a5e32008a.zip | |
Let the cl-typep effects of defclass work during compilation (Bug#27718)
* lisp/emacs-lisp/eieio.el (defclass): Use `define-symbol-prop'
instead of `put'.
* test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
(eieio-tests--dummy-function): Remove.
(eieio-test-25-slot-tests, eieio-test-23-inheritance-check): Don't
expect to fail if compiled.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/eieio-tests/eieio-tests.el | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el b/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el index d824bfc1bb4..1a6ab9da085 100644 --- a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el +++ b/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el @@ -529,15 +529,7 @@ METHOD is the method that was attempting to be called." "This class should break.")) :type 'invalid-slot-type)) -(defun eieio-tests--dummy-function () - ;; Dummy function to see if the file is compiled. - t) - (ert-deftest eieio-test-23-inheritance-check () - ;; This test fails when compiled, see Bug#27718. - :expected-result (if (byte-code-function-p - (symbol-function 'eieio-tests--dummy-function)) - :failed :passed) (should (child-of-class-p 'class-ab 'class-a)) (should (child-of-class-p 'class-ab 'class-b)) (should (object-of-class-p eitest-a 'class-a)) @@ -556,10 +548,6 @@ METHOD is the method that was attempting to be called." (should (not (cl-typep "foo" 'class-a)))) (ert-deftest eieio-test-24-object-predicates () - ;; This test fails when compiled, see Bug#27718. - :expected-result (if (byte-code-function-p - (symbol-function 'eieio-tests--dummy-function)) - :failed :passed) (let ((listooa (list (class-ab) (class-a))) (listoob (list (class-ab) (class-b)))) (should (cl-typep listooa '(list-of class-a))) |