diff options
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/eieio-tests/eieio-tests.el | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el b/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el index 69dc16443f9..5ba094c0072 100644 --- a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el +++ b/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el @@ -887,34 +887,15 @@ Subclasses to override slot attributes.") (should (= (length (eieio-build-class-alist 'opt-test1 nil)) 2)) (should (= (length (eieio-build-class-alist 'opt-test1 t)) 1))) -(mapatoms (lambda (a) - (when (and (fboundp a) - (string-match "\\`cl--?generic" - (symbol-name a))) - (trace-function-background a)))) - (defclass eieio--testing () ()) (defmethod constructor :static ((_x eieio--testing) newname &rest _args) (list newname 2)) -(defun eieio-test-dump-trace () - (message "%s" (with-current-buffer "*trace-output*" - (goto-char (point-min)) - (while (re-search-forward "[\0-\010\013-\037]" nil t) - (insert (prog1 (format "\\%03o" (char-before)) - (delete-char -1)))) - (buffer-string)))) -(eieio-test-dump-trace) - (ert-deftest eieio-test-37-obsolete-name-in-constructor () ;; FIXME repeated intermittent failures on hydra and elsewhere (bug#24503). :tags '(:unstable) - (with-current-buffer "*trace-output*" - (erase-buffer)) - (unwind-protect - (should (equal (eieio--testing "toto") '("toto" 2))) - (eieio-test-dump-trace))) + (should (equal (eieio--testing "toto") '("toto" 2)))) (ert-deftest eieio-autoload () "Tests to see whether reftex-auc has been autoloaded" |