2020-08-05 10:27:40 +02:00
|
|
|
;;; erc-tests.el --- Tests for erc. -*- lexical-binding:t -*-
|
|
|
|
|
|
2022-01-01 02:45:51 -05:00
|
|
|
;; Copyright (C) 2020-2022 Free Software Foundation, Inc.
|
2020-08-05 10:27:40 +02:00
|
|
|
|
|
|
|
|
;; Author: Lars Ingebrigtsen <larsi@gnus.org>
|
|
|
|
|
|
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs 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.
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs 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 GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
2022-03-13 22:39:36 -07:00
|
|
|
(require 'ert-x)
|
2020-08-05 10:27:40 +02:00
|
|
|
(require 'erc)
|
2021-02-27 05:35:40 +01:00
|
|
|
(require 'erc-ring)
|
2021-09-16 15:25:18 +02:00
|
|
|
(require 'erc-networks)
|
2020-08-05 10:27:40 +02:00
|
|
|
|
|
|
|
|
(ert-deftest erc--read-time-period ()
|
|
|
|
|
(cl-letf (((symbol-function 'read-string) (lambda (&rest _) "")))
|
|
|
|
|
(should (equal (erc--read-time-period "foo: ") nil)))
|
|
|
|
|
|
|
|
|
|
(cl-letf (((symbol-function 'read-string) (lambda (&rest _) " ")))
|
|
|
|
|
(should (equal (erc--read-time-period "foo: ") nil)))
|
|
|
|
|
|
|
|
|
|
(cl-letf (((symbol-function 'read-string) (lambda (&rest _) " 432 ")))
|
|
|
|
|
(should (equal (erc--read-time-period "foo: ") 432)))
|
|
|
|
|
|
|
|
|
|
(cl-letf (((symbol-function 'read-string) (lambda (&rest _) "432")))
|
|
|
|
|
(should (equal (erc--read-time-period "foo: ") 432)))
|
|
|
|
|
|
|
|
|
|
(cl-letf (((symbol-function 'read-string) (lambda (&rest _) "1h")))
|
|
|
|
|
(should (equal (erc--read-time-period "foo: ") 3600)))
|
|
|
|
|
|
|
|
|
|
(cl-letf (((symbol-function 'read-string) (lambda (&rest _) "1h10s")))
|
|
|
|
|
(should (equal (erc--read-time-period "foo: ") 3610)))
|
|
|
|
|
|
|
|
|
|
(cl-letf (((symbol-function 'read-string) (lambda (&rest _) "1d")))
|
|
|
|
|
(should (equal (erc--read-time-period "foo: ") 86400))))
|
2021-02-27 05:35:40 +01:00
|
|
|
|
2022-04-04 22:38:22 -07:00
|
|
|
(ert-deftest erc--meta--backend-dependencies ()
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents-literally
|
|
|
|
|
(concat (file-name-sans-extension (symbol-file 'erc)) ".el"))
|
|
|
|
|
(let ((beg (search-forward ";; Defined in erc-backend"))
|
|
|
|
|
(end (search-forward "\n\n"))
|
|
|
|
|
vars)
|
|
|
|
|
(save-excursion
|
|
|
|
|
(save-restriction
|
|
|
|
|
(narrow-to-region beg end)
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(with-syntax-table lisp-data-mode-syntax-table
|
|
|
|
|
(condition-case _
|
|
|
|
|
(while (push (cadr (read (current-buffer))) vars))
|
|
|
|
|
(end-of-file)))))
|
|
|
|
|
(should (= (point) end))
|
|
|
|
|
(dolist (var vars)
|
|
|
|
|
(setq var (concat "\\_<" (symbol-name var) "\\_>"))
|
|
|
|
|
(ert-info (var)
|
|
|
|
|
(should (save-excursion (search-forward-regexp var nil t))))))))
|
|
|
|
|
|
2021-09-16 15:25:18 +02:00
|
|
|
(ert-deftest erc-with-all-buffers-of-server ()
|
|
|
|
|
(let (proc-exnet
|
|
|
|
|
proc-onet
|
|
|
|
|
erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
|
|
|
|
|
|
|
|
|
|
(with-current-buffer (get-buffer-create "OtherNet")
|
|
|
|
|
(erc-mode)
|
|
|
|
|
(setq proc-onet (start-process "sleep" (current-buffer) "sleep" "1")
|
|
|
|
|
erc-server-process proc-onet
|
|
|
|
|
erc-network 'OtherNet)
|
|
|
|
|
(set-process-query-on-exit-flag erc-server-process nil))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer (get-buffer-create "ExampleNet")
|
|
|
|
|
(erc-mode)
|
|
|
|
|
(setq proc-exnet (start-process "sleep" (current-buffer) "sleep" "1")
|
|
|
|
|
erc-server-process proc-exnet
|
|
|
|
|
erc-network 'ExampleNet)
|
|
|
|
|
(set-process-query-on-exit-flag erc-server-process nil))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer (get-buffer-create "#foo")
|
|
|
|
|
(erc-mode)
|
|
|
|
|
(setq erc-server-process proc-exnet)
|
|
|
|
|
(setq erc-default-recipients '("#foo")))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer (get-buffer-create "#spam")
|
|
|
|
|
(erc-mode)
|
|
|
|
|
(setq erc-server-process proc-onet)
|
|
|
|
|
(setq erc-default-recipients '("#spam")))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer (get-buffer-create "#bar")
|
|
|
|
|
(erc-mode)
|
|
|
|
|
(setq erc-server-process proc-onet)
|
|
|
|
|
(setq erc-default-recipients '("#bar")))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer (get-buffer-create "#baz")
|
|
|
|
|
(erc-mode)
|
|
|
|
|
(setq erc-server-process proc-exnet)
|
|
|
|
|
(setq erc-default-recipients '("#baz")))
|
|
|
|
|
|
|
|
|
|
(should (eq (get-buffer-process "ExampleNet") proc-exnet))
|
|
|
|
|
(erc-with-all-buffers-of-server (get-buffer-process "ExampleNet")
|
|
|
|
|
nil
|
|
|
|
|
(kill-buffer))
|
|
|
|
|
|
|
|
|
|
(should-not (get-buffer "ExampleNet"))
|
|
|
|
|
(should-not (get-buffer "#foo"))
|
|
|
|
|
(should-not (get-buffer "#baz"))
|
|
|
|
|
(should (get-buffer "OtherNet"))
|
|
|
|
|
(should (get-buffer "#bar"))
|
|
|
|
|
(should (get-buffer "#spam"))
|
|
|
|
|
|
|
|
|
|
(let* ((test (lambda () (not (string= (buffer-name) "#spam"))))
|
|
|
|
|
(calls 0)
|
|
|
|
|
(get-test (lambda () (cl-incf calls) test)))
|
|
|
|
|
|
|
|
|
|
(erc-with-all-buffers-of-server proc-onet
|
|
|
|
|
(funcall get-test)
|
|
|
|
|
(kill-buffer))
|
|
|
|
|
|
|
|
|
|
(should (= calls 1)))
|
|
|
|
|
|
|
|
|
|
(should-not (get-buffer "OtherNet"))
|
|
|
|
|
(should-not (get-buffer "#bar"))
|
|
|
|
|
(should (get-buffer "#spam"))
|
|
|
|
|
(kill-buffer "#spam")))
|
|
|
|
|
|
2022-04-05 17:45:00 -07:00
|
|
|
(defun erc-tests--send-prep ()
|
|
|
|
|
;; Caller should probably shadow `erc-insert-modify-hook' or
|
|
|
|
|
;; populate user tables for erc-button.
|
|
|
|
|
(erc-mode)
|
|
|
|
|
(insert "\n\n")
|
|
|
|
|
(setq erc-input-marker (make-marker)
|
|
|
|
|
erc-insert-marker (make-marker))
|
|
|
|
|
(set-marker erc-insert-marker (point-max))
|
|
|
|
|
(erc-display-prompt)
|
|
|
|
|
(should (= (point) erc-input-marker)))
|
|
|
|
|
|
|
|
|
|
(defun erc-tests--set-fake-server-process (&rest args)
|
|
|
|
|
(setq erc-server-process
|
|
|
|
|
(apply #'start-process (car args) (current-buffer) args))
|
|
|
|
|
(set-process-query-on-exit-flag erc-server-process nil))
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc-hide-prompt ()
|
|
|
|
|
(let (erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
|
|
|
|
|
|
|
|
|
|
(with-current-buffer (get-buffer-create "ServNet")
|
|
|
|
|
(erc-tests--send-prep)
|
|
|
|
|
(goto-char erc-insert-marker)
|
|
|
|
|
(should (looking-at-p (regexp-quote erc-prompt)))
|
|
|
|
|
(erc-tests--set-fake-server-process "sleep" "1")
|
|
|
|
|
(set-process-sentinel erc-server-process #'ignore)
|
|
|
|
|
(setq erc-network 'ServNet)
|
|
|
|
|
(set-process-query-on-exit-flag erc-server-process nil))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer (get-buffer-create "#chan")
|
|
|
|
|
(erc-tests--send-prep)
|
|
|
|
|
(goto-char erc-insert-marker)
|
|
|
|
|
(should (looking-at-p (regexp-quote erc-prompt)))
|
|
|
|
|
(setq erc-server-process (buffer-local-value 'erc-server-process
|
|
|
|
|
(get-buffer "ServNet"))
|
|
|
|
|
erc-default-recipients '("#chan")))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer (get-buffer-create "bob")
|
|
|
|
|
(erc-tests--send-prep)
|
|
|
|
|
(goto-char erc-insert-marker)
|
|
|
|
|
(should (looking-at-p (regexp-quote erc-prompt)))
|
|
|
|
|
(setq erc-server-process (buffer-local-value 'erc-server-process
|
|
|
|
|
(get-buffer "ServNet"))
|
|
|
|
|
erc-default-recipients '("bob")))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Value: t (default)")
|
|
|
|
|
(should (eq erc-hide-prompt t))
|
|
|
|
|
(with-current-buffer "ServNet"
|
|
|
|
|
(should (= (point) erc-insert-marker))
|
|
|
|
|
(erc--hide-prompt erc-server-process)
|
|
|
|
|
(should (string= ">" (get-text-property (point) 'display))))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "#chan"
|
|
|
|
|
(goto-char erc-insert-marker)
|
|
|
|
|
(should (string= ">" (get-text-property (point) 'display)))
|
|
|
|
|
(should (memq #'erc--unhide-prompt-on-self-insert pre-command-hook))
|
|
|
|
|
(goto-char erc-input-marker)
|
|
|
|
|
(ert-simulate-command '(self-insert-command 1 ?/))
|
|
|
|
|
(goto-char erc-insert-marker)
|
|
|
|
|
(should-not (get-text-property (point) 'display))
|
|
|
|
|
(should-not (memq #'erc--unhide-prompt-on-self-insert
|
|
|
|
|
pre-command-hook)))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "bob"
|
|
|
|
|
(goto-char erc-insert-marker)
|
|
|
|
|
(should (string= ">" (get-text-property (point) 'display)))
|
|
|
|
|
(should (memq #'erc--unhide-prompt-on-self-insert pre-command-hook))
|
|
|
|
|
(goto-char erc-input-marker)
|
|
|
|
|
(ert-simulate-command '(self-insert-command 1 ?/))
|
|
|
|
|
(goto-char erc-insert-marker)
|
|
|
|
|
(should-not (get-text-property (point) 'display))
|
|
|
|
|
(should-not (memq #'erc--unhide-prompt-on-self-insert
|
|
|
|
|
pre-command-hook)))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "ServNet"
|
|
|
|
|
(should (get-text-property erc-insert-marker 'display))
|
|
|
|
|
(should (memq #'erc--unhide-prompt-on-self-insert pre-command-hook))
|
|
|
|
|
(erc--unhide-prompt)
|
|
|
|
|
(should-not (memq #'erc--unhide-prompt-on-self-insert
|
|
|
|
|
pre-command-hook))
|
|
|
|
|
(should-not (get-text-property erc-insert-marker 'display))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Value: server")
|
|
|
|
|
(setq erc-hide-prompt '(server))
|
|
|
|
|
(with-current-buffer "ServNet"
|
|
|
|
|
(erc--hide-prompt erc-server-process)
|
|
|
|
|
(should (string= ">" (get-text-property erc-insert-marker 'display))))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "#chan"
|
|
|
|
|
(should-not (get-text-property erc-insert-marker 'display)))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "bob"
|
|
|
|
|
(should-not (get-text-property erc-insert-marker 'display)))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "ServNet"
|
|
|
|
|
(erc--unhide-prompt)
|
|
|
|
|
(should-not (get-text-property erc-insert-marker 'display))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Value: channel")
|
|
|
|
|
(setq erc-hide-prompt '(channel))
|
|
|
|
|
(with-current-buffer "ServNet"
|
|
|
|
|
(erc--hide-prompt erc-server-process)
|
|
|
|
|
(should-not (get-text-property erc-insert-marker 'display)))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "bob"
|
|
|
|
|
(should-not (get-text-property erc-insert-marker 'display)))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "#chan"
|
|
|
|
|
(should (string= ">" (get-text-property erc-insert-marker 'display)))
|
|
|
|
|
(erc--unhide-prompt)
|
|
|
|
|
(should-not (get-text-property erc-insert-marker 'display))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Value: query")
|
|
|
|
|
(setq erc-hide-prompt '(query))
|
|
|
|
|
(with-current-buffer "ServNet"
|
|
|
|
|
(erc--hide-prompt erc-server-process)
|
|
|
|
|
(should-not (get-text-property erc-insert-marker 'display)))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "bob"
|
|
|
|
|
(should (string= ">" (get-text-property erc-insert-marker 'display)))
|
|
|
|
|
(erc--unhide-prompt)
|
|
|
|
|
(should-not (get-text-property erc-insert-marker 'display)))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "#chan"
|
|
|
|
|
(should-not (get-text-property erc-insert-marker 'display))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Value: nil")
|
|
|
|
|
(setq erc-hide-prompt nil)
|
|
|
|
|
(with-current-buffer "ServNet"
|
|
|
|
|
(erc--hide-prompt erc-server-process)
|
|
|
|
|
(should-not (get-text-property erc-insert-marker 'display)))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "bob"
|
|
|
|
|
(should-not (get-text-property erc-insert-marker 'display)))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "#chan"
|
|
|
|
|
(should-not (get-text-property erc-insert-marker 'display))
|
|
|
|
|
(erc--unhide-prompt) ; won't blow up when prompt already showing
|
|
|
|
|
(should-not (get-text-property erc-insert-marker 'display))))
|
|
|
|
|
|
|
|
|
|
(when noninteractive
|
|
|
|
|
(kill-buffer "#chan")
|
|
|
|
|
(kill-buffer "bob")
|
|
|
|
|
(kill-buffer "ServNet"))))
|
|
|
|
|
|
2022-03-13 22:39:36 -07:00
|
|
|
(ert-deftest erc--switch-to-buffer ()
|
|
|
|
|
(defvar erc-modified-channels-alist) ; lisp/erc/erc-track.el
|
|
|
|
|
|
|
|
|
|
(let ((proc (start-process "aNet" (current-buffer) "true"))
|
|
|
|
|
(erc-modified-channels-alist `(("fake") (,(messages-buffer))))
|
|
|
|
|
(inhibit-message noninteractive)
|
|
|
|
|
(completion-fail-discreetly t) ; otherwise ^G^G printed to .log file
|
|
|
|
|
;;
|
|
|
|
|
erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
|
|
|
|
|
|
|
|
|
|
(with-current-buffer (get-buffer-create "server")
|
|
|
|
|
(erc-mode)
|
|
|
|
|
(set-process-buffer (setq erc-server-process proc) (current-buffer))
|
2022-03-19 02:33:24 -07:00
|
|
|
(set-process-query-on-exit-flag erc-server-process nil)
|
2022-03-13 22:39:36 -07:00
|
|
|
(with-current-buffer (get-buffer-create "#chan")
|
|
|
|
|
(erc-mode)
|
|
|
|
|
(setq erc-server-process proc))
|
|
|
|
|
(with-current-buffer (get-buffer-create "#foo")
|
|
|
|
|
(erc-mode)
|
|
|
|
|
(setq erc-server-process proc))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Channel #chan selectable from server buffer")
|
|
|
|
|
(ert-simulate-keys (list ?# ?c ?h ?a ?n ?\C-m)
|
|
|
|
|
(should (string= "#chan" (erc--switch-to-buffer))))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Channel #foo selectable from non-ERC buffer")
|
|
|
|
|
(ert-simulate-keys (list ?# ?f ?o ?o ?\C-m)
|
|
|
|
|
(should (string= "#foo" (erc--switch-to-buffer)))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Default selectable")
|
|
|
|
|
(ert-simulate-keys (list ?\C-m)
|
|
|
|
|
(should (string= "*Messages*" (erc--switch-to-buffer)))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Extant but non-ERC buffer not selectable")
|
|
|
|
|
(get-buffer-create "#fake") ; not ours
|
|
|
|
|
(ert-simulate-keys (kbd "#fake C-m C-a C-k C-m")
|
|
|
|
|
;; Initial query fails ~~~~~~^; clearing input accepts default
|
|
|
|
|
(should (string= "*Messages*" (erc--switch-to-buffer)))))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer (get-buffer-create "other")
|
|
|
|
|
(erc-mode)
|
2022-03-19 02:33:24 -07:00
|
|
|
(setq erc-server-process (start-process "bNet" (current-buffer) "true"))
|
|
|
|
|
(set-process-query-on-exit-flag erc-server-process nil))
|
2022-03-13 22:39:36 -07:00
|
|
|
|
|
|
|
|
(ert-info ("Foreign ERC buffer not selectable")
|
|
|
|
|
(ert-simulate-keys (kbd "other C-m C-a C-k C-m")
|
|
|
|
|
(with-current-buffer "server"
|
|
|
|
|
(should (string= "*Messages*" (erc--switch-to-buffer))))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Any ERC-buffer selectable from non-ERC buffer")
|
|
|
|
|
(should-not (eq major-mode 'erc-mode))
|
|
|
|
|
(ert-simulate-keys (list ?o ?t ?h ?e ?r ?\C-m)
|
|
|
|
|
(should (string= "other" (erc--switch-to-buffer)))))
|
|
|
|
|
|
|
|
|
|
(dolist (b '("server" "other" "#chan" "#foo" "#fake"))
|
|
|
|
|
(kill-buffer b))))
|
|
|
|
|
|
2021-09-16 15:25:18 +02:00
|
|
|
(ert-deftest erc-lurker-maybe-trim ()
|
|
|
|
|
(let (erc-lurker-trim-nicks
|
|
|
|
|
(erc-lurker-ignore-chars "_`"))
|
|
|
|
|
|
|
|
|
|
(should (string= "nick`" (erc-lurker-maybe-trim "nick`")))
|
|
|
|
|
|
|
|
|
|
(setq erc-lurker-trim-nicks t)
|
|
|
|
|
(should (string= "nick" (erc-lurker-maybe-trim "nick`")))
|
|
|
|
|
(should (string= "ni`_ck" (erc-lurker-maybe-trim "ni`_ck__``")))
|
|
|
|
|
|
|
|
|
|
(setq erc-lurker-ignore-chars "_-`") ; set of chars, not character alts
|
|
|
|
|
(should (string= "nick" (erc-lurker-maybe-trim "nick-_`")))))
|
|
|
|
|
|
2021-08-12 03:10:31 -07:00
|
|
|
(ert-deftest erc--parse-isupport-value ()
|
|
|
|
|
(should (equal (erc--parse-isupport-value "a,b") '("a" "b")))
|
|
|
|
|
(should (equal (erc--parse-isupport-value "a,b,c") '("a" "b" "c")))
|
|
|
|
|
|
|
|
|
|
(should (equal (erc--parse-isupport-value "abc") '("abc")))
|
|
|
|
|
(should (equal (erc--parse-isupport-value "\\x20foo") '(" foo")))
|
|
|
|
|
(should (equal (erc--parse-isupport-value "foo\\x20") '("foo ")))
|
|
|
|
|
(should (equal (erc--parse-isupport-value "a\\x20b\\x20c") '("a b c")))
|
|
|
|
|
(should (equal (erc--parse-isupport-value "a\\x20b\\x20c\\x20") '("a b c ")))
|
|
|
|
|
(should (equal (erc--parse-isupport-value "\\x20a\\x20b\\x20c") '(" a b c")))
|
|
|
|
|
(should (equal (erc--parse-isupport-value "a\\x20\\x20c") '("a c")))
|
|
|
|
|
(should (equal (erc--parse-isupport-value "\\x20\\x20\\x20") '(" ")))
|
|
|
|
|
(should (equal (erc--parse-isupport-value "\\x5Co/") '("\\o/")))
|
|
|
|
|
(should (equal (erc--parse-isupport-value "\\x7F,\\x19") '("\\x7F" "\\x19")))
|
|
|
|
|
(should (equal (erc--parse-isupport-value "a\\x2Cb,c") '("a,b" "c"))))
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc--get-isupport-entry ()
|
|
|
|
|
(let ((erc--isupport-params (make-hash-table))
|
|
|
|
|
(erc-server-parameters '(("FOO" . "1") ("BAR") ("BAZ" . "A,B,C")))
|
|
|
|
|
(items (lambda ()
|
|
|
|
|
(cl-loop for k being the hash-keys of erc--isupport-params
|
|
|
|
|
using (hash-values v) collect (cons k v)))))
|
|
|
|
|
|
|
|
|
|
(should-not (erc--get-isupport-entry 'FAKE))
|
|
|
|
|
(should-not (erc--get-isupport-entry 'FAKE 'single))
|
|
|
|
|
(should (zerop (hash-table-count erc--isupport-params)))
|
|
|
|
|
|
|
|
|
|
(should (equal (erc--get-isupport-entry 'BAR) '(BAR)))
|
|
|
|
|
(should-not (erc--get-isupport-entry 'BAR 'single))
|
|
|
|
|
(should (= 1 (hash-table-count erc--isupport-params)))
|
|
|
|
|
|
|
|
|
|
(should (equal (erc--get-isupport-entry 'BAZ) '(BAZ "A" "B" "C")))
|
|
|
|
|
(should (equal (erc--get-isupport-entry 'BAZ 'single) "A"))
|
|
|
|
|
(should (= 2 (hash-table-count erc--isupport-params)))
|
|
|
|
|
|
|
|
|
|
(should (equal (erc--get-isupport-entry 'FOO 'single) "1"))
|
|
|
|
|
(should (equal (erc--get-isupport-entry 'FOO) '(FOO "1")))
|
|
|
|
|
|
|
|
|
|
(should (equal (funcall items)
|
|
|
|
|
'((BAR . --empty--) (BAZ "A" "B" "C") (FOO "1"))))))
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc-server-005 ()
|
|
|
|
|
(let* ((hooked 0)
|
|
|
|
|
(verify #'ignore)
|
|
|
|
|
(hook (lambda (_ _) (funcall verify) (cl-incf hooked)))
|
|
|
|
|
(erc-server-005-functions (list #'erc-server-005 hook #'ignore))
|
|
|
|
|
erc-server-parameters
|
|
|
|
|
erc--isupport-params
|
|
|
|
|
erc-timer-hook
|
|
|
|
|
calls
|
|
|
|
|
args
|
|
|
|
|
parsed)
|
|
|
|
|
|
|
|
|
|
(cl-letf (((symbol-function 'erc-display-message)
|
|
|
|
|
(lambda (_ _ _ line) (push line calls))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Baseline")
|
|
|
|
|
(setq args '("tester" "BOT=B" "EXCEPTS" "PREFIX=(ov)@+" "are supp...")
|
|
|
|
|
parsed (make-erc-response :command-args args :command "005"))
|
|
|
|
|
|
|
|
|
|
(setq verify
|
|
|
|
|
(lambda ()
|
|
|
|
|
(should (equal erc-server-parameters
|
|
|
|
|
'(("PREFIX" . "(ov)@+") ("EXCEPTS")
|
|
|
|
|
("BOT" . "B"))))
|
|
|
|
|
(should (zerop (hash-table-count erc--isupport-params)))
|
|
|
|
|
(should (equal "(ov)@+" (erc--get-isupport-entry 'PREFIX t)))
|
|
|
|
|
(should (equal '(EXCEPTS) (erc--get-isupport-entry 'EXCEPTS)))
|
|
|
|
|
(should (equal "B" (erc--get-isupport-entry 'BOT t)))
|
|
|
|
|
(should (string= (pop calls)
|
|
|
|
|
"BOT=B EXCEPTS PREFIX=(ov)@+ are supp..."))
|
|
|
|
|
(should (equal args (erc-response.command-args parsed)))))
|
|
|
|
|
|
|
|
|
|
(erc-call-hooks nil parsed))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Negated, updated")
|
|
|
|
|
(setq args '("tester" "-EXCEPTS" "-FAKE" "PREFIX=(ohv)@%+" "are su...")
|
|
|
|
|
parsed (make-erc-response :command-args args :command "005"))
|
|
|
|
|
|
|
|
|
|
(setq verify
|
|
|
|
|
(lambda ()
|
|
|
|
|
(should (equal erc-server-parameters
|
|
|
|
|
'(("PREFIX" . "(ohv)@%+") ("BOT" . "B"))))
|
|
|
|
|
(should (string= (pop calls)
|
|
|
|
|
"-EXCEPTS -FAKE PREFIX=(ohv)@%+ are su..."))
|
|
|
|
|
(should (equal "(ohv)@%+" (erc--get-isupport-entry 'PREFIX t)))
|
|
|
|
|
(should (equal "B" (erc--get-isupport-entry 'BOT t)))
|
|
|
|
|
(should-not (erc--get-isupport-entry 'EXCEPTS))
|
|
|
|
|
(should (equal args (erc-response.command-args parsed)))))
|
|
|
|
|
|
|
|
|
|
(erc-call-hooks nil parsed))
|
|
|
|
|
(should (= hooked 2)))))
|
|
|
|
|
|
2021-10-05 19:03:56 -07:00
|
|
|
(ert-deftest erc-downcase ()
|
|
|
|
|
(let ((erc--isupport-params (make-hash-table)))
|
|
|
|
|
|
|
|
|
|
(puthash 'PREFIX '("(ov)@+") erc--isupport-params)
|
|
|
|
|
(puthash 'BOT '("B") erc--isupport-params)
|
|
|
|
|
|
|
|
|
|
(ert-info ("ascii")
|
|
|
|
|
(puthash 'CASEMAPPING '("ascii") erc--isupport-params)
|
|
|
|
|
(should (equal (erc-downcase "Bob[m]`") "bob[m]`"))
|
|
|
|
|
(should (equal (erc-downcase "Tilde~") "tilde~" ))
|
|
|
|
|
(should (equal (erc-downcase "\\O/") "\\o/" )))
|
|
|
|
|
|
|
|
|
|
(ert-info ("rfc1459")
|
|
|
|
|
(puthash 'CASEMAPPING '("rfc1459") erc--isupport-params)
|
|
|
|
|
(should (equal (erc-downcase "Bob[m]`") "bob{m}`" ))
|
|
|
|
|
(should (equal (erc-downcase "Tilde~") "tilde^" ))
|
|
|
|
|
(should (equal (erc-downcase "\\O/") "|o/" )))
|
|
|
|
|
|
|
|
|
|
(ert-info ("rfc1459-strict")
|
|
|
|
|
(puthash 'CASEMAPPING '("rfc1459-strict") erc--isupport-params)
|
|
|
|
|
(should (equal (erc-downcase "Bob[m]`") "bob{m}`"))
|
|
|
|
|
(should (equal (erc-downcase "Tilde~") "tilde~" ))
|
|
|
|
|
(should (equal (erc-downcase "\\O/") "|o/" )))))
|
|
|
|
|
|
2021-08-16 05:01:16 -07:00
|
|
|
(ert-deftest erc--valid-local-channel-p ()
|
|
|
|
|
(ert-info ("Local channels not supported")
|
|
|
|
|
(let ((erc--isupport-params (make-hash-table)))
|
|
|
|
|
(puthash 'CHANTYPES '("#") erc--isupport-params)
|
|
|
|
|
(should-not (erc--valid-local-channel-p "#chan"))
|
|
|
|
|
(should-not (erc--valid-local-channel-p "&local"))))
|
|
|
|
|
(ert-info ("Local channels supported")
|
|
|
|
|
(let ((erc--isupport-params (make-hash-table)))
|
|
|
|
|
(puthash 'CHANTYPES '("&#") erc--isupport-params)
|
|
|
|
|
(should-not (erc--valid-local-channel-p "#chan"))
|
|
|
|
|
(should (erc--valid-local-channel-p "&local")))))
|
|
|
|
|
|
2021-10-19 22:53:03 -07:00
|
|
|
(ert-deftest erc--target-from-string ()
|
|
|
|
|
(should (equal (erc--target-from-string "#chan")
|
|
|
|
|
#s(erc--target-channel "#chan" \#chan)))
|
|
|
|
|
|
|
|
|
|
(should (equal (erc--target-from-string "Bob")
|
|
|
|
|
#s(erc--target "Bob" bob)))
|
|
|
|
|
|
|
|
|
|
(let ((erc--isupport-params (make-hash-table)))
|
|
|
|
|
(puthash 'CHANTYPES '("&#") erc--isupport-params)
|
|
|
|
|
(should (equal (erc--target-from-string "&Bitlbee")
|
|
|
|
|
#s(erc--target-channel-local "&Bitlbee" &bitlbee)))))
|
|
|
|
|
|
2021-02-27 05:35:40 +01:00
|
|
|
(ert-deftest erc-ring-previous-command-base-case ()
|
|
|
|
|
(ert-info ("Create ring when nonexistent and do nothing")
|
|
|
|
|
(let (erc-input-ring
|
|
|
|
|
erc-input-ring-index)
|
|
|
|
|
(erc-previous-command)
|
|
|
|
|
(should (ring-p erc-input-ring))
|
|
|
|
|
(should (zerop (ring-length erc-input-ring)))
|
|
|
|
|
(should-not erc-input-ring-index)))
|
|
|
|
|
(should-not erc-input-ring))
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc-ring-previous-command ()
|
|
|
|
|
(with-current-buffer (get-buffer-create "*#fake*")
|
|
|
|
|
(erc-mode)
|
2022-04-05 17:45:00 -07:00
|
|
|
(erc-tests--send-prep)
|
|
|
|
|
(setq-local erc-last-input-time 0)
|
2021-09-16 15:20:59 +02:00
|
|
|
(should-not (local-variable-if-set-p 'erc-send-completed-hook))
|
|
|
|
|
(set (make-local-variable 'erc-send-completed-hook) nil) ; skip t (globals)
|
|
|
|
|
;; Just in case erc-ring-mode is already on
|
|
|
|
|
(setq-local erc-pre-send-functions nil)
|
|
|
|
|
(add-hook 'erc-pre-send-functions #'erc-add-to-input-ring)
|
2021-02-27 05:35:40 +01:00
|
|
|
;;
|
|
|
|
|
(cl-letf (((symbol-function 'erc-process-input-line)
|
|
|
|
|
(lambda (&rest _)
|
|
|
|
|
(insert-before-markers
|
|
|
|
|
(erc-display-message-highlight 'notice "echo: one\n"))))
|
|
|
|
|
((symbol-function 'erc-command-no-process-p)
|
|
|
|
|
(lambda (&rest _) t)))
|
|
|
|
|
(ert-info ("Create ring, populate, recall")
|
|
|
|
|
(insert "/one")
|
|
|
|
|
(erc-send-current-line)
|
|
|
|
|
(should (ring-p erc-input-ring))
|
|
|
|
|
(should (zerop (ring-member erc-input-ring "/one"))) ; equal
|
|
|
|
|
(should (save-excursion (forward-line -1) (goto-char (point-at-bol))
|
|
|
|
|
(looking-at-p "[*]+ echo: one")))
|
|
|
|
|
(should-not erc-input-ring-index)
|
|
|
|
|
(erc-bol)
|
|
|
|
|
(should (looking-at "$"))
|
|
|
|
|
(erc-previous-command)
|
|
|
|
|
(erc-bol)
|
|
|
|
|
(should (looking-at "/one"))
|
|
|
|
|
(should (zerop erc-input-ring-index)))
|
|
|
|
|
(ert-info ("Back to one")
|
|
|
|
|
(should (= (ring-length erc-input-ring) (1+ erc-input-ring-index)))
|
|
|
|
|
(erc-previous-command)
|
|
|
|
|
(should-not erc-input-ring-index)
|
|
|
|
|
(erc-bol)
|
|
|
|
|
(should (looking-at "$"))
|
|
|
|
|
(should (equal (ring-ref erc-input-ring 0) "/one")))
|
|
|
|
|
(ert-info ("Swap input after prompt with previous (#bug46339)")
|
|
|
|
|
(insert "abc")
|
|
|
|
|
(erc-previous-command)
|
|
|
|
|
(should (= 1 erc-input-ring-index))
|
|
|
|
|
(erc-bol)
|
|
|
|
|
(should (looking-at "/one"))
|
|
|
|
|
(should (equal (ring-ref erc-input-ring 0) "abc"))
|
|
|
|
|
(should (equal (ring-ref erc-input-ring 1) "/one"))
|
|
|
|
|
(erc-next-command)
|
|
|
|
|
(erc-bol)
|
|
|
|
|
(should (looking-at "abc")))))
|
|
|
|
|
(when noninteractive
|
|
|
|
|
(kill-buffer "*#fake*")))
|
2021-09-16 15:35:55 +02:00
|
|
|
|
|
|
|
|
(ert-deftest erc-log-irc-protocol ()
|
|
|
|
|
(should-not erc-debug-irc-protocol)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(setq erc-server-process (start-process "fake" (current-buffer) "true")
|
|
|
|
|
erc-server-current-nick "tester"
|
|
|
|
|
erc-session-server "myproxy.localhost"
|
|
|
|
|
erc-session-port 6667)
|
|
|
|
|
(let ((inhibit-message noninteractive))
|
|
|
|
|
(erc-toggle-debug-irc-protocol)
|
|
|
|
|
(erc-log-irc-protocol "PASS changeme\r\n" 'outgoing)
|
|
|
|
|
(setq erc-server-announced-name "irc.gnu.org")
|
|
|
|
|
(erc-log-irc-protocol ":irc.gnu.org 001 tester :Welcome")
|
|
|
|
|
(erc-log-irc-protocol ":irc.gnu.org 002 tester :Your host is irc.gnu.org")
|
|
|
|
|
(setq erc-network 'FooNet)
|
Address long-standing ERC buffer-naming issues
* lisp/erc/erc-backend.el (erc-server-connected): Revise doc string.
(erc-server-reconnect, erc-server-JOIN): Reuse original ID param from
the first connection when calling `erc-open'.
(erc-server-NICK): Apply same name generation process used by
`erc-open'; except here, do so for the purpose of "re-nicking".
Update network identifier and maybe buffer names after a user's own
nick changes.
* lisp/erc/erc-networks.el (erc-networks--id, erc-networks--id-fixed,
erc-networks--id-qualifying): Define new set of structs to contain all
info relevant to specifying a unique identifier for a network context.
Add a new variable `erc-networks--id' to store a local reference to a
`erc-networks--id' object, shared among all buffers in a logical
session.
(erc-networks--id-given, erc-networks--id-create,
erc-networks--id-on-connect, erc-networks--id--equal-p,
erc-networks--id-qualifying-init-parts,
erc-networks--id-qualifying-init-symbol,
erc-networks--id-qualifying-grow-id,
erc-networks--id-qualifying-reset-id,
erc-networks--id-qualifying-prefix-length,
erc-networks--id-qualifying-update, erc-networks--id-reload,
erc-networks--id-ensure-comparable, erc-networks--id-sort-buffers):
Add new functions to support management of `erc-networks--id' struct
instances.
(erc-networks--id-sep): New variable for to help when formatting
buffer names.
(erc-obsolete-var): Define new generic context rewriter.
(erc-networks-shrink-ids-and-buffer-names,
erc-networks--refresh-buffer-names,
erc-networks--shrink-ids-and-buffer-names-any): Add functions to
reassess all network IDs and shrink them if necessary along with
affected buffer names. Also add function to rename buffers so that
their names are unique. Register these on all three of ERC's
kill-buffer hooks because an orphaned target buffer is enough to keep
its session alive.
(erc-networks-rename-surviving-target-buffer): Add new function that
renames a target buffer when it becomes the sole bearer of a name
based on a target that has become unique across all sessions and, in
most cases, all networks. IOW, remove the @NETWORK-ID suffix from the
last remaining channel or query buffer after its namesakes have all
been killed off. Register this function with ERC's target-related
kill-buffer hooks.
(erc-networks--examine-targets): Add new utility function that visits
all ERC buffers and runs callbacks when a buffer-name collision is
encountered.
(erc-networks--qualified-sep): Add constant to hold separator between
target and suffix.
(erc-networks--construct-target-buffer-name,
erc-networks--ensure-unique-target-buffer-name,
erc-networks--ensure-unique-server-buffer-name,
erc-networks--maybe-update-buffer-name): Add helpers to support
`erc-networks--reconcile-buffer-names' and friends.
(erc-networks--reconcile-buffer-names): Add new buffer-naming strategy
function and helper for `erc-generate-new-buffer-name' that only run
in target buffers.
(erc-determine-network, erc-networks--determine): Deprecate former and
partially replace with latter, which demotes RPL_ISUPPORT-derived
NETWORK name to fallback in favor of known `erc-networks-alist'
members as part of shift to network-based connection-identity policy.
Return sentinel on failure. Expect `erc-server-announced-name' to be
set, and signal when it's not.
(erc-networks--name-missing-sentinel): Value returned when new
function `erc-networks--determine' fails to find network name. The
rationale for not making this customizable is that the value signifies
the pathological case where a user of an uncommon IRC setup has not
yet set a mapping from announced- to network name. And the chances of
there being multiple unknown networks is low.
(erc-set-network-name, erc-networks--set-name): Deprecate former and
partially replace with latter. Ding with helpful message, and don't
set `erc-network' when network name is not found.
(erc-networks--ensure-announced): Add new fallback function to ensure
`erc-server-announced-name' is set. Register with post-MOTD hooks.
(erc-unset-network-name): Deprecate function unused internally.
(erc-networks--insert-transplanted-content,
erc-networks--reclaim-orphaned-target-buffers,
erc-networks--copy-over-server-buffer-contents,
erc--update-server-identity): Add helpers for
`erc-networks--rename-server-buffer'. The first re-associates all
existing target buffers that ought to be owned by the new server
process. The second grabs buffer text from an old, dead server buffer
before killing it. It then inserts that text above everything in the
current, replacement server buffer. The other two massage the IDs of
related sessions, possibly renaming them as well. They may also
uniquify the current session's network ID.
(erc-networks--init-identity): Add new function to perform one-time
session-related setup. This could be combined with
`erc-set-network-name'.
(erc-networks--rename-server-buffer): Add new function to replace
`erc-unset-network-name' as default `erc-disconnected-hook' member;
renames server buffers once network is discovered; added to/removed
from `erc-after-connect' hook on `erc-networks' minor mode.
(erc-networks--bouncer-targets): Add constant to hold target symbols
of well known bouncer-configuration bots.
(erc-networks-on-MOTD-end): Add primary network-context handler to run
on 376/422 functions, just before logical connection is officially
established.
(erc-networks-enable, erc-networks-mode): Register main network-setup
handler with 376/422 hooks.
* lisp/erc/erc.el (erc-rename-buffers): Change this option's default
to t, remove the only instance where it's actually used, and make it
an obsolete variable.
(erc-reuse-buffers): Make this an obsolete variable, but take pains to
ensure its pre-28.1 behavior is preserved. That is, undo the
regression involving unwanted automatic reassociation of channel
buffers during joins, which arrived in ERC 5.4 and effectively
inverted the meaning of this variable, when nil, for channel buffers,
all without accompanying documentation or announcement.
(erc-generate-new-buffer-name): Replace current policy of appending a
slash and the invocation host name. Favor instead temporary names for
server buffers and network-based uniquifying suffixes for channels and
query buffers. Fall back to the TCP host:port<n> convention when
necessary. Accept additional optional params after the others.
(erc-get-buffer-create): Don't generate a new name when reconnecting,
just return the same buffer. `erc-open' starts from a clean slate
anyway, so this just keeps things simple. Also add optional params.
(erc-open): Add new ID param to for a network identifier explicitly
passed to an entry-point command. This is stored in the `given' slot
of the `erc-network--id' object. Also initialize the latter in new
connections and otherwise copy it over. As part of the push to recast
erc-networks.el as an essential library, set `erc-network' explicitly,
when known, rather than via hooks.
(erc, erc-tls): Add new ID keyword parameter and pass it to
`erc-open'.
(erc-log-irc-protocol): Use `erc--network-id' instead of the function
`erc-network' to determine preferred peer name.
(erc-format-target-and/or-network): This is called frequently from
mode-line updates, so renaming buffers here is not ideal. Instead, do
so in `erc-networks--rename-server-buffer'.
(erc-kill-server-hook): Add `erc-networks-shrink-ids-and-buffer-names'
as default member.
(erc-kill-channel-hook, erc-kill-buffer-hook): Add
`erc-networks-shrink-ids-and-buffer-names' and
`erc-networks-rename-surviving-target-buffer' as default member.
* test/lisp/erc/erc-tests.el (erc-log-irc-protocol): Use network-ID
focused internal API.
* test/lisp/erc/erc-networks-tests.el: Add new file that includes
tests for the above network-ID focused functions.
See bug#48598 for background on all of the above.
2021-05-03 05:54:56 -07:00
|
|
|
(setq erc-networks--id (erc-networks--id-create nil))
|
2021-09-16 15:35:55 +02:00
|
|
|
(erc-log-irc-protocol ":irc.gnu.org 422 tester :MOTD missing")
|
Address long-standing ERC buffer-naming issues
* lisp/erc/erc-backend.el (erc-server-connected): Revise doc string.
(erc-server-reconnect, erc-server-JOIN): Reuse original ID param from
the first connection when calling `erc-open'.
(erc-server-NICK): Apply same name generation process used by
`erc-open'; except here, do so for the purpose of "re-nicking".
Update network identifier and maybe buffer names after a user's own
nick changes.
* lisp/erc/erc-networks.el (erc-networks--id, erc-networks--id-fixed,
erc-networks--id-qualifying): Define new set of structs to contain all
info relevant to specifying a unique identifier for a network context.
Add a new variable `erc-networks--id' to store a local reference to a
`erc-networks--id' object, shared among all buffers in a logical
session.
(erc-networks--id-given, erc-networks--id-create,
erc-networks--id-on-connect, erc-networks--id--equal-p,
erc-networks--id-qualifying-init-parts,
erc-networks--id-qualifying-init-symbol,
erc-networks--id-qualifying-grow-id,
erc-networks--id-qualifying-reset-id,
erc-networks--id-qualifying-prefix-length,
erc-networks--id-qualifying-update, erc-networks--id-reload,
erc-networks--id-ensure-comparable, erc-networks--id-sort-buffers):
Add new functions to support management of `erc-networks--id' struct
instances.
(erc-networks--id-sep): New variable for to help when formatting
buffer names.
(erc-obsolete-var): Define new generic context rewriter.
(erc-networks-shrink-ids-and-buffer-names,
erc-networks--refresh-buffer-names,
erc-networks--shrink-ids-and-buffer-names-any): Add functions to
reassess all network IDs and shrink them if necessary along with
affected buffer names. Also add function to rename buffers so that
their names are unique. Register these on all three of ERC's
kill-buffer hooks because an orphaned target buffer is enough to keep
its session alive.
(erc-networks-rename-surviving-target-buffer): Add new function that
renames a target buffer when it becomes the sole bearer of a name
based on a target that has become unique across all sessions and, in
most cases, all networks. IOW, remove the @NETWORK-ID suffix from the
last remaining channel or query buffer after its namesakes have all
been killed off. Register this function with ERC's target-related
kill-buffer hooks.
(erc-networks--examine-targets): Add new utility function that visits
all ERC buffers and runs callbacks when a buffer-name collision is
encountered.
(erc-networks--qualified-sep): Add constant to hold separator between
target and suffix.
(erc-networks--construct-target-buffer-name,
erc-networks--ensure-unique-target-buffer-name,
erc-networks--ensure-unique-server-buffer-name,
erc-networks--maybe-update-buffer-name): Add helpers to support
`erc-networks--reconcile-buffer-names' and friends.
(erc-networks--reconcile-buffer-names): Add new buffer-naming strategy
function and helper for `erc-generate-new-buffer-name' that only run
in target buffers.
(erc-determine-network, erc-networks--determine): Deprecate former and
partially replace with latter, which demotes RPL_ISUPPORT-derived
NETWORK name to fallback in favor of known `erc-networks-alist'
members as part of shift to network-based connection-identity policy.
Return sentinel on failure. Expect `erc-server-announced-name' to be
set, and signal when it's not.
(erc-networks--name-missing-sentinel): Value returned when new
function `erc-networks--determine' fails to find network name. The
rationale for not making this customizable is that the value signifies
the pathological case where a user of an uncommon IRC setup has not
yet set a mapping from announced- to network name. And the chances of
there being multiple unknown networks is low.
(erc-set-network-name, erc-networks--set-name): Deprecate former and
partially replace with latter. Ding with helpful message, and don't
set `erc-network' when network name is not found.
(erc-networks--ensure-announced): Add new fallback function to ensure
`erc-server-announced-name' is set. Register with post-MOTD hooks.
(erc-unset-network-name): Deprecate function unused internally.
(erc-networks--insert-transplanted-content,
erc-networks--reclaim-orphaned-target-buffers,
erc-networks--copy-over-server-buffer-contents,
erc--update-server-identity): Add helpers for
`erc-networks--rename-server-buffer'. The first re-associates all
existing target buffers that ought to be owned by the new server
process. The second grabs buffer text from an old, dead server buffer
before killing it. It then inserts that text above everything in the
current, replacement server buffer. The other two massage the IDs of
related sessions, possibly renaming them as well. They may also
uniquify the current session's network ID.
(erc-networks--init-identity): Add new function to perform one-time
session-related setup. This could be combined with
`erc-set-network-name'.
(erc-networks--rename-server-buffer): Add new function to replace
`erc-unset-network-name' as default `erc-disconnected-hook' member;
renames server buffers once network is discovered; added to/removed
from `erc-after-connect' hook on `erc-networks' minor mode.
(erc-networks--bouncer-targets): Add constant to hold target symbols
of well known bouncer-configuration bots.
(erc-networks-on-MOTD-end): Add primary network-context handler to run
on 376/422 functions, just before logical connection is officially
established.
(erc-networks-enable, erc-networks-mode): Register main network-setup
handler with 376/422 hooks.
* lisp/erc/erc.el (erc-rename-buffers): Change this option's default
to t, remove the only instance where it's actually used, and make it
an obsolete variable.
(erc-reuse-buffers): Make this an obsolete variable, but take pains to
ensure its pre-28.1 behavior is preserved. That is, undo the
regression involving unwanted automatic reassociation of channel
buffers during joins, which arrived in ERC 5.4 and effectively
inverted the meaning of this variable, when nil, for channel buffers,
all without accompanying documentation or announcement.
(erc-generate-new-buffer-name): Replace current policy of appending a
slash and the invocation host name. Favor instead temporary names for
server buffers and network-based uniquifying suffixes for channels and
query buffers. Fall back to the TCP host:port<n> convention when
necessary. Accept additional optional params after the others.
(erc-get-buffer-create): Don't generate a new name when reconnecting,
just return the same buffer. `erc-open' starts from a clean slate
anyway, so this just keeps things simple. Also add optional params.
(erc-open): Add new ID param to for a network identifier explicitly
passed to an entry-point command. This is stored in the `given' slot
of the `erc-network--id' object. Also initialize the latter in new
connections and otherwise copy it over. As part of the push to recast
erc-networks.el as an essential library, set `erc-network' explicitly,
when known, rather than via hooks.
(erc, erc-tls): Add new ID keyword parameter and pass it to
`erc-open'.
(erc-log-irc-protocol): Use `erc--network-id' instead of the function
`erc-network' to determine preferred peer name.
(erc-format-target-and/or-network): This is called frequently from
mode-line updates, so renaming buffers here is not ideal. Instead, do
so in `erc-networks--rename-server-buffer'.
(erc-kill-server-hook): Add `erc-networks-shrink-ids-and-buffer-names'
as default member.
(erc-kill-channel-hook, erc-kill-buffer-hook): Add
`erc-networks-shrink-ids-and-buffer-names' and
`erc-networks-rename-surviving-target-buffer' as default member.
* test/lisp/erc/erc-tests.el (erc-log-irc-protocol): Use network-ID
focused internal API.
* test/lisp/erc/erc-networks-tests.el: Add new file that includes
tests for the above network-ID focused functions.
See bug#48598 for background on all of the above.
2021-05-03 05:54:56 -07:00
|
|
|
(setq erc-networks--id (erc-networks--id-create 'BarNet))
|
2021-09-16 15:35:55 +02:00
|
|
|
(erc-log-irc-protocol ":irc.gnu.org 221 tester +i")
|
|
|
|
|
(set-process-query-on-exit-flag erc-server-process nil)))
|
|
|
|
|
(with-current-buffer "*erc-protocol*"
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(search-forward "Version")
|
|
|
|
|
(search-forward "\r\n\r\n")
|
|
|
|
|
(search-forward "myproxy.localhost:6667 >> PASS" (line-end-position))
|
|
|
|
|
(forward-line)
|
|
|
|
|
(search-forward "irc.gnu.org << :irc.gnu.org 001" (line-end-position))
|
|
|
|
|
(forward-line)
|
|
|
|
|
(search-forward "irc.gnu.org << :irc.gnu.org 002" (line-end-position))
|
|
|
|
|
(forward-line)
|
|
|
|
|
(search-forward "FooNet << :irc.gnu.org 422" (line-end-position))
|
|
|
|
|
(forward-line)
|
|
|
|
|
(search-forward "BarNet << :irc.gnu.org 221" (line-end-position)))
|
|
|
|
|
(when noninteractive
|
|
|
|
|
(kill-buffer "*erc-protocol*")
|
|
|
|
|
(should-not erc-debug-irc-protocol)))
|
2021-09-26 01:53:56 +02:00
|
|
|
|
2021-11-06 03:09:43 +01:00
|
|
|
|
|
|
|
|
;; The point of this test is to ensure output is handled identically
|
|
|
|
|
;; regardless of whether a command handler is summoned.
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc-process-input-line ()
|
|
|
|
|
(let (erc-server-last-sent-time
|
|
|
|
|
erc-server-flood-queue
|
|
|
|
|
(orig-erc-cmd-MSG (symbol-function 'erc-cmd-MSG))
|
2021-06-13 02:15:55 -07:00
|
|
|
(erc-default-recipients '("#chan"))
|
2021-11-06 03:09:43 +01:00
|
|
|
calls)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(cl-letf (((symbol-function 'erc-cmd-MSG)
|
|
|
|
|
(lambda (line)
|
|
|
|
|
(push line calls)
|
|
|
|
|
(funcall orig-erc-cmd-MSG line)))
|
|
|
|
|
((symbol-function 'erc-server-buffer)
|
|
|
|
|
(lambda () (current-buffer)))
|
|
|
|
|
((symbol-function 'erc-server-process-alive)
|
|
|
|
|
(lambda () t))
|
|
|
|
|
((symbol-function 'erc-server-send-queue)
|
2021-06-13 02:15:55 -07:00
|
|
|
#'ignore))
|
2021-11-06 03:09:43 +01:00
|
|
|
|
|
|
|
|
(ert-info ("Dispatch to user command handler")
|
|
|
|
|
|
|
|
|
|
(ert-info ("Baseline")
|
|
|
|
|
(erc-process-input-line "/msg #chan hi\n")
|
|
|
|
|
(should (equal (pop calls) " #chan hi"))
|
|
|
|
|
(should (equal (pop erc-server-flood-queue)
|
|
|
|
|
'("PRIVMSG #chan :hi\r\n" . utf-8))))
|
|
|
|
|
|
2021-06-13 02:15:55 -07:00
|
|
|
(ert-info ("Quote preserves line intact")
|
|
|
|
|
(erc-process-input-line "/QUOTE FAKE foo bar\n")
|
|
|
|
|
(should (equal (pop erc-server-flood-queue)
|
|
|
|
|
'("FAKE foo bar\r\n" . utf-8))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Unknown command respected")
|
|
|
|
|
(erc-process-input-line "/FAKE foo bar\n")
|
|
|
|
|
(should (equal (pop erc-server-flood-queue)
|
|
|
|
|
'("FAKE foo bar\r\n" . utf-8))))
|
|
|
|
|
|
2021-11-06 03:09:43 +01:00
|
|
|
(ert-info ("Spaces preserved")
|
|
|
|
|
(erc-process-input-line "/msg #chan hi you\n")
|
|
|
|
|
(should (equal (pop calls) " #chan hi you"))
|
|
|
|
|
(should (equal (pop erc-server-flood-queue)
|
|
|
|
|
'("PRIVMSG #chan :hi you\r\n" . utf-8))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Empty line honored")
|
|
|
|
|
(erc-process-input-line "/msg #chan\n")
|
|
|
|
|
(should (equal (pop calls) " #chan"))
|
|
|
|
|
(should (equal (pop erc-server-flood-queue)
|
|
|
|
|
'("PRIVMSG #chan :\r\n" . utf-8)))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Implicit cmd via `erc-send-input-line-function'")
|
|
|
|
|
|
|
|
|
|
(ert-info ("Baseline")
|
2022-03-21 19:21:57 -07:00
|
|
|
(erc-process-input-line "hi\n")
|
2021-11-06 03:09:43 +01:00
|
|
|
(should (equal (pop erc-server-flood-queue)
|
|
|
|
|
'("PRIVMSG #chan :hi\r\n" . utf-8))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Spaces preserved")
|
2022-03-21 19:21:57 -07:00
|
|
|
(erc-process-input-line "hi you\n")
|
2021-11-06 03:09:43 +01:00
|
|
|
(should (equal (pop erc-server-flood-queue)
|
|
|
|
|
'("PRIVMSG #chan :hi you\r\n" . utf-8))))
|
|
|
|
|
|
2022-03-21 19:21:57 -07:00
|
|
|
(ert-info ("Empty line transmitted with injected-space kludge")
|
|
|
|
|
(erc-process-input-line "\n")
|
2021-11-06 03:09:43 +01:00
|
|
|
(should (equal (pop erc-server-flood-queue)
|
2022-03-21 19:21:57 -07:00
|
|
|
'("PRIVMSG #chan : \r\n" . utf-8))))
|
2021-11-06 03:09:43 +01:00
|
|
|
|
|
|
|
|
(should-not calls))))))
|
|
|
|
|
|
2021-09-26 01:53:56 +02:00
|
|
|
;;; erc-tests.el ends here
|