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

; Tag some ERC test-server tests as being :unstable

Browse source 
* test/lisp/erc/resources/base/assoc/samenet/chester.eld: Relax timeout.
* test/lisp/erc/resources/base/assoc/samenet/tester.eld: Relax timeout.
* test/lisp/erc/resources/base/assoc/samenet/tester2.eld: Relax timeout.
* test/lisp/erc/resources/base/netid/samenet/chester.eld: Relax timeout.
* test/lisp/erc/resources/base/netid/samenet/tester.eld: Relax timeout.
* test/lisp/erc/resources/erc-d/erc-d-tests.el (erc-d-run-linger,
erc-d-run-linger-fail, erc-d-run-linger-direct): Mark some tests as
being unstable.
This commit is contained in:
F. Jason Park 2022-09-18 14:42:01 -07:00
parent bd40ec5d57
commit 33fdb1daa3
6 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test/lisp/erc/resources/base/assoc/samenet/chester.eld
View file

@ -1,5 +1,5 @@
;; -*- mode: lisp-data; -*-
((pass 1 "PASS :changeme"))
((pass 10 "PASS :changeme"))
((nick 1 "NICK chester"))
((user 1 "USER user 0 * :chester")
(0 ":irc.foonet.org 001 chester :Welcome to the foonet IRC Network chester")

2
test/lisp/erc/resources/base/assoc/samenet/tester.eld
View file

@ -1,5 +1,5 @@
;; -*- mode: lisp-data; -*-
((pass 1 "PASS :changeme"))
((pass 10 "PASS :changeme"))
((nick 1 "NICK tester"))
((user 1 "USER user 0 * :tester")
(0 ":irc.foonet.org 001 tester :Welcome to the foonet IRC Network tester")

2
test/lisp/erc/resources/base/assoc/samenet/tester2.eld
View file

@ -1,5 +1,5 @@
;; -*- mode: lisp-data; -*-
((pass 1 "PASS :changeme"))
((pass 10 "PASS :changeme"))
((nick 1 "NICK tester"))
((user 1 "USER user 0 * :tester")
(0 ":irc.foonet.org 001 tester :Welcome to the foonet IRC Network tester")

2
test/lisp/erc/resources/base/netid/samenet/chester.eld
View file

@ -1,5 +1,5 @@
;; -*- mode: lisp-data; -*-
((pass 1 "PASS :changeme"))
((pass 10 "PASS :changeme"))
((nick 1 "NICK chester"))
((user 1 "USER user 0 * :chester")
(0 ":irc.foonet.org 001 chester :Welcome to the foonet IRC Network chester")

2
test/lisp/erc/resources/base/netid/samenet/tester.eld
View file

@ -1,5 +1,5 @@
;; -*- mode: lisp-data; -*-
((pass 1 "PASS :changeme"))
((pass 10 "PASS :changeme"))
((nick 1 "NICK tester"))
((user 1 "USER user 0 * :tester")
(0 ":irc.foonet.org 001 tester :Welcome to the foonet IRC Network tester")

6
test/lisp/erc/resources/erc-d/erc-d-tests.el
View file

@ -673,7 +673,7 @@ nonzero for this to work."
(cadr (pop errors))))))
(ert-deftest erc-d-run-linger ()
:tags '(:expensive-test)
:tags '(:unstable :expensive-test)
(erc-d-tests-with-server (dumb-s _) linger
(with-current-buffer (erc-d-t-wait-for 6 (get-buffer "#chan"))
(erc-d-t-search-for 2 "hey"))
@ -683,7 +683,7 @@ nonzero for this to work."
(erc-d-t-search-for 3 "Lingered for 1.00 seconds"))))
(ert-deftest erc-d-run-linger-fail ()
:tags '(:expensive-test)
:tags '(:unstable :expensive-test)
(let ((erc-server-flood-penalty 0.1)
errors)
(erc-d-tests-with-failure-spy
@ -696,7 +696,7 @@ nonzero for this to work."
(should (string-match-p "Match failed.*hi" (cadr (pop errors))))))
(ert-deftest erc-d-run-linger-direct ()
:tags '(:expensive-test)
:tags '(:unstable :expensive-test)
(let* ((dumb-server (erc-d-run "localhost" t
'linger-multi-a 'linger-multi-b))
(port (process-contact dumb-server :service))