From: F. Jason Park <jp@neverwas.me>
Date: Sun, 8 Dec 2024 00:52:12 +0000 (-0800)
Subject: ; Mark failing tests in erc-scenarios-match.el as :unstable
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ada43675dd410041820b61474d4f88383779b79a;p=emacs.git

; Mark failing tests in erc-scenarios-match.el as :unstable

* test/lisp/erc/erc-scenarios-match.el
(erc-scenarios-match--stamp-both-invisible-fill-static)
(erc-scenarios-match--stamp-both-invisible-fill-static--nooffset):
Tag as :unstable for a `system-type' of `berkeley-unix'.
(Bug#74722)

(cherry picked from commit b25fba0ef8f38f95a9e65548f9ebb6c92739857e)
---

diff --git a/test/lisp/erc/erc-scenarios-match.el b/test/lisp/erc/erc-scenarios-match.el
index 8600af800f1..81ac5e4c12a 100644
--- a/test/lisp/erc/erc-scenarios-match.el
+++ b/test/lisp/erc/erc-scenarios-match.el
@@ -510,8 +510,9 @@
        (should-not (eq (field-at-pos (1- (pos-eol))) 'erc-timestamp))
        (should-not (next-single-property-change (pos-bol) 'invisible))))))
 
+;; FIXME explain why these next two fail on FreeBSD 14.2 (Bug#74722).
 (ert-deftest erc-scenarios-match--stamp-both-invisible-fill-static ()
-  :tags '(:expensive-test)
+  :tags `(:expensive-test ,@(and (eq system-type 'berkeley-unix) '(:unstable)))
   (erc-scenarios-match--stamp-both-invisible-fill-static
 
    (lambda ()
@@ -527,7 +528,7 @@
                   (match-end 0))))))) ; pos-eol
 
 (ert-deftest erc-scenarios-match--stamp-both-invisible-fill-static--nooffset ()
-  :tags '(:expensive-test)
+  :tags `(:expensive-test ,@(and (eq system-type 'berkeley-unix) '(:unstable)))
   (with-suppressed-warnings ((obsolete erc-legacy-invisible-bounds-p))
     (should-not erc-legacy-invisible-bounds-p)