From efc2a878de6368eebb1ba73f5131eec563ca9b56 Mon Sep 17 00:00:00 2001 From: "F. Jason Park" Date: Thu, 30 Jun 2022 22:43:41 -0700 Subject: [PATCH] ; 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. --- test/lisp/erc/erc-networks-tests.el | 4 ++-- test/lisp/erc/erc-scenarios-base-reuse-buffers.el | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) 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") -- 2.39.5