diff options
| author | F. Jason Park | 2022-06-30 22:43:41 -0700 |
|---|---|---|
| committer | F. Jason Park | 2022-06-30 22:49:33 -0700 |
| commit | efc2a878de6368eebb1ba73f5131eec563ca9b56 (patch) | |
| tree | ef75d2b234e362dac52148acb139d599d52bf9be /test | |
| parent | ef3f8a25655e2a44a46f9c86c300a0b9cb120567 (diff) | |
| download | emacs-efc2a878de6368eebb1ba73f5131eec563ca9b56.tar.gz emacs-efc2a878de6368eebb1ba73f5131eec563ca9b56.zip | |
; 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.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/erc/erc-networks-tests.el | 4 | ||||
| -rw-r--r-- | 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 @@ | |||
| 48 | 48 | ||
| 49 | (ert-deftest erc-networks--id () | 49 | (ert-deftest erc-networks--id () |
| 50 | (cl-letf (((symbol-function 'float-time) | 50 | (cl-letf (((symbol-function 'float-time) |
| 51 | (lambda () 0.0))) | 51 | (lambda (&optional _) 0.0))) |
| 52 | 52 | ||
| 53 | ;; Fixed | 53 | ;; Fixed |
| 54 | (should (equal (erc-networks--id-fixed-create 'foo) | 54 | (should (equal (erc-networks--id-fixed-create 'foo) |
| @@ -81,7 +81,7 @@ | |||
| 81 | 81 | ||
| 82 | (ert-deftest erc-networks--id-create () | 82 | (ert-deftest erc-networks--id-create () |
| 83 | (cl-letf (((symbol-function 'float-time) | 83 | (cl-letf (((symbol-function 'float-time) |
| 84 | (lambda () 0.0))) | 84 | (lambda (&optional _) 0.0))) |
| 85 | 85 | ||
| 86 | (should (equal (erc-networks--id-create 'foo) | 86 | (should (equal (erc-networks--id-create 'foo) |
| 87 | (make-erc-networks--id-fixed :ts (float-time) | 87 | (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: | |||
| 226 | (should chan-buffer-foo)))) | 226 | (should chan-buffer-foo)))) |
| 227 | 227 | ||
| 228 | (ert-deftest erc-scenarios-base-reuse-buffers-channel-buffers--disabled () | 228 | (ert-deftest erc-scenarios-base-reuse-buffers-channel-buffers--disabled () |
| 229 | :tags '(:expensive-test) | 229 | :tags '(:expensive-test :unstable) |
| 230 | (with-suppressed-warnings ((obsolete erc-reuse-buffers)) | 230 | (with-suppressed-warnings ((obsolete erc-reuse-buffers)) |
| 231 | (should erc-reuse-buffers) | 231 | (should erc-reuse-buffers) |
| 232 | (let ((erc-scenarios-common-dialog "base/reuse-buffers/channel") | 232 | (let ((erc-scenarios-common-dialog "base/reuse-buffers/channel") |