mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

; Mark test for erc--update-channel-modes as :unstable

Browse source 
* test/lisp/erc/erc-scenarios-auth-source.el
(erc-scenarios-common--auth-source): Extend timeout.
* test/lisp/erc/erc-scenarios-base-buffer-display.el
(erc-scenarios-base-buffer-display--count-reset-timeout): Await
initial condition.
* test/lisp/erc/erc-scenarios-base-renick.el
(erc-scenarios-base-renick-queries-solo): Extend timeout.
* test/lisp/erc/erc-scenarios-misc.el (erc-scenarios-base-flood):
Extend timeout.
* test/lisp/erc/erc-tests.el (erc--channel-modes): Mark test as
:unstable pending further investigation.  This test has been shown to
be unreliable, possibly because it expects Emacs to report characters
being a certain width in all environments.  Thanks to Mattias
Engdegård for reporting this failure.
* test/lisp/erc/resources/base/reuse-buffers/server/barnet.eld:
Extend timeouts.
* test/lisp/erc/resources/base/reuse-buffers/server/foonet.eld:
Extend timeouts.
This commit is contained in:
F. Jason Park 2023-11-25 14:26:24 -08:00
parent 0a6d0a4959
commit d2ce30afdd
7 changed files with 12 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test/lisp/erc/erc-scenarios-auth-source.el
View file

@ -56,7 +56,7 @@
(should (string= (buffer-name) (if id (should (string= (buffer-name) (if id
(symbol-name id) (symbol-name id)
(format "127.0.0.1:%d" port)))) (format "127.0.0.1:%d" port))))
(erc-d-t-wait-for 5 (eq erc-network 'FooNet)))))) (erc-d-t-wait-for 10 (eq erc-network 'FooNet))))))
(ert-deftest erc-scenarios-base-auth-source-server--dialed () (ert-deftest erc-scenarios-base-auth-source-server--dialed ()
:tags '(:expensive-test) :tags '(:expensive-test)

2
test/lisp/erc/erc-scenarios-base-buffer-display.el
View file

@ -193,7 +193,7 @@
(lambda (_) (lambda (_)
(with-current-buffer "FooNet" (with-current-buffer "FooNet"
(should erc--server-reconnect-display-timer)) (erc-d-t-wait-for 1 erc--server-reconnect-display-timer))
;; A non-interactive JOIN command doesn't signal that we're ;; A non-interactive JOIN command doesn't signal that we're
;; done auto-reconnecting. ;; done auto-reconnecting.

2
test/lisp/erc/erc-scenarios-base-renick.el
View file

@ -173,7 +173,7 @@
(with-current-buffer erc-server-buffer-foo (with-current-buffer erc-server-buffer-foo
(should (string= (buffer-name) (format "127.0.0.1:%d" port))))) (should (string= (buffer-name) (format "127.0.0.1:%d" port)))))
(erc-d-t-wait-for 1 (get-buffer "foonet")) (erc-d-t-wait-for 10 (get-buffer "foonet"))
(ert-info ("Joined by bouncer to #foo, pal persent") (ert-info ("Joined by bouncer to #foo, pal persent")
(with-current-buffer (erc-d-t-wait-for 1 (get-buffer "#foo")) (with-current-buffer (erc-d-t-wait-for 1 (get-buffer "#foo"))

2
test/lisp/erc/erc-scenarios-misc.el
View file

@ -75,7 +75,7 @@
(ert-info ("All output sent") (ert-info ("All output sent")
(with-current-buffer "#chan/foonet" (with-current-buffer "#chan/foonet"
(funcall expect 8 "Some man or other")) (funcall expect 16 "Some man or other"))
(with-current-buffer "#chan/barnet" (with-current-buffer "#chan/barnet"
(funcall expect 10 "That's he that was Othello"))))) (funcall expect 10 "That's he that was Othello")))))

2
test/lisp/erc/erc-tests.el
View file

@ -812,6 +812,8 @@
(should-not calls)))) (should-not calls))))
(ert-deftest erc--channel-modes () (ert-deftest erc--channel-modes ()
:tags (and (null (getenv "CI")) '(:unstable))
(setq erc--isupport-params (make-hash-table) (setq erc--isupport-params (make-hash-table)
erc--target (erc--target-from-string "#test") erc--target (erc--target-from-string "#test")
erc-server-parameters erc-server-parameters

6
test/lisp/erc/resources/base/reuse-buffers/server/barnet.eld
View file

@ -1,7 +1,7 @@
;; -*- mode: lisp-data; -*- ;; -*- mode: lisp-data; -*-
((pass 1 "PASS :barnet:changeme")) ((pass 10 "PASS :barnet:changeme"))
((nick 1 "NICK tester")) ((nick 10 "NICK tester"))
((user 2 "USER user 0 * :tester") ((user 10 "USER user 0 * :tester")
(0 ":irc.barnet.org 001 tester :Welcome to the barnet IRC Network tester") (0 ":irc.barnet.org 001 tester :Welcome to the barnet IRC Network tester")
(0 ":irc.barnet.org 002 tester :Your host is irc.barnet.org, running version oragono-2.6.0-7481bf0385b95b16") (0 ":irc.barnet.org 002 tester :Your host is irc.barnet.org, running version oragono-2.6.0-7481bf0385b95b16")
(0 ":irc.barnet.org 003 tester :This server was created Sun, 25 Apr 2021 11:28:28 UTC") (0 ":irc.barnet.org 003 tester :This server was created Sun, 25 Apr 2021 11:28:28 UTC")

6
test/lisp/erc/resources/base/reuse-buffers/server/foonet.eld
View file

@ -1,7 +1,7 @@
;; -*- mode: lisp-data; -*- ;; -*- mode: lisp-data; -*-
((pass 1 "PASS :foonet:changeme")) ((pass 10 "PASS :foonet:changeme"))
((nick 1 "NICK tester")) ((nick 10 "NICK tester"))
((user 1 "USER user 0 * :tester") ((user 10 "USER user 0 * :tester")
(0 ":irc.foonet.org 001 tester :Welcome to the foonet IRC Network tester") (0 ":irc.foonet.org 001 tester :Welcome to the foonet IRC Network tester")
(0 ":irc.foonet.org 002 tester :Your host is irc.foonet.org, running version oragono-2.6.0-7481bf0385b95b16") (0 ":irc.foonet.org 002 tester :Your host is irc.foonet.org, running version oragono-2.6.0-7481bf0385b95b16")
(0 ":irc.foonet.org 003 tester :This server was created Sun, 25 Apr 2021 11:28:28 UTC") (0 ":irc.foonet.org 003 tester :This server was created Sun, 25 Apr 2021 11:28:28 UTC")