From 7e58d67392d5611cd205cc180ce64335b61afd5a Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 25 Jun 2014 15:12:14 -0400 Subject: [PATCH] Try to fix some flymake-tests weirdness * test/automated/flymake-tests.el (flymake-tests--current-face): Sleep for longer. Avoid querying. --- test/ChangeLog | 5 +++++ test/automated/flymake-tests.el | 7 ++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/test/ChangeLog b/test/ChangeLog index 3cb03b9f2f4..3f982ac2809 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,8 @@ +2014-06-25 Glenn Morris + + * automated/flymake-tests.el (flymake-tests--current-face): + Sleep for longer. Avoid querying. + 2014-06-25 Dmitry Antipov * automated/fns-tests.el (fns-tests-compare-string): New test. diff --git a/test/automated/flymake-tests.el b/test/automated/flymake-tests.el index c9761050f73..9869f699d2a 100644 --- a/test/automated/flymake-tests.el +++ b/test/automated/flymake-tests.el @@ -40,10 +40,15 @@ (goto-char (point-min)) (flymake-mode 1) ;; XXX: is this reliable enough? + ;; By experiment, no it is not! + ;; For some reason, a single (sleep-for 1.0) does nothing here, + ;; but 2 * (sleep-for 0.5) works. + ;; FIXME what is going on...? + (sleep-for (+ 0.5 flymake-no-changes-timeout)) (sleep-for (+ 0.5 flymake-no-changes-timeout)) (flymake-goto-next-error) (face-at-point)) - (and buffer (kill-buffer buffer))))) + (and buffer (let (kill-buffer-query-functions) (kill-buffer buffer)))))) (ert-deftest warning-predicate-rx-gcc () "Test GCC warning via regexp predicate." -- 2.39.5