1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
| | ;;; erc-scenarios-base-misc-regressions.el --- misc regressions scenarios -*- lexical-binding: t -*-
;; Copyright (C) 2022 Free Software Foundation, Inc.
;;
;; This file is part of GNU Emacs.
;;
;; This program is free software: you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see
;; <https://www.gnu.org/licenses/>.
(require 'ert-x)
(eval-and-compile
(let ((load-path (cons (ert-resource-directory) load-path)))
(require 'erc-scenarios-common)))
(eval-when-compile (require 'erc-join))
(defun erc-scenarios--rebuffed-gapless-pass-handler (dialog exchange)
(when (eq (erc-d-dialog-name dialog) 'pass-stub)
(let* ((match (erc-d-exchange-match exchange 1))
(sym (if (string= match "foonet") 'foonet 'barnet)))
(should (member match (list "foonet" "barnet")))
(erc-d-load-replacement-dialog dialog sym 1))))
(ert-deftest erc-scenarios-base-gapless-connect ()
"Back-to-back entry-point invocations happen successfully.
Originally from scenario rebuffed/gapless as explained in Bug#48598:
28.0.50; buffer-naming collisions involving bouncers in ERC."
:tags '(:expensive-test)
(erc-scenarios-common-with-cleanup
((erc-scenarios-common-dialog "base/gapless-connect")
(erc-server-flood-penalty 0.1)
(erc-d-linger-secs 4)
(erc-server-flood-penalty erc-server-flood-penalty)
(erc-d-tmpl-vars '((token . (group (| "barnet" "foonet")))))
(erc-d-match-handlers
(list :pass #'erc-scenarios--rebuffed-gapless-pass-handler))
(dumb-server (erc-d-run "localhost" t
'pass-stub 'pass-stub 'barnet 'foonet))
(port (process-contact dumb-server :service))
(expect (erc-d-t-make-expecter))
erc-autojoin-channels-alist
erc-server-buffer-foo
erc-server-buffer-bar)
(ert-info ("Connect twice to same endpoint without pausing")
(setq erc-server-buffer-foo (erc :server "127.0.0.1"
:port port
:nick "tester"
:password "foonet:changeme"
:full-name "tester")
erc-server-buffer-bar (erc :server "127.0.0.1"
:port port
:nick "tester"
:password "barnet:changeme"
:full-name "tester")))
(ert-info ("Returned server buffers are unique")
(should-not (eq erc-server-buffer-foo erc-server-buffer-bar)))
(ert-info ("Both connections still alive")
(should (get-process (format "erc-127.0.0.1-%d" port)))
(should (get-process (format "erc-127.0.0.1-%d<1>" port))))
(with-current-buffer erc-server-buffer-bar
(funcall expect 2 "marked as being away"))
(with-current-buffer (erc-d-t-wait-for 20 (get-buffer "#bar"))
(while (accept-process-output erc-server-process))
(funcall expect 2 "was created on")
(funcall expect 2 "his second fit"))
(with-current-buffer (erc-d-t-wait-for 20 (get-buffer "#foo"))
(while (accept-process-output erc-server-process))
(funcall expect 2 "was created on")
(funcall expect 2 "no use of him"))))
;; This defends against a regression in `erc-server-PRIVMSG' caused by
;; the removal of `erc-auto-query'. When an active channel buffer is
;; killed off and PRIVMSGs arrive targeting it, the buffer should be
;; recreated. See elsewhere for NOTICE logic, which is more complex.
(ert-deftest erc-scenarios-base-channel-buffer-revival ()
:tags '(:expensive-test)
(erc-scenarios-common-with-cleanup
((erc-scenarios-common-dialog "base/channel-buffer-revival")
(erc-d-linger-secs 0.5)
(dumb-server (erc-d-run "localhost" t 'foonet))
(port (process-contact dumb-server :service))
erc-autojoin-channels-alist
erc-server-buffer-foo)
(ert-info ("Connect to foonet")
(setq erc-server-buffer-foo (erc :server "127.0.0.1"
:port port
:nick "tester"
:password "changeme"
:full-name "tester"))
(with-current-buffer erc-server-buffer-foo
(should (string= (buffer-name) (format "127.0.0.1:%d" port)))))
(ert-info ("Server buffer is unique and temp name is absent")
(erc-d-t-wait-for 1 (get-buffer "FooNet"))
(should-not (erc-scenarios-common-buflist "127.0.0.1"))
(with-current-buffer erc-server-buffer-foo
(erc-cmd-JOIN "#chan")))
(ert-info ("Channel buffer #chan alive and well")
(with-current-buffer (erc-d-t-wait-for 8 (get-buffer "#chan"))
(erc-d-t-search-for 10 "Our queen and all her elves")
(kill-buffer)))
(should-not (get-buffer "#chan"))
(ert-info ("Channel buffer #chan revived")
(with-current-buffer (erc-d-t-wait-for 5 (get-buffer "#chan"))
(erc-d-t-search-for 10 "and be prosperous")))))
;;; erc-scenarios-base-misc-regressions.el ends here
|