mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-12 00:50:43 -08:00
Code Issues Projects Releases Wiki Activity

; Revert "; Tracing for eieio-test random failure (Bug#24503)"

Browse source 
The tracing seems to prevent the bug from happening.
This commit is contained in:
Noam Postavsky 2018-03-10 21:01:24 -05:00
parent 864643929b
commit 60c4cf6311
2 changed files with 1 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

21
test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
View file

@ -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"