From: F. Jason Park Date: Fri, 1 Jul 2022 05:43:41 +0000 (-0700) Subject: ; Tag ERC channel-buffers test as unstable X-Git-Tag: emacs-29.0.90~1447^2~1311 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=efc2a878de6368eebb1ba73f5131eec563ca9b56;p=emacs.git ; 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 dcda04692ec..417ee94cf0c 100644 --- 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 5af9589b745..f134f3ffb69 100644 --- 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")