Temporarily mark two failing tests

; Persistently failing tests can cause problems for automated builds,
; and make it harder to spot new failures.

* test/lisp/xt-mouse-tests.el (xt-mouse-tracking-basic)
(xt-mouse-tracking-utf-8): Currently failing.

diff --git a/test/lisp/xt-mouse-tests.el b/test/lisp/xt-mouse-tests.el
index 61bd759018316036a7476da8a44001bec772992d..2b27e3cbc8b48e95d1de0637ab765233e7675143 100644 (file)
--- a/test/lisp/xt-mouse-tests.el
+++ b/test/lisp/xt-mouse-tests.el
@@ -52,6 +52,7 @@
          (xterm-mouse-mode 0)))))
 
 (ert-deftest xt-mouse-tracking-basic ()
+  :expected-result :failed              ; FIXME
   (should (equal (xterm-mouse-tracking-enable-sequence)
                  "\e[?1000h\e[?1002h\e[?1006h"))
   (should (equal (xterm-mouse-tracking-disable-sequence)
@@ -71,6 +72,7 @@
           (should (equal xy '(184 . 95))))))))
 
 (ert-deftest xt-mouse-tracking-utf-8 ()
+  :expected-result :failed              ; FIXME
   (let ((xterm-mouse-utf-8 t))
     (should (equal (xterm-mouse-tracking-enable-sequence)
                    "\e[?1000h\e[?1002h\e[?1005h\e[?1006h"))