; Tag ERC channel-buffers test as unstable

* test/lisp/erc/erc-networks-tests.el (erc-networks--id,
erc-networks--id-create): Attempt to fix arity of mocked `float-time'.

* test/lisp/erc/erc-scenarios-base-reuse-buffers.el
(erc-scenarios-base-reuse-buffers-channel-buffers--disabled): Tag as
being unstable.

diff --git a/test/lisp/erc/erc-networks-tests.el b/test/lisp/erc/erc-networks-tests.el
index dcda04692ec2a307057ae98902fdb2ca2abe86da..417ee94cf0ce980c34639cea22f36053aec10151 100644 (file)
--- a/test/lisp/erc/erc-networks-tests.el
+++ b/test/lisp/erc/erc-networks-tests.el
@@ -48,7 +48,7 @@
 
 (ert-deftest erc-networks--id ()
   (cl-letf (((symbol-function 'float-time)
-             (lambda () 0.0)))
+             (lambda (&optional _) 0.0)))
 
     ;; Fixed
     (should (equal (erc-networks--id-fixed-create 'foo)
@@ -81,7 +81,7 @@
 
 (ert-deftest erc-networks--id-create ()
   (cl-letf (((symbol-function 'float-time)
-             (lambda () 0.0)))
+             (lambda (&optional _) 0.0)))
 
     (should (equal (erc-networks--id-create 'foo)
                    (make-erc-networks--id-fixed :ts (float-time)

diff --git a/test/lisp/erc/erc-scenarios-base-reuse-buffers.el b/test/lisp/erc/erc-scenarios-base-reuse-buffers.el
index 5af9589b745369c2645e5dfc264726fa699a1796..f134f3ffb6930aed238f328ed6a94e6589b21e65 100644 (file)
--- a/test/lisp/erc/erc-scenarios-base-reuse-buffers.el
+++ b/test/lisp/erc/erc-scenarios-base-reuse-buffers.el
@@ -226,7 +226,7 @@ Adapted from scenario clash-of-chans/uniquify described in Bug#48598:
       (should chan-buffer-foo))))
 
 (ert-deftest erc-scenarios-base-reuse-buffers-channel-buffers--disabled ()
-  :tags '(:expensive-test)
+  :tags '(:expensive-test :unstable)
   (with-suppressed-warnings ((obsolete erc-reuse-buffers))
     (should erc-reuse-buffers)
     (let ((erc-scenarios-common-dialog "base/reuse-buffers/channel")