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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
| | ;;; erc-scenarios-base-association-nick.el --- base assoc 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))
;; You register a new nick, disconnect, and log back in, but your nick
;; is not granted, so ERC obtains a backtick'd version. You open a
;; query buffer for NickServ, and ERC names it using the session ID
;; (which includes the backtick'd nick) as a suffix. The original
;; (disconnected) NickServ buffer gets renamed with *its* session ID
;; as well. You then identify to NickServ, and the dead session is no
;; longer considered distinct.
(ert-deftest erc-scenarios-base-association-nick-bumped ()
:tags '(:expensive-test)
(erc-scenarios-common-with-cleanup
((erc-scenarios-common-dialog "base/association/nick-bump")
(dumb-server (erc-d-run "localhost" t 'renicked 'renicked-again))
(port (process-contact dumb-server :service))
(expect (erc-d-t-make-expecter))
(erc-server-flood-penalty 0.5)
(erc-server-flood-margin 30))
(ert-info ("Connect to foonet with nick tester")
(with-current-buffer (erc :server "127.0.0.1"
:port port
:nick "tester"
:full-name "tester")
(erc-scenarios-common-assert-initial-buf-name nil port)
(erc-d-t-wait-for 5 (eq erc-network 'foonet))))
(ert-info ("Create an account for tester and quit")
(with-current-buffer "foonet"
(funcall expect 3 "debug mode")
(erc-cmd-QUERY "NickServ")
(with-current-buffer "NickServ"
(erc-scenarios-common-say "REGISTER changeme")
(funcall expect 5 "Account created")
(funcall expect 1 "You're now logged in as tester"))
(with-current-buffer "foonet"
(erc-cmd-QUIT "")
(erc-d-t-wait-for 4 (not (erc-server-process-alive)))
(funcall expect 5 "ERC finished"))))
(with-current-buffer "foonet"
(erc-cmd-RECONNECT))
(erc-d-t-wait-for 10 "Nick request rejection prevents reassociation (good)"
(get-buffer "foonet/tester`"))
(ert-info ("Ask NickServ to change nick")
(with-current-buffer "foonet/tester`"
(funcall expect 3 "already in use")
(funcall expect 3 "debug mode")
(erc-cmd-QUERY "NickServ"))
(erc-d-t-wait-for 1 "Dead NickServ query buffer renamed, now qualified"
(get-buffer "NickServ@foonet/tester"))
(with-current-buffer "NickServ@foonet/tester`" ; new one
(erc-scenarios-common-say "IDENTIFY tester changeme")
(funcall expect 5 "You're now logged in as tester")
(ert-info ("Original buffer found, reused")
(erc-d-t-wait-for 2 (equal (buffer-name) "NickServ")))))
(ert-info ("Ours is the only NickServ buffer that remains")
(should-not (cdr (erc-scenarios-common-buflist "NickServ"))))
(ert-info ("Visible network ID truncated to one component")
(should (not (get-buffer "foonet/tester`")))
(should (not (get-buffer "foonet/tester")))
(should (get-buffer "foonet")))))
;; A less common variant is when your bouncer switches to an alternate
;; nick while you're disconnected, and upon reconnecting, you get
;; a new nick.
(ert-deftest erc-scenarios-base-association-nick-bumped-mandated-renick ()
:tags '(:expensive-test)
(erc-scenarios-common-with-cleanup
((erc-scenarios-common-dialog "base/association/nick-bump")
(dumb-server (erc-d-run "localhost" t
'renicked-foisted 'renicked-foisted-again))
(port (process-contact dumb-server :service))
(expect (erc-d-t-make-expecter))
(erc-server-flood-penalty 0.5)
(erc-server-flood-margin 30))
(ert-info ("Connect to foonet with nick tester")
(with-current-buffer (erc :server "127.0.0.1"
:port port
:nick "tester"
:full-name "tester")
(erc-scenarios-common-assert-initial-buf-name nil port)
(erc-d-t-wait-for 5 (eq erc-network 'foonet))))
(ert-info ("Greet bob and quit")
(with-current-buffer "foonet"
(funcall expect 3 "debug mode")
(erc-cmd-QUERY "bob")
(with-current-buffer "bob"
(erc-scenarios-common-say "hi")
(funcall expect 5 "hola")
(funcall expect 1 "how r u?"))
(with-current-buffer "foonet"
(erc-cmd-QUIT "")
(erc-d-t-wait-for 4 (not (erc-server-process-alive)))
(funcall expect 5 "ERC finished"))))
;; Since we use reconnect, a new buffer won't be created
;; TODO add variant with clean `erc' invocation
(with-current-buffer "foonet"
(erc-cmd-RECONNECT))
(ert-info ("Server-initiated renick")
(with-current-buffer (erc-d-t-wait-for 10 (get-buffer "foonet/dummy"))
(should-not (get-buffer "foonet/tester"))
(funcall expect 15 "debug mode"))
(erc-d-t-wait-for 1 "Old query renamed, now qualified"
(get-buffer "bob@foonet/tester"))
(with-current-buffer (erc-d-t-wait-for 5 (get-buffer "bob@foonet/dummy"))
(erc-cmd-NICK "tester")
(ert-info ("Buffers combined")
(erc-d-t-wait-for 2 (equal (buffer-name) "bob")))))
(with-current-buffer "foonet"
(funcall expect 5 "You're now logged in as tester"))
(ert-info ("Ours is the only bob buffer that remains")
(should-not (cdr (erc-scenarios-common-buflist "bob"))))
(ert-info ("Visible network ID truncated to one component")
(should (not (get-buffer "foonet/dummy")))
(should (get-buffer "foonet")))))
;;; erc-scenarios-base-association-nick.el ends here
|