2020-08-05 10:27:40 +02:00
|
|
|
;;; erc-tests.el --- Tests for erc. -*- lexical-binding:t -*-
|
|
|
|
|
|
2023-01-01 05:31:12 -05:00
|
|
|
;; Copyright (C) 2020-2023 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)
|
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
|
|
|
|
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-11-24 21:03:03 -08:00
|
|
|
(ert-deftest erc-with-server-buffer ()
|
|
|
|
|
(setq erc-away 1)
|
|
|
|
|
(erc-tests--set-fake-server-process "sleep" "1")
|
|
|
|
|
|
|
|
|
|
(let (calls)
|
|
|
|
|
(advice-add 'buffer-local-value :after (lambda (&rest r) (push r calls))
|
|
|
|
|
'((name . erc-with-server-buffer)))
|
|
|
|
|
|
|
|
|
|
(should (= 1 (erc-with-server-buffer erc-away)))
|
|
|
|
|
(should (equal (pop calls) (list 'erc-away (current-buffer))))
|
|
|
|
|
|
|
|
|
|
(should (= 1 (erc-with-server-buffer (ignore 'me) erc-away)))
|
|
|
|
|
(should-not calls)
|
|
|
|
|
|
|
|
|
|
(advice-remove 'buffer-local-value 'erc-with-server-buffer)))
|
|
|
|
|
|
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)
|
2023-01-23 20:48:24 -08:00
|
|
|
(erc--initialize-markers (point) nil)
|
2022-04-05 17:45:00 -07:00
|
|
|
(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"))
|
2023-02-22 06:24:17 -08:00
|
|
|
erc--target (erc--target-from-string "#chan")))
|
2022-04-05 17:45:00 -07:00
|
|
|
|
|
|
|
|
(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"))
|
2023-02-22 06:24:17 -08:00
|
|
|
erc--target (erc--target-from-string "bob")))
|
2022-04-05 17:45:00 -07:00
|
|
|
|
|
|
|
|
(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"))))
|
|
|
|
|
|
2023-05-18 23:47:27 -07:00
|
|
|
(ert-deftest erc--refresh-prompt ()
|
|
|
|
|
(let* ((counter 0)
|
|
|
|
|
(erc-prompt (lambda ()
|
|
|
|
|
(format "%s %d>"
|
|
|
|
|
(erc-format-target-and/or-network)
|
|
|
|
|
(cl-incf counter))))
|
|
|
|
|
erc-accidental-paste-threshold-seconds
|
|
|
|
|
erc-insert-modify-hook
|
|
|
|
|
erc--input-review-functions
|
|
|
|
|
erc-send-completed-hook)
|
|
|
|
|
|
|
|
|
|
(ert-info ("Server buffer")
|
|
|
|
|
(with-current-buffer (get-buffer-create "ServNet")
|
|
|
|
|
(erc-tests--send-prep)
|
|
|
|
|
(goto-char erc-insert-marker)
|
|
|
|
|
(should (looking-at-p "ServNet 3>"))
|
|
|
|
|
(erc-tests--set-fake-server-process "sleep" "1")
|
|
|
|
|
(set-process-sentinel erc-server-process #'ignore)
|
|
|
|
|
(setq erc-network 'ServNet
|
|
|
|
|
erc-server-current-nick "tester"
|
|
|
|
|
erc-networks--id (erc-networks--id-create nil)
|
|
|
|
|
erc-server-users (make-hash-table :test 'equal))
|
|
|
|
|
(set-process-query-on-exit-flag erc-server-process nil)
|
|
|
|
|
;; Incoming message redraws prompt
|
|
|
|
|
(erc-display-message nil 'notice nil "Welcome")
|
Don't insert prompt input before markers in ERC
* etc/ERC-NEWS: Update entry in 5.6 section announcing a persistent
prompt.
* lisp/erc/erc-dcc.el (erc-dcc-chat-setup): Use helper
`erc--initialize-markers' to set up prompt.
* lisp/erc/erc.el (erc--initialize-markers): Change
`erc-insert-marker' type to t. Do this to spare modules that want to
remember the current message location from resorting to workarounds,
like leaving a marker one char before the end of a message, which is
not foolproof.
(erc--refresh-prompt): Temporarily change type of `erc-insert-marker'
when inserting prompt.
(erc-display-line-1): Insert incoming message normally instead of
forcing before markers, thus respecting markers left by third parties.
Strictly speaking, this is a breaking change.
(erc-display-msg): Insert normally instead of calling
`insert-before-markers', which was a regression introduced by 05f6fdb9
"Preserve ERC prompt and its bounding markers".
* test/lisp/erc/erc-dcc-tests.el
(erc-dcc-tests--dcc-handle-ctcp-send,
erc-dcc-tests--erc-dcc-do-GET-command): Use helper to initialize
prompt and markers.
* test/lisp/erc/erc-networks-tests.el
(erc-networks--ensure-announced,
erc-networks--rename-server-buffer--existing--reuse,
erc-networks--rename-server-buffer--existing--noreuse,
erc-networks--rename-server-buffer--reconnecting,
erc-networks--rename-server-buffer--id,
erc-networks--rename-server-buffer--existing--live,
erc-networks--rename-server-buffer--local-match,
erc-networks--rename-server-buffer--local-nomatch): Use helper to
initialize prompt and bounding markers.
* test/lisp/erc/erc-stamp-tests.el (erc-stamp-tests--insert-right):
Use `erc--initialize-markers' for setting up prompt.
* test/lisp/erc/erc-tests.el (erc--refresh-prompt): Adjust assertions
for expected prompt content. (Bug#60936)
2023-06-10 00:17:44 -07:00
|
|
|
(should (looking-at-p (rx "*** Welcome")))
|
|
|
|
|
(forward-line)
|
2023-05-18 23:47:27 -07:00
|
|
|
(should (looking-at-p "ServNet 4>"))
|
|
|
|
|
;; Say something
|
Don't insert prompt input before markers in ERC
* etc/ERC-NEWS: Update entry in 5.6 section announcing a persistent
prompt.
* lisp/erc/erc-dcc.el (erc-dcc-chat-setup): Use helper
`erc--initialize-markers' to set up prompt.
* lisp/erc/erc.el (erc--initialize-markers): Change
`erc-insert-marker' type to t. Do this to spare modules that want to
remember the current message location from resorting to workarounds,
like leaving a marker one char before the end of a message, which is
not foolproof.
(erc--refresh-prompt): Temporarily change type of `erc-insert-marker'
when inserting prompt.
(erc-display-line-1): Insert incoming message normally instead of
forcing before markers, thus respecting markers left by third parties.
Strictly speaking, this is a breaking change.
(erc-display-msg): Insert normally instead of calling
`insert-before-markers', which was a regression introduced by 05f6fdb9
"Preserve ERC prompt and its bounding markers".
* test/lisp/erc/erc-dcc-tests.el
(erc-dcc-tests--dcc-handle-ctcp-send,
erc-dcc-tests--erc-dcc-do-GET-command): Use helper to initialize
prompt and markers.
* test/lisp/erc/erc-networks-tests.el
(erc-networks--ensure-announced,
erc-networks--rename-server-buffer--existing--reuse,
erc-networks--rename-server-buffer--existing--noreuse,
erc-networks--rename-server-buffer--reconnecting,
erc-networks--rename-server-buffer--id,
erc-networks--rename-server-buffer--existing--live,
erc-networks--rename-server-buffer--local-match,
erc-networks--rename-server-buffer--local-nomatch): Use helper to
initialize prompt and bounding markers.
* test/lisp/erc/erc-stamp-tests.el (erc-stamp-tests--insert-right):
Use `erc--initialize-markers' for setting up prompt.
* test/lisp/erc/erc-tests.el (erc--refresh-prompt): Adjust assertions
for expected prompt content. (Bug#60936)
2023-06-10 00:17:44 -07:00
|
|
|
(goto-char erc-input-marker)
|
|
|
|
|
(insert "Howdy")
|
|
|
|
|
(erc-send-current-line)
|
|
|
|
|
(save-excursion (forward-line -1)
|
2023-05-18 23:47:27 -07:00
|
|
|
(should (looking-at "No target"))
|
|
|
|
|
(forward-line -1)
|
|
|
|
|
(should (looking-at "<tester> Howdy")))
|
Don't insert prompt input before markers in ERC
* etc/ERC-NEWS: Update entry in 5.6 section announcing a persistent
prompt.
* lisp/erc/erc-dcc.el (erc-dcc-chat-setup): Use helper
`erc--initialize-markers' to set up prompt.
* lisp/erc/erc.el (erc--initialize-markers): Change
`erc-insert-marker' type to t. Do this to spare modules that want to
remember the current message location from resorting to workarounds,
like leaving a marker one char before the end of a message, which is
not foolproof.
(erc--refresh-prompt): Temporarily change type of `erc-insert-marker'
when inserting prompt.
(erc-display-line-1): Insert incoming message normally instead of
forcing before markers, thus respecting markers left by third parties.
Strictly speaking, this is a breaking change.
(erc-display-msg): Insert normally instead of calling
`insert-before-markers', which was a regression introduced by 05f6fdb9
"Preserve ERC prompt and its bounding markers".
* test/lisp/erc/erc-dcc-tests.el
(erc-dcc-tests--dcc-handle-ctcp-send,
erc-dcc-tests--erc-dcc-do-GET-command): Use helper to initialize
prompt and markers.
* test/lisp/erc/erc-networks-tests.el
(erc-networks--ensure-announced,
erc-networks--rename-server-buffer--existing--reuse,
erc-networks--rename-server-buffer--existing--noreuse,
erc-networks--rename-server-buffer--reconnecting,
erc-networks--rename-server-buffer--id,
erc-networks--rename-server-buffer--existing--live,
erc-networks--rename-server-buffer--local-match,
erc-networks--rename-server-buffer--local-nomatch): Use helper to
initialize prompt and bounding markers.
* test/lisp/erc/erc-stamp-tests.el (erc-stamp-tests--insert-right):
Use `erc--initialize-markers' for setting up prompt.
* test/lisp/erc/erc-tests.el (erc--refresh-prompt): Adjust assertions
for expected prompt content. (Bug#60936)
2023-06-10 00:17:44 -07:00
|
|
|
(should (looking-back "ServNet 6> "))
|
|
|
|
|
(should (= erc-input-marker (point)))
|
2023-05-18 23:47:27 -07:00
|
|
|
;; Space after prompt is unpropertized
|
|
|
|
|
(should (get-text-property (1- erc-input-marker) 'erc-prompt))
|
|
|
|
|
(should-not (get-text-property erc-input-marker 'erc-prompt))
|
|
|
|
|
;; No sign of old prompts
|
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(should-not (search-forward (rx (any "3-5") ">") nil t)))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Channel buffer")
|
|
|
|
|
(with-current-buffer (get-buffer-create "#chan")
|
|
|
|
|
(erc-tests--send-prep)
|
|
|
|
|
(goto-char erc-insert-marker)
|
|
|
|
|
(should (looking-at-p "#chan 9>"))
|
Don't insert prompt input before markers in ERC
* etc/ERC-NEWS: Update entry in 5.6 section announcing a persistent
prompt.
* lisp/erc/erc-dcc.el (erc-dcc-chat-setup): Use helper
`erc--initialize-markers' to set up prompt.
* lisp/erc/erc.el (erc--initialize-markers): Change
`erc-insert-marker' type to t. Do this to spare modules that want to
remember the current message location from resorting to workarounds,
like leaving a marker one char before the end of a message, which is
not foolproof.
(erc--refresh-prompt): Temporarily change type of `erc-insert-marker'
when inserting prompt.
(erc-display-line-1): Insert incoming message normally instead of
forcing before markers, thus respecting markers left by third parties.
Strictly speaking, this is a breaking change.
(erc-display-msg): Insert normally instead of calling
`insert-before-markers', which was a regression introduced by 05f6fdb9
"Preserve ERC prompt and its bounding markers".
* test/lisp/erc/erc-dcc-tests.el
(erc-dcc-tests--dcc-handle-ctcp-send,
erc-dcc-tests--erc-dcc-do-GET-command): Use helper to initialize
prompt and markers.
* test/lisp/erc/erc-networks-tests.el
(erc-networks--ensure-announced,
erc-networks--rename-server-buffer--existing--reuse,
erc-networks--rename-server-buffer--existing--noreuse,
erc-networks--rename-server-buffer--reconnecting,
erc-networks--rename-server-buffer--id,
erc-networks--rename-server-buffer--existing--live,
erc-networks--rename-server-buffer--local-match,
erc-networks--rename-server-buffer--local-nomatch): Use helper to
initialize prompt and bounding markers.
* test/lisp/erc/erc-stamp-tests.el (erc-stamp-tests--insert-right):
Use `erc--initialize-markers' for setting up prompt.
* test/lisp/erc/erc-tests.el (erc--refresh-prompt): Adjust assertions
for expected prompt content. (Bug#60936)
2023-06-10 00:17:44 -07:00
|
|
|
(goto-char erc-input-marker)
|
2023-05-18 23:47:27 -07:00
|
|
|
(setq erc-server-process (buffer-local-value 'erc-server-process
|
|
|
|
|
(get-buffer "ServNet"))
|
|
|
|
|
erc-networks--id (erc-with-server-buffer erc-networks--id)
|
|
|
|
|
erc--target (erc--target-from-string "#chan")
|
|
|
|
|
erc-default-recipients (list "#chan")
|
|
|
|
|
erc-channel-users (make-hash-table :test 'equal))
|
|
|
|
|
(erc-update-current-channel-member "alice" "alice")
|
|
|
|
|
(erc-update-current-channel-member "bob" "bob")
|
|
|
|
|
(erc-update-current-channel-member "tester" "tester")
|
|
|
|
|
(erc-display-message nil nil (current-buffer)
|
|
|
|
|
(erc-format-privmessage "alice" "Hi" nil t))
|
Don't insert prompt input before markers in ERC
* etc/ERC-NEWS: Update entry in 5.6 section announcing a persistent
prompt.
* lisp/erc/erc-dcc.el (erc-dcc-chat-setup): Use helper
`erc--initialize-markers' to set up prompt.
* lisp/erc/erc.el (erc--initialize-markers): Change
`erc-insert-marker' type to t. Do this to spare modules that want to
remember the current message location from resorting to workarounds,
like leaving a marker one char before the end of a message, which is
not foolproof.
(erc--refresh-prompt): Temporarily change type of `erc-insert-marker'
when inserting prompt.
(erc-display-line-1): Insert incoming message normally instead of
forcing before markers, thus respecting markers left by third parties.
Strictly speaking, this is a breaking change.
(erc-display-msg): Insert normally instead of calling
`insert-before-markers', which was a regression introduced by 05f6fdb9
"Preserve ERC prompt and its bounding markers".
* test/lisp/erc/erc-dcc-tests.el
(erc-dcc-tests--dcc-handle-ctcp-send,
erc-dcc-tests--erc-dcc-do-GET-command): Use helper to initialize
prompt and markers.
* test/lisp/erc/erc-networks-tests.el
(erc-networks--ensure-announced,
erc-networks--rename-server-buffer--existing--reuse,
erc-networks--rename-server-buffer--existing--noreuse,
erc-networks--rename-server-buffer--reconnecting,
erc-networks--rename-server-buffer--id,
erc-networks--rename-server-buffer--existing--live,
erc-networks--rename-server-buffer--local-match,
erc-networks--rename-server-buffer--local-nomatch): Use helper to
initialize prompt and bounding markers.
* test/lisp/erc/erc-stamp-tests.el (erc-stamp-tests--insert-right):
Use `erc--initialize-markers' for setting up prompt.
* test/lisp/erc/erc-tests.el (erc--refresh-prompt): Adjust assertions
for expected prompt content. (Bug#60936)
2023-06-10 00:17:44 -07:00
|
|
|
(should (looking-back "#chan@ServNet 10> "))
|
|
|
|
|
(goto-char erc-input-marker)
|
|
|
|
|
(insert "Howdy")
|
|
|
|
|
(erc-send-current-line)
|
|
|
|
|
(save-excursion (forward-line -1)
|
2023-05-18 23:47:27 -07:00
|
|
|
(should (looking-at "<tester> Howdy")))
|
Don't insert prompt input before markers in ERC
* etc/ERC-NEWS: Update entry in 5.6 section announcing a persistent
prompt.
* lisp/erc/erc-dcc.el (erc-dcc-chat-setup): Use helper
`erc--initialize-markers' to set up prompt.
* lisp/erc/erc.el (erc--initialize-markers): Change
`erc-insert-marker' type to t. Do this to spare modules that want to
remember the current message location from resorting to workarounds,
like leaving a marker one char before the end of a message, which is
not foolproof.
(erc--refresh-prompt): Temporarily change type of `erc-insert-marker'
when inserting prompt.
(erc-display-line-1): Insert incoming message normally instead of
forcing before markers, thus respecting markers left by third parties.
Strictly speaking, this is a breaking change.
(erc-display-msg): Insert normally instead of calling
`insert-before-markers', which was a regression introduced by 05f6fdb9
"Preserve ERC prompt and its bounding markers".
* test/lisp/erc/erc-dcc-tests.el
(erc-dcc-tests--dcc-handle-ctcp-send,
erc-dcc-tests--erc-dcc-do-GET-command): Use helper to initialize
prompt and markers.
* test/lisp/erc/erc-networks-tests.el
(erc-networks--ensure-announced,
erc-networks--rename-server-buffer--existing--reuse,
erc-networks--rename-server-buffer--existing--noreuse,
erc-networks--rename-server-buffer--reconnecting,
erc-networks--rename-server-buffer--id,
erc-networks--rename-server-buffer--existing--live,
erc-networks--rename-server-buffer--local-match,
erc-networks--rename-server-buffer--local-nomatch): Use helper to
initialize prompt and bounding markers.
* test/lisp/erc/erc-stamp-tests.el (erc-stamp-tests--insert-right):
Use `erc--initialize-markers' for setting up prompt.
* test/lisp/erc/erc-tests.el (erc--refresh-prompt): Adjust assertions
for expected prompt content. (Bug#60936)
2023-06-10 00:17:44 -07:00
|
|
|
(should (looking-back "#chan@ServNet 11> "))
|
|
|
|
|
(should (= (point) erc-input-marker))
|
|
|
|
|
(insert "/query bob")
|
|
|
|
|
(erc-send-current-line)
|
2023-05-18 23:47:27 -07:00
|
|
|
;; Query does not redraw (nor /help, only message input)
|
Don't insert prompt input before markers in ERC
* etc/ERC-NEWS: Update entry in 5.6 section announcing a persistent
prompt.
* lisp/erc/erc-dcc.el (erc-dcc-chat-setup): Use helper
`erc--initialize-markers' to set up prompt.
* lisp/erc/erc.el (erc--initialize-markers): Change
`erc-insert-marker' type to t. Do this to spare modules that want to
remember the current message location from resorting to workarounds,
like leaving a marker one char before the end of a message, which is
not foolproof.
(erc--refresh-prompt): Temporarily change type of `erc-insert-marker'
when inserting prompt.
(erc-display-line-1): Insert incoming message normally instead of
forcing before markers, thus respecting markers left by third parties.
Strictly speaking, this is a breaking change.
(erc-display-msg): Insert normally instead of calling
`insert-before-markers', which was a regression introduced by 05f6fdb9
"Preserve ERC prompt and its bounding markers".
* test/lisp/erc/erc-dcc-tests.el
(erc-dcc-tests--dcc-handle-ctcp-send,
erc-dcc-tests--erc-dcc-do-GET-command): Use helper to initialize
prompt and markers.
* test/lisp/erc/erc-networks-tests.el
(erc-networks--ensure-announced,
erc-networks--rename-server-buffer--existing--reuse,
erc-networks--rename-server-buffer--existing--noreuse,
erc-networks--rename-server-buffer--reconnecting,
erc-networks--rename-server-buffer--id,
erc-networks--rename-server-buffer--existing--live,
erc-networks--rename-server-buffer--local-match,
erc-networks--rename-server-buffer--local-nomatch): Use helper to
initialize prompt and bounding markers.
* test/lisp/erc/erc-stamp-tests.el (erc-stamp-tests--insert-right):
Use `erc--initialize-markers' for setting up prompt.
* test/lisp/erc/erc-tests.el (erc--refresh-prompt): Adjust assertions
for expected prompt content. (Bug#60936)
2023-06-10 00:17:44 -07:00
|
|
|
(should (looking-back "#chan@ServNet 11> "))
|
2023-05-18 23:47:27 -07:00
|
|
|
;; No sign of old prompts
|
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(should-not (search-forward (rx (or "9" "10") ">") nil t)))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Query buffer")
|
|
|
|
|
(with-current-buffer (get-buffer "bob")
|
|
|
|
|
(goto-char erc-insert-marker)
|
|
|
|
|
(should (looking-at-p "bob@ServNet 14>"))
|
Don't insert prompt input before markers in ERC
* etc/ERC-NEWS: Update entry in 5.6 section announcing a persistent
prompt.
* lisp/erc/erc-dcc.el (erc-dcc-chat-setup): Use helper
`erc--initialize-markers' to set up prompt.
* lisp/erc/erc.el (erc--initialize-markers): Change
`erc-insert-marker' type to t. Do this to spare modules that want to
remember the current message location from resorting to workarounds,
like leaving a marker one char before the end of a message, which is
not foolproof.
(erc--refresh-prompt): Temporarily change type of `erc-insert-marker'
when inserting prompt.
(erc-display-line-1): Insert incoming message normally instead of
forcing before markers, thus respecting markers left by third parties.
Strictly speaking, this is a breaking change.
(erc-display-msg): Insert normally instead of calling
`insert-before-markers', which was a regression introduced by 05f6fdb9
"Preserve ERC prompt and its bounding markers".
* test/lisp/erc/erc-dcc-tests.el
(erc-dcc-tests--dcc-handle-ctcp-send,
erc-dcc-tests--erc-dcc-do-GET-command): Use helper to initialize
prompt and markers.
* test/lisp/erc/erc-networks-tests.el
(erc-networks--ensure-announced,
erc-networks--rename-server-buffer--existing--reuse,
erc-networks--rename-server-buffer--existing--noreuse,
erc-networks--rename-server-buffer--reconnecting,
erc-networks--rename-server-buffer--id,
erc-networks--rename-server-buffer--existing--live,
erc-networks--rename-server-buffer--local-match,
erc-networks--rename-server-buffer--local-nomatch): Use helper to
initialize prompt and bounding markers.
* test/lisp/erc/erc-stamp-tests.el (erc-stamp-tests--insert-right):
Use `erc--initialize-markers' for setting up prompt.
* test/lisp/erc/erc-tests.el (erc--refresh-prompt): Adjust assertions
for expected prompt content. (Bug#60936)
2023-06-10 00:17:44 -07:00
|
|
|
(goto-char erc-input-marker)
|
2023-05-18 23:47:27 -07:00
|
|
|
(erc-display-message nil nil (current-buffer)
|
|
|
|
|
(erc-format-privmessage "bob" "Hi" nil t))
|
Don't insert prompt input before markers in ERC
* etc/ERC-NEWS: Update entry in 5.6 section announcing a persistent
prompt.
* lisp/erc/erc-dcc.el (erc-dcc-chat-setup): Use helper
`erc--initialize-markers' to set up prompt.
* lisp/erc/erc.el (erc--initialize-markers): Change
`erc-insert-marker' type to t. Do this to spare modules that want to
remember the current message location from resorting to workarounds,
like leaving a marker one char before the end of a message, which is
not foolproof.
(erc--refresh-prompt): Temporarily change type of `erc-insert-marker'
when inserting prompt.
(erc-display-line-1): Insert incoming message normally instead of
forcing before markers, thus respecting markers left by third parties.
Strictly speaking, this is a breaking change.
(erc-display-msg): Insert normally instead of calling
`insert-before-markers', which was a regression introduced by 05f6fdb9
"Preserve ERC prompt and its bounding markers".
* test/lisp/erc/erc-dcc-tests.el
(erc-dcc-tests--dcc-handle-ctcp-send,
erc-dcc-tests--erc-dcc-do-GET-command): Use helper to initialize
prompt and markers.
* test/lisp/erc/erc-networks-tests.el
(erc-networks--ensure-announced,
erc-networks--rename-server-buffer--existing--reuse,
erc-networks--rename-server-buffer--existing--noreuse,
erc-networks--rename-server-buffer--reconnecting,
erc-networks--rename-server-buffer--id,
erc-networks--rename-server-buffer--existing--live,
erc-networks--rename-server-buffer--local-match,
erc-networks--rename-server-buffer--local-nomatch): Use helper to
initialize prompt and bounding markers.
* test/lisp/erc/erc-stamp-tests.el (erc-stamp-tests--insert-right):
Use `erc--initialize-markers' for setting up prompt.
* test/lisp/erc/erc-tests.el (erc--refresh-prompt): Adjust assertions
for expected prompt content. (Bug#60936)
2023-06-10 00:17:44 -07:00
|
|
|
(should (looking-back "bob@ServNet 15> "))
|
|
|
|
|
(goto-char erc-input-marker)
|
|
|
|
|
(insert "Howdy")
|
|
|
|
|
(erc-send-current-line)
|
|
|
|
|
(save-excursion (forward-line -1)
|
2023-05-18 23:47:27 -07:00
|
|
|
(should (looking-at "<tester> Howdy")))
|
Don't insert prompt input before markers in ERC
* etc/ERC-NEWS: Update entry in 5.6 section announcing a persistent
prompt.
* lisp/erc/erc-dcc.el (erc-dcc-chat-setup): Use helper
`erc--initialize-markers' to set up prompt.
* lisp/erc/erc.el (erc--initialize-markers): Change
`erc-insert-marker' type to t. Do this to spare modules that want to
remember the current message location from resorting to workarounds,
like leaving a marker one char before the end of a message, which is
not foolproof.
(erc--refresh-prompt): Temporarily change type of `erc-insert-marker'
when inserting prompt.
(erc-display-line-1): Insert incoming message normally instead of
forcing before markers, thus respecting markers left by third parties.
Strictly speaking, this is a breaking change.
(erc-display-msg): Insert normally instead of calling
`insert-before-markers', which was a regression introduced by 05f6fdb9
"Preserve ERC prompt and its bounding markers".
* test/lisp/erc/erc-dcc-tests.el
(erc-dcc-tests--dcc-handle-ctcp-send,
erc-dcc-tests--erc-dcc-do-GET-command): Use helper to initialize
prompt and markers.
* test/lisp/erc/erc-networks-tests.el
(erc-networks--ensure-announced,
erc-networks--rename-server-buffer--existing--reuse,
erc-networks--rename-server-buffer--existing--noreuse,
erc-networks--rename-server-buffer--reconnecting,
erc-networks--rename-server-buffer--id,
erc-networks--rename-server-buffer--existing--live,
erc-networks--rename-server-buffer--local-match,
erc-networks--rename-server-buffer--local-nomatch): Use helper to
initialize prompt and bounding markers.
* test/lisp/erc/erc-stamp-tests.el (erc-stamp-tests--insert-right):
Use `erc--initialize-markers' for setting up prompt.
* test/lisp/erc/erc-tests.el (erc--refresh-prompt): Adjust assertions
for expected prompt content. (Bug#60936)
2023-06-10 00:17:44 -07:00
|
|
|
(should (looking-back "bob@ServNet 16> "))
|
2023-05-18 23:47:27 -07:00
|
|
|
;; No sign of old prompts
|
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(should-not (search-forward (rx (or "14" "15") ">") nil t)))))
|
|
|
|
|
|
|
|
|
|
(when noninteractive
|
|
|
|
|
(kill-buffer "#chan")
|
|
|
|
|
(kill-buffer "bob")
|
|
|
|
|
(kill-buffer "ServNet"))))
|
|
|
|
|
|
2023-01-23 20:48:24 -08:00
|
|
|
(ert-deftest erc--initialize-markers ()
|
|
|
|
|
(let ((proc (start-process "true" (current-buffer) "true"))
|
|
|
|
|
erc-modules
|
|
|
|
|
erc-connect-pre-hook
|
|
|
|
|
erc-insert-modify-hook
|
|
|
|
|
erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
|
|
|
|
|
(set-process-query-on-exit-flag proc nil)
|
|
|
|
|
(erc-mode)
|
|
|
|
|
(setq erc-server-process proc
|
|
|
|
|
erc-networks--id (erc-networks--id-create 'foonet))
|
|
|
|
|
(erc-open "localhost" 6667 "tester" "Tester" nil
|
|
|
|
|
"fake" nil "#chan" proc nil "user" nil)
|
|
|
|
|
(with-current-buffer (should (get-buffer "#chan"))
|
|
|
|
|
(should (= ?\n (char-after 1)))
|
|
|
|
|
(should (= ?E (char-after erc-insert-marker)))
|
|
|
|
|
(should (= 3 (marker-position erc-insert-marker)))
|
|
|
|
|
(should (= 8 (marker-position erc-input-marker)))
|
|
|
|
|
(should (= 8 (point-max)))
|
|
|
|
|
(should (= 8 (point)))
|
|
|
|
|
;; These prompt properties are a continual source of confusion.
|
|
|
|
|
;; Including the literal defaults here can hopefully serve as a
|
|
|
|
|
;; quick reference for anyone operating in that area.
|
|
|
|
|
(should (equal (buffer-string)
|
|
|
|
|
#("\n\nERC> "
|
|
|
|
|
2 6 ( font-lock-face erc-prompt-face
|
|
|
|
|
rear-nonsticky t
|
|
|
|
|
erc-prompt t
|
|
|
|
|
field erc-prompt
|
|
|
|
|
front-sticky t
|
|
|
|
|
read-only t)
|
|
|
|
|
6 7 ( rear-nonsticky t
|
|
|
|
|
erc-prompt t
|
|
|
|
|
field erc-prompt
|
|
|
|
|
front-sticky t
|
|
|
|
|
read-only t))))
|
|
|
|
|
|
|
|
|
|
;; Simulate some activity by inserting some text before and
|
|
|
|
|
;; after the prompt (multiline).
|
|
|
|
|
(erc-display-error-notice nil "Welcome")
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(insert "Hello\nWorld")
|
|
|
|
|
(goto-char 3)
|
|
|
|
|
(should (looking-at-p (regexp-quote "*** Welcome"))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Reconnect")
|
|
|
|
|
(erc-open "localhost" 6667 "tester" "Tester" nil
|
|
|
|
|
"fake" nil "#chan" proc nil "user" nil)
|
|
|
|
|
(should-not (get-buffer "#chan<2>")))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Existing prompt respected")
|
|
|
|
|
(with-current-buffer (should (get-buffer "#chan"))
|
|
|
|
|
(should (= ?\n (char-after 1)))
|
|
|
|
|
(should (= ?E (char-after erc-insert-marker)))
|
|
|
|
|
(should (= 15 (marker-position erc-insert-marker)))
|
|
|
|
|
(should (= 20 (marker-position erc-input-marker)))
|
|
|
|
|
(should (= 3 (point))) ; point restored
|
|
|
|
|
(should (equal (buffer-string)
|
|
|
|
|
#("\n\n*** Welcome\nERC> Hello\nWorld"
|
|
|
|
|
2 13 (font-lock-face erc-error-face)
|
|
|
|
|
14 18 ( font-lock-face erc-prompt-face
|
|
|
|
|
rear-nonsticky t
|
|
|
|
|
erc-prompt t
|
|
|
|
|
field erc-prompt
|
|
|
|
|
front-sticky t
|
|
|
|
|
read-only t)
|
|
|
|
|
18 19 ( rear-nonsticky t
|
|
|
|
|
erc-prompt t
|
|
|
|
|
field erc-prompt
|
|
|
|
|
front-sticky t
|
|
|
|
|
read-only t))))
|
|
|
|
|
(when noninteractive
|
|
|
|
|
(kill-buffer))))))
|
|
|
|
|
|
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)
|
2022-12-11 19:41:43 -08:00
|
|
|
(should (equal (erc-downcase "ABC 123 ΔΞΩΣ") "abc 123 ΔΞΩΣ"))
|
2021-10-05 19:03:56 -07:00
|
|
|
(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)
|
2022-12-11 19:41:43 -08:00
|
|
|
(should (equal (erc-downcase "ABC 123 ΔΞΩΣ") "abc 123 ΔΞΩΣ"))
|
2021-10-05 19:03:56 -07:00
|
|
|
(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)
|
2022-12-11 19:41:43 -08:00
|
|
|
(should (equal (erc-downcase "ABC 123 ΔΞΩΣ") "abc 123 ΔΞΩΣ"))
|
2021-10-05 19:03:56 -07:00
|
|
|
(should (equal (erc-downcase "Bob[m]`") "bob{m}`"))
|
|
|
|
|
(should (equal (erc-downcase "Tilde~") "tilde~" ))
|
|
|
|
|
(should (equal (erc-downcase "\\O/") "|o/" )))))
|
|
|
|
|
|
2023-02-18 19:32:36 -08:00
|
|
|
(ert-deftest erc-channel-p ()
|
|
|
|
|
(let ((erc--isupport-params (make-hash-table))
|
|
|
|
|
erc-server-parameters)
|
|
|
|
|
|
|
|
|
|
(should (erc-channel-p "#chan"))
|
|
|
|
|
(should (erc-channel-p "##chan"))
|
|
|
|
|
(should (erc-channel-p "&chan"))
|
|
|
|
|
(should (erc-channel-p "+chan"))
|
|
|
|
|
(should (erc-channel-p "!chan"))
|
|
|
|
|
(should-not (erc-channel-p "@chan"))
|
|
|
|
|
|
|
|
|
|
(push '("CHANTYPES" . "#&@+!") erc-server-parameters)
|
|
|
|
|
|
|
|
|
|
(should (erc-channel-p "!chan"))
|
|
|
|
|
(should (erc-channel-p "#chan"))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer (get-buffer-create "#chan")
|
|
|
|
|
(setq erc--target (erc--target-from-string "#chan")))
|
|
|
|
|
(should (erc-channel-p (get-buffer "#chan"))))
|
|
|
|
|
(kill-buffer "#chan"))
|
|
|
|
|
|
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")))))
|
|
|
|
|
|
2023-05-07 19:43:57 -07:00
|
|
|
(ert-deftest erc--restore-initialize-priors ()
|
|
|
|
|
;; This `pcase' expands to 100+k. Guess we could do something like
|
|
|
|
|
;; (and `(,_ ((,e . ,_) . ,_) . ,_) v) first and then return a
|
|
|
|
|
;; (equal `(if-let* ((,e ...)...)...) v) to cut it down to < 1k.
|
|
|
|
|
(should (pcase (macroexpand-1 '(erc--restore-initialize-priors erc-my-mode
|
|
|
|
|
foo (ignore 1 2 3)
|
|
|
|
|
bar #'spam))
|
|
|
|
|
(`(if-let* ((,e (or erc--server-reconnecting erc--target-priors))
|
|
|
|
|
((alist-get 'erc-my-mode ,e)))
|
|
|
|
|
(setq foo (alist-get 'foo ,e)
|
|
|
|
|
bar (alist-get 'bar ,e))
|
|
|
|
|
(setq foo (ignore 1 2 3)
|
|
|
|
|
bar #'spam))
|
|
|
|
|
t))))
|
|
|
|
|
|
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)))))
|
|
|
|
|
|
2023-01-19 21:07:27 -08:00
|
|
|
(ert-deftest erc--modify-local-map ()
|
|
|
|
|
(when (and (bound-and-true-p erc-irccontrols-mode)
|
|
|
|
|
(fboundp 'erc-irccontrols-mode))
|
|
|
|
|
(erc-irccontrols-mode -1))
|
|
|
|
|
(when (and (bound-and-true-p erc-match-mode)
|
|
|
|
|
(fboundp 'erc-match-mode))
|
|
|
|
|
(erc-match-mode -1))
|
|
|
|
|
(let* (calls
|
|
|
|
|
(inhibit-message noninteractive)
|
|
|
|
|
(cmd-foo (lambda () (interactive) (push 'foo calls)))
|
|
|
|
|
(cmd-bar (lambda () (interactive) (push 'bar calls))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Add non-existing")
|
|
|
|
|
(erc--modify-local-map t "C-c C-c" cmd-foo "C-c C-k" cmd-bar)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(set-window-buffer (selected-window) (current-buffer))
|
|
|
|
|
(use-local-map erc-mode-map)
|
|
|
|
|
(execute-kbd-macro "\C-c\C-c")
|
|
|
|
|
(execute-kbd-macro "\C-c\C-k"))
|
|
|
|
|
(should (equal calls '(bar foo))))
|
|
|
|
|
(setq calls nil)
|
|
|
|
|
|
|
|
|
|
(ert-info ("Add existing") ; Attempt to swap definitions fails
|
|
|
|
|
(erc--modify-local-map t "C-c C-c" cmd-bar "C-c C-k" cmd-foo)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(set-window-buffer (selected-window) (current-buffer))
|
|
|
|
|
(use-local-map erc-mode-map)
|
|
|
|
|
(execute-kbd-macro "\C-c\C-c")
|
|
|
|
|
(execute-kbd-macro "\C-c\C-k"))
|
|
|
|
|
(should (equal calls '(bar foo))))
|
|
|
|
|
(setq calls nil)
|
|
|
|
|
|
|
|
|
|
(ert-info ("Remove existing")
|
|
|
|
|
(ert-with-message-capture messages
|
|
|
|
|
(erc--modify-local-map nil "C-c C-c" cmd-foo "C-c C-k" cmd-bar)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(set-window-buffer (selected-window) (current-buffer))
|
|
|
|
|
(use-local-map erc-mode-map)
|
|
|
|
|
(execute-kbd-macro "\C-c\C-c")
|
|
|
|
|
(execute-kbd-macro "\C-c\C-k"))
|
|
|
|
|
(should (string-search "C-c C-c is undefined" messages))
|
|
|
|
|
(should (string-search "C-c C-k is undefined" messages))
|
|
|
|
|
(should-not calls)))))
|
|
|
|
|
|
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
|
2023-04-30 07:12:56 -07:00
|
|
|
(setq-local erc--input-review-functions nil)
|
|
|
|
|
(add-hook 'erc--input-review-functions #'erc-add-to-input-ring)
|
2021-02-27 05:35:40 +01:00
|
|
|
;;
|
|
|
|
|
(cl-letf (((symbol-function 'erc-process-input-line)
|
|
|
|
|
(lambda (&rest _)
|
2023-02-19 21:33:36 -08:00
|
|
|
(erc-display-message
|
|
|
|
|
nil 'notice (current-buffer) "echo: one\n")))
|
2021-02-27 05:35:40 +01:00
|
|
|
((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
|
2022-08-17 00:00:53 -07:00
|
|
|
(should (save-excursion (forward-line -1)
|
2021-02-27 05:35:40 +01:00
|
|
|
(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
|
|
|
|
2022-11-13 01:52:48 -08:00
|
|
|
(ert-deftest erc--debug-irc-protocol-mask-secrets ()
|
|
|
|
|
(should-not erc-debug-irc-protocol)
|
|
|
|
|
(should erc--debug-irc-protocol-mask-secrets)
|
|
|
|
|
(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
|
|
|
|
|
(concat "PASS :" (erc--unfun (lambda () "changeme")) "\r\n")
|
|
|
|
|
'outgoing)
|
|
|
|
|
(set-process-query-on-exit-flag erc-server-process nil))
|
|
|
|
|
(with-current-buffer "*erc-protocol*"
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(search-forward "\r\n\r\n")
|
|
|
|
|
(search-forward "myproxy.localhost:6667 >> PASS :????????" (pos-eol)))
|
|
|
|
|
(when noninteractive
|
|
|
|
|
(kill-buffer "*erc-protocol*")
|
|
|
|
|
(should-not erc-debug-irc-protocol))))
|
|
|
|
|
|
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")
|
2022-08-21 17:33:55 +02:00
|
|
|
(search-forward "myproxy.localhost:6667 >> PASS" (pos-eol))
|
2021-09-16 15:35:55 +02:00
|
|
|
(forward-line)
|
2022-08-21 17:33:55 +02:00
|
|
|
(search-forward "irc.gnu.org << :irc.gnu.org 001" (pos-eol))
|
2021-09-16 15:35:55 +02:00
|
|
|
(forward-line)
|
2022-08-21 17:33:55 +02:00
|
|
|
(search-forward "irc.gnu.org << :irc.gnu.org 002" (pos-eol))
|
2021-09-16 15:35:55 +02:00
|
|
|
(forward-line)
|
2022-08-21 17:33:55 +02:00
|
|
|
(search-forward "FooNet << :irc.gnu.org 422" (pos-eol))
|
2021-09-16 15:35:55 +02:00
|
|
|
(forward-line)
|
2022-08-21 17:33:55 +02:00
|
|
|
(search-forward "BarNet << :irc.gnu.org 221" (pos-eol)))
|
2021-09-16 15:35:55 +02:00
|
|
|
(when noninteractive
|
|
|
|
|
(kill-buffer "*erc-protocol*")
|
|
|
|
|
(should-not erc-debug-irc-protocol)))
|
2021-09-26 01:53:56 +02:00
|
|
|
|
2023-04-17 00:01:15 -07:00
|
|
|
(ert-deftest erc--split-line ()
|
|
|
|
|
(let ((erc-default-recipients '("#chan"))
|
|
|
|
|
(erc-split-line-length 10))
|
|
|
|
|
(should (equal (erc--split-line "") '("")))
|
|
|
|
|
(should (equal (erc--split-line "0123456789") '("0123456789")))
|
|
|
|
|
(should (equal (erc--split-line "0123456789a") '("0123456789" "a")))
|
|
|
|
|
|
|
|
|
|
(should (equal (erc--split-line "0123456789 ") '("0123456789" " ")))
|
|
|
|
|
(should (equal (erc--split-line "01234567 89") '("01234567 " "89")))
|
|
|
|
|
(should (equal (erc--split-line "0123456 789") '("0123456 " "789")))
|
|
|
|
|
(should (equal (erc--split-line "0 123456789") '("0 " "123456789")))
|
|
|
|
|
(should (equal (erc--split-line " 0123456789") '(" " "0123456789")))
|
|
|
|
|
(should (equal (erc--split-line "012345678 9a") '("012345678 " "9a")))
|
|
|
|
|
(should (equal (erc--split-line "0123456789 a") '("0123456789" " a")))
|
|
|
|
|
|
|
|
|
|
;; UTF-8 vs. KOI-8
|
|
|
|
|
(should (= 10 (string-bytes "Русск"))) ; utf-8
|
|
|
|
|
(should (equal (erc--split-line "Русск") '("Русск")))
|
|
|
|
|
(should (equal (erc--split-line "РусскийТекст") '("Русск" "ийТек" "ст")))
|
|
|
|
|
(should (equal (erc--split-line "Русский Текст") '("Русск" "ий " "Текст")))
|
|
|
|
|
(let ((erc-encoding-coding-alist '(("#chan" . cyrillic-koi8))))
|
|
|
|
|
(should (equal (erc--split-line "Русск") '("Русск")))
|
|
|
|
|
(should (equal (erc--split-line "РусскийТекст") '("РусскийТек" "ст")))
|
|
|
|
|
(should (equal (erc--split-line "Русский Текст") '("Русский " "Текст"))))
|
|
|
|
|
|
|
|
|
|
;; UTF-8 vs. Latin 1
|
|
|
|
|
(should (= 17 (string-bytes "Hyvää päivää")))
|
|
|
|
|
(should (equal (erc--split-line "Hyvää päivää") '("Hyvää " "päivää")))
|
|
|
|
|
(should (equal (erc--split-line "HyvääPäivää") '("HyvääPä" "ivää")))
|
|
|
|
|
(let ((erc-encoding-coding-alist '(("#chan" . latin-1))))
|
|
|
|
|
(should (equal (erc--split-line "Hyvää päivää") '("Hyvää " "päivää")))
|
|
|
|
|
(should (equal (erc--split-line "HyvääPäivää") '("HyvääPäivä" "ä"))))
|
|
|
|
|
|
|
|
|
|
;; Combining characters
|
|
|
|
|
(should (= 10 (string-bytes "Åström")))
|
|
|
|
|
(should (equal (erc--split-line "_Åström") '("_Åströ" "m")))
|
|
|
|
|
(should (equal (erc--split-line "__Åström") '("__Åstr" "öm")))
|
|
|
|
|
(should (equal (erc--split-line "___Åström") '("___Åstr" "öm")))
|
|
|
|
|
(when (> emacs-major-version 27)
|
|
|
|
|
(should (equal (erc--split-line "🏁🚩🎌🏴🏳️🏳️🌈🏳️⚧️🏴☠️")
|
|
|
|
|
'("🏁🚩" "🎌🏴" "🏳️" "🏳️🌈" "🏳️⚧️" "🏴☠️"))))))
|
|
|
|
|
|
Improve ERC's handling of multiline prompt input
* lisp/erc/erc.el (erc--pre-send-split-functions): Add new internal
hook allowing members to revise individual lines before sending. This
was created with an eye toward possibly exporting it publicly as a
customizable option.
(erc-last-input-time): Tweak meaning of variable to match likely
original intent, which is that it's only updated on successful calls
to `erc-send-current-line'.
(erc--discard-trailing-multiline-nulls): Conditionally truncate list
of lines to be sent, skipping trailing blanks. This constitutes a
behavioral change. But, considering the nature of the bug being
fixed, it is thought to be justified.
(erc--input-split): Add new internal struct containing split input
lines and flag for command detection.
(erc--input-line-delim-regexp): Add regex var for splitting multiline
prompt input.
(erc--blank-in-multiline-p): Add helper for detecting blank lines.
(erc--check-prompt-input-for-multiline-blanks,
erc--check-prompt-input-for-point-in-bounds,
erc--check-prompt-input-for-running-process): New functions to
encapsulate logic for various pre-flight idiot checks.
(erc--check-prompt-input-functions): Add new hook for validating
prompt input prior to clearing it, internal for now.
(erc-send-current-line): Pre-screen for blank lines and bail out if
necessary.
(erc-send-input): Add optional param to skip checking for blank lines.
Call hook `erc--pre-send-split-functions'.
* test/lisp/erc/erc-tests.el (erc-ring-previous-command): Use new test
helper.
(erc--input-line-delim-regexp,
erc--blank-in-multiline-input-p): Add tests.
(erc-tests--send-prep, erc-tests--set-fake-server-process,
erc-tests--with-process-input-spy): Add test helpers.
(erc--check-prompt-input-functions, erc-send-current-line,
erc-send-whitespace-lines): Add tests.
(Bug#54536)
2022-03-21 05:40:16 -07:00
|
|
|
(ert-deftest erc--input-line-delim-regexp ()
|
|
|
|
|
(let ((p erc--input-line-delim-regexp))
|
|
|
|
|
;; none
|
|
|
|
|
(should (equal '("a" "b") (split-string "a\r\nb" p)))
|
|
|
|
|
(should (equal '("a" "b") (split-string "a\nb" p)))
|
|
|
|
|
(should (equal '("a" "b") (split-string "a\rb" p)))
|
|
|
|
|
|
|
|
|
|
;; one
|
|
|
|
|
(should (equal '("") (split-string "" p)))
|
|
|
|
|
(should (equal '("a" "" "b") (split-string "a\r\rb" p)))
|
|
|
|
|
(should (equal '("a" "" "b") (split-string "a\n\rb" p)))
|
|
|
|
|
(should (equal '("a" "" "b") (split-string "a\n\nb" p)))
|
|
|
|
|
(should (equal '("a" "" "b") (split-string "a\r\r\nb" p)))
|
|
|
|
|
(should (equal '("a" "" "b") (split-string "a\n\r\nb" p)))
|
|
|
|
|
(should (equal '("a" "") (split-string "a\n" p)))
|
|
|
|
|
(should (equal '("a" "") (split-string "a\r" p)))
|
|
|
|
|
(should (equal '("a" "") (split-string "a\r\n" p)))
|
|
|
|
|
(should (equal '("" "b") (split-string "\nb" p)))
|
|
|
|
|
(should (equal '("" "b") (split-string "\rb" p)))
|
|
|
|
|
(should (equal '("" "b") (split-string "\r\nb" p)))
|
|
|
|
|
|
|
|
|
|
;; two
|
|
|
|
|
(should (equal '("" "") (split-string "\r" p)))
|
|
|
|
|
(should (equal '("" "") (split-string "\n" p)))
|
|
|
|
|
(should (equal '("" "") (split-string "\r\n" p)))
|
|
|
|
|
|
|
|
|
|
;; three
|
|
|
|
|
(should (equal '("" "" "") (split-string "\r\r" p)))
|
|
|
|
|
(should (equal '("" "" "") (split-string "\n\n" p)))
|
|
|
|
|
(should (equal '("" "" "") (split-string "\n\r" p)))))
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc--blank-in-multiline-input-p ()
|
|
|
|
|
(let ((check (lambda (s)
|
|
|
|
|
(erc--blank-in-multiline-input-p
|
|
|
|
|
(split-string s erc--input-line-delim-regexp)))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("With `erc-send-whitespace-lines'")
|
|
|
|
|
(let ((erc-send-whitespace-lines t))
|
|
|
|
|
(should (funcall check ""))
|
|
|
|
|
(should-not (funcall check "\na"))
|
|
|
|
|
(should-not (funcall check "/msg a\n")) ; real /cmd
|
|
|
|
|
(should-not (funcall check "a\n\nb")) ; "" allowed
|
|
|
|
|
(should-not (funcall check "/msg a\n\nb")) ; non-/cmd
|
|
|
|
|
(should-not (funcall check " "))
|
|
|
|
|
(should-not (funcall check "\t"))
|
|
|
|
|
(should-not (funcall check "a\nb"))
|
|
|
|
|
(should-not (funcall check "a\n "))
|
|
|
|
|
(should-not (funcall check "a\n \t"))
|
|
|
|
|
(should-not (funcall check "a\n \f"))
|
|
|
|
|
(should-not (funcall check "a\n \nb"))
|
|
|
|
|
(should-not (funcall check "a\n \t\nb"))
|
|
|
|
|
(should-not (funcall check "a\n \f\nb"))))
|
|
|
|
|
|
|
|
|
|
(should (funcall check ""))
|
|
|
|
|
(should (funcall check " "))
|
|
|
|
|
(should (funcall check "\t"))
|
|
|
|
|
(should (funcall check "a\n\nb"))
|
|
|
|
|
(should (funcall check "a\n\nb"))
|
|
|
|
|
(should (funcall check "a\n "))
|
|
|
|
|
(should (funcall check "a\n \t"))
|
|
|
|
|
(should (funcall check "a\n \f"))
|
|
|
|
|
(should (funcall check "a\n \nb"))
|
|
|
|
|
(should (funcall check "a\n \t\nb"))
|
|
|
|
|
|
|
|
|
|
(should-not (funcall check "a\rb"))
|
|
|
|
|
(should-not (funcall check "a\nb"))
|
|
|
|
|
(should-not (funcall check "a\r\nb"))))
|
|
|
|
|
|
|
|
|
|
(defun erc-tests--with-process-input-spy (test)
|
|
|
|
|
(with-current-buffer (get-buffer-create "FakeNet")
|
2023-04-30 07:12:56 -07:00
|
|
|
(let* ((erc--input-review-functions
|
|
|
|
|
(remove #'erc-add-to-input-ring erc--input-review-functions))
|
|
|
|
|
(erc-pre-send-functions
|
Improve ERC's handling of multiline prompt input
* lisp/erc/erc.el (erc--pre-send-split-functions): Add new internal
hook allowing members to revise individual lines before sending. This
was created with an eye toward possibly exporting it publicly as a
customizable option.
(erc-last-input-time): Tweak meaning of variable to match likely
original intent, which is that it's only updated on successful calls
to `erc-send-current-line'.
(erc--discard-trailing-multiline-nulls): Conditionally truncate list
of lines to be sent, skipping trailing blanks. This constitutes a
behavioral change. But, considering the nature of the bug being
fixed, it is thought to be justified.
(erc--input-split): Add new internal struct containing split input
lines and flag for command detection.
(erc--input-line-delim-regexp): Add regex var for splitting multiline
prompt input.
(erc--blank-in-multiline-p): Add helper for detecting blank lines.
(erc--check-prompt-input-for-multiline-blanks,
erc--check-prompt-input-for-point-in-bounds,
erc--check-prompt-input-for-running-process): New functions to
encapsulate logic for various pre-flight idiot checks.
(erc--check-prompt-input-functions): Add new hook for validating
prompt input prior to clearing it, internal for now.
(erc-send-current-line): Pre-screen for blank lines and bail out if
necessary.
(erc-send-input): Add optional param to skip checking for blank lines.
Call hook `erc--pre-send-split-functions'.
* test/lisp/erc/erc-tests.el (erc-ring-previous-command): Use new test
helper.
(erc--input-line-delim-regexp,
erc--blank-in-multiline-input-p): Add tests.
(erc-tests--send-prep, erc-tests--set-fake-server-process,
erc-tests--with-process-input-spy): Add test helpers.
(erc--check-prompt-input-functions, erc-send-current-line,
erc-send-whitespace-lines): Add tests.
(Bug#54536)
2022-03-21 05:40:16 -07:00
|
|
|
(remove #'erc-add-to-input-ring erc-pre-send-functions)) ; for now
|
|
|
|
|
(inhibit-message noninteractive)
|
|
|
|
|
(erc-server-current-nick "tester")
|
|
|
|
|
(erc-last-input-time 0)
|
|
|
|
|
erc-accidental-paste-threshold-seconds
|
2022-06-30 17:15:25 -07:00
|
|
|
erc-send-modify-hook
|
Improve ERC's handling of multiline prompt input
* lisp/erc/erc.el (erc--pre-send-split-functions): Add new internal
hook allowing members to revise individual lines before sending. This
was created with an eye toward possibly exporting it publicly as a
customizable option.
(erc-last-input-time): Tweak meaning of variable to match likely
original intent, which is that it's only updated on successful calls
to `erc-send-current-line'.
(erc--discard-trailing-multiline-nulls): Conditionally truncate list
of lines to be sent, skipping trailing blanks. This constitutes a
behavioral change. But, considering the nature of the bug being
fixed, it is thought to be justified.
(erc--input-split): Add new internal struct containing split input
lines and flag for command detection.
(erc--input-line-delim-regexp): Add regex var for splitting multiline
prompt input.
(erc--blank-in-multiline-p): Add helper for detecting blank lines.
(erc--check-prompt-input-for-multiline-blanks,
erc--check-prompt-input-for-point-in-bounds,
erc--check-prompt-input-for-running-process): New functions to
encapsulate logic for various pre-flight idiot checks.
(erc--check-prompt-input-functions): Add new hook for validating
prompt input prior to clearing it, internal for now.
(erc-send-current-line): Pre-screen for blank lines and bail out if
necessary.
(erc-send-input): Add optional param to skip checking for blank lines.
Call hook `erc--pre-send-split-functions'.
* test/lisp/erc/erc-tests.el (erc-ring-previous-command): Use new test
helper.
(erc--input-line-delim-regexp,
erc--blank-in-multiline-input-p): Add tests.
(erc-tests--send-prep, erc-tests--set-fake-server-process,
erc-tests--with-process-input-spy): Add test helpers.
(erc--check-prompt-input-functions, erc-send-current-line,
erc-send-whitespace-lines): Add tests.
(Bug#54536)
2022-03-21 05:40:16 -07:00
|
|
|
;;
|
|
|
|
|
calls)
|
|
|
|
|
(cl-letf (((symbol-function 'erc-process-input-line)
|
|
|
|
|
(lambda (&rest r) (push r calls)))
|
|
|
|
|
((symbol-function 'erc-server-buffer)
|
|
|
|
|
(lambda () (current-buffer))))
|
|
|
|
|
(erc-tests--send-prep)
|
|
|
|
|
(funcall test (lambda () (pop calls)))))
|
|
|
|
|
(when noninteractive (kill-buffer))))
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc--check-prompt-input-functions ()
|
|
|
|
|
(erc-tests--with-process-input-spy
|
|
|
|
|
(lambda (next)
|
|
|
|
|
|
|
|
|
|
(ert-info ("Errors when point not in prompt area") ; actually just dings
|
|
|
|
|
(insert "/msg #chan hi")
|
|
|
|
|
(forward-line -1)
|
|
|
|
|
(let ((e (should-error (erc-send-current-line))))
|
|
|
|
|
(should (equal "Point is not in the input area" (cadr e))))
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(ert-info ("Input remains untouched")
|
|
|
|
|
(should (save-excursion (erc-bol) (looking-at "/msg #chan hi")))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Errors when no process running")
|
|
|
|
|
(let ((e (should-error (erc-send-current-line))))
|
|
|
|
|
(should (equal "ERC: No process running" (cadr e))))
|
|
|
|
|
(ert-info ("Input remains untouched")
|
|
|
|
|
(should (save-excursion (erc-bol) (looking-at "/msg #chan hi")))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Errors when line contains empty newline")
|
|
|
|
|
(erc-bol)
|
|
|
|
|
(delete-region (point) (point-max))
|
|
|
|
|
(insert "one\n")
|
|
|
|
|
(let ((e (should-error (erc-send-current-line))))
|
|
|
|
|
(should (equal "Blank line - ignoring..." (cadr e))))
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(ert-info ("Input remains untouched")
|
|
|
|
|
(should (save-excursion (goto-char erc-input-marker)
|
|
|
|
|
(looking-at "one\n")))))
|
|
|
|
|
|
|
|
|
|
(should (= 0 erc-last-input-time))
|
|
|
|
|
(should-not (funcall next)))))
|
|
|
|
|
|
|
|
|
|
;; These also indirectly tests `erc-send-input'
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc-send-current-line ()
|
|
|
|
|
(erc-tests--with-process-input-spy
|
|
|
|
|
(lambda (next)
|
|
|
|
|
(erc-tests--set-fake-server-process "sleep" "1")
|
|
|
|
|
(should (= 0 erc-last-input-time))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Simple command")
|
|
|
|
|
(insert "/msg #chan hi")
|
|
|
|
|
(erc-send-current-line)
|
|
|
|
|
(ert-info ("Prompt restored")
|
|
|
|
|
(forward-line 0)
|
|
|
|
|
(should (looking-at-p erc-prompt)))
|
|
|
|
|
(ert-info ("Input cleared")
|
|
|
|
|
(erc-bol)
|
|
|
|
|
(should (eq (point) (point-max))))
|
2023-04-17 00:01:15 -07:00
|
|
|
;; The `force' argument is irrelevant here because it can't
|
|
|
|
|
;; influence dispatched handlers, such as `erc-cmd-MSG'.
|
|
|
|
|
(should (pcase (funcall next) (`("/msg #chan hi\n" ,_ nil) t))))
|
Improve ERC's handling of multiline prompt input
* lisp/erc/erc.el (erc--pre-send-split-functions): Add new internal
hook allowing members to revise individual lines before sending. This
was created with an eye toward possibly exporting it publicly as a
customizable option.
(erc-last-input-time): Tweak meaning of variable to match likely
original intent, which is that it's only updated on successful calls
to `erc-send-current-line'.
(erc--discard-trailing-multiline-nulls): Conditionally truncate list
of lines to be sent, skipping trailing blanks. This constitutes a
behavioral change. But, considering the nature of the bug being
fixed, it is thought to be justified.
(erc--input-split): Add new internal struct containing split input
lines and flag for command detection.
(erc--input-line-delim-regexp): Add regex var for splitting multiline
prompt input.
(erc--blank-in-multiline-p): Add helper for detecting blank lines.
(erc--check-prompt-input-for-multiline-blanks,
erc--check-prompt-input-for-point-in-bounds,
erc--check-prompt-input-for-running-process): New functions to
encapsulate logic for various pre-flight idiot checks.
(erc--check-prompt-input-functions): Add new hook for validating
prompt input prior to clearing it, internal for now.
(erc-send-current-line): Pre-screen for blank lines and bail out if
necessary.
(erc-send-input): Add optional param to skip checking for blank lines.
Call hook `erc--pre-send-split-functions'.
* test/lisp/erc/erc-tests.el (erc-ring-previous-command): Use new test
helper.
(erc--input-line-delim-regexp,
erc--blank-in-multiline-input-p): Add tests.
(erc-tests--send-prep, erc-tests--set-fake-server-process,
erc-tests--with-process-input-spy): Add test helpers.
(erc--check-prompt-input-functions, erc-send-current-line,
erc-send-whitespace-lines): Add tests.
(Bug#54536)
2022-03-21 05:40:16 -07:00
|
|
|
|
|
|
|
|
(ert-info ("Simple non-command")
|
|
|
|
|
(insert "hi")
|
|
|
|
|
(erc-send-current-line)
|
|
|
|
|
(should (eq (point) (point-max)))
|
|
|
|
|
(should (save-excursion (forward-line -1)
|
|
|
|
|
(search-forward "<tester> hi")))
|
2023-04-17 00:01:15 -07:00
|
|
|
;; Non-commands are forced only when `erc-flood-protect' is
|
|
|
|
|
;; nil, which conflates two orthogonal concerns.
|
Improve ERC's handling of multiline prompt input
* lisp/erc/erc.el (erc--pre-send-split-functions): Add new internal
hook allowing members to revise individual lines before sending. This
was created with an eye toward possibly exporting it publicly as a
customizable option.
(erc-last-input-time): Tweak meaning of variable to match likely
original intent, which is that it's only updated on successful calls
to `erc-send-current-line'.
(erc--discard-trailing-multiline-nulls): Conditionally truncate list
of lines to be sent, skipping trailing blanks. This constitutes a
behavioral change. But, considering the nature of the bug being
fixed, it is thought to be justified.
(erc--input-split): Add new internal struct containing split input
lines and flag for command detection.
(erc--input-line-delim-regexp): Add regex var for splitting multiline
prompt input.
(erc--blank-in-multiline-p): Add helper for detecting blank lines.
(erc--check-prompt-input-for-multiline-blanks,
erc--check-prompt-input-for-point-in-bounds,
erc--check-prompt-input-for-running-process): New functions to
encapsulate logic for various pre-flight idiot checks.
(erc--check-prompt-input-functions): Add new hook for validating
prompt input prior to clearing it, internal for now.
(erc-send-current-line): Pre-screen for blank lines and bail out if
necessary.
(erc-send-input): Add optional param to skip checking for blank lines.
Call hook `erc--pre-send-split-functions'.
* test/lisp/erc/erc-tests.el (erc-ring-previous-command): Use new test
helper.
(erc--input-line-delim-regexp,
erc--blank-in-multiline-input-p): Add tests.
(erc-tests--send-prep, erc-tests--set-fake-server-process,
erc-tests--with-process-input-spy): Add test helpers.
(erc--check-prompt-input-functions, erc-send-current-line,
erc-send-whitespace-lines): Add tests.
(Bug#54536)
2022-03-21 05:40:16 -07:00
|
|
|
(should (equal (funcall next) '("hi\n" nil t))))
|
|
|
|
|
|
|
|
|
|
(should (consp erc-last-input-time)))))
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc-send-whitespace-lines ()
|
|
|
|
|
(erc-tests--with-process-input-spy
|
|
|
|
|
(lambda (next)
|
|
|
|
|
(erc-tests--set-fake-server-process "sleep" "1")
|
|
|
|
|
(setq-local erc-send-whitespace-lines t)
|
|
|
|
|
|
|
|
|
|
(ert-info ("Multiline hunk with blank line correctly split")
|
|
|
|
|
(insert "one\n\ntwo")
|
|
|
|
|
(erc-send-current-line)
|
|
|
|
|
(ert-info ("Prompt restored")
|
|
|
|
|
(forward-line 0)
|
|
|
|
|
(should (looking-at-p erc-prompt)))
|
|
|
|
|
(ert-info ("Input cleared")
|
|
|
|
|
(erc-bol)
|
|
|
|
|
(should (eq (point) (point-max))))
|
|
|
|
|
(should (equal (funcall next) '("two\n" nil t)))
|
|
|
|
|
(should (equal (funcall next) '("\n" nil t)))
|
|
|
|
|
(should (equal (funcall next) '("one\n" nil t))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Multiline hunk with trailing newline filtered")
|
|
|
|
|
(insert "hi\n")
|
|
|
|
|
(erc-send-current-line)
|
|
|
|
|
(ert-info ("Input cleared")
|
|
|
|
|
(erc-bol)
|
|
|
|
|
(should (eq (point) (point-max))))
|
|
|
|
|
(should (equal (funcall next) '("hi\n" nil t)))
|
|
|
|
|
(should-not (funcall next)))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Multiline hunk with trailing carriage filtered")
|
|
|
|
|
(insert "hi\r")
|
|
|
|
|
(erc-send-current-line)
|
|
|
|
|
(ert-info ("Input cleared")
|
|
|
|
|
(erc-bol)
|
|
|
|
|
(should (eq (point) (point-max))))
|
|
|
|
|
(should (equal (funcall next) '("hi\n" nil t)))
|
|
|
|
|
(should-not (funcall next)))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Multiline command with trailing blank filtered")
|
|
|
|
|
(pcase-dolist (`(,p . ,q)
|
|
|
|
|
'(("/a b\r" "/a b\n") ("/a b\n" "/a b\n")
|
|
|
|
|
("/a b\n\n" "/a b\n") ("/a b\r\n" "/a b\n")
|
2023-04-17 23:09:49 -07:00
|
|
|
("/a b\n\n\n" "/a b\n")))
|
Improve ERC's handling of multiline prompt input
* lisp/erc/erc.el (erc--pre-send-split-functions): Add new internal
hook allowing members to revise individual lines before sending. This
was created with an eye toward possibly exporting it publicly as a
customizable option.
(erc-last-input-time): Tweak meaning of variable to match likely
original intent, which is that it's only updated on successful calls
to `erc-send-current-line'.
(erc--discard-trailing-multiline-nulls): Conditionally truncate list
of lines to be sent, skipping trailing blanks. This constitutes a
behavioral change. But, considering the nature of the bug being
fixed, it is thought to be justified.
(erc--input-split): Add new internal struct containing split input
lines and flag for command detection.
(erc--input-line-delim-regexp): Add regex var for splitting multiline
prompt input.
(erc--blank-in-multiline-p): Add helper for detecting blank lines.
(erc--check-prompt-input-for-multiline-blanks,
erc--check-prompt-input-for-point-in-bounds,
erc--check-prompt-input-for-running-process): New functions to
encapsulate logic for various pre-flight idiot checks.
(erc--check-prompt-input-functions): Add new hook for validating
prompt input prior to clearing it, internal for now.
(erc-send-current-line): Pre-screen for blank lines and bail out if
necessary.
(erc-send-input): Add optional param to skip checking for blank lines.
Call hook `erc--pre-send-split-functions'.
* test/lisp/erc/erc-tests.el (erc-ring-previous-command): Use new test
helper.
(erc--input-line-delim-regexp,
erc--blank-in-multiline-input-p): Add tests.
(erc-tests--send-prep, erc-tests--set-fake-server-process,
erc-tests--with-process-input-spy): Add test helpers.
(erc--check-prompt-input-functions, erc-send-current-line,
erc-send-whitespace-lines): Add tests.
(Bug#54536)
2022-03-21 05:40:16 -07:00
|
|
|
(insert p)
|
|
|
|
|
(erc-send-current-line)
|
|
|
|
|
(erc-bol)
|
|
|
|
|
(should (eq (point) (point-max)))
|
|
|
|
|
(while q
|
2023-04-17 23:09:49 -07:00
|
|
|
(should (pcase (funcall next)
|
|
|
|
|
(`(,cmd ,_ nil) (equal cmd (pop q))))))
|
|
|
|
|
(should-not (funcall next))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Multiline command with non-blanks errors")
|
|
|
|
|
(dolist (p '("/a b\nc\n\n" "/a b\n/c\n\n" "/a b\n\nc\n\n"
|
|
|
|
|
"/a\n c\n" "/a\nb\n" "/a\n/b\n" "/a \n \n"))
|
|
|
|
|
(insert p)
|
|
|
|
|
(should-error (erc-send-current-line))
|
|
|
|
|
(goto-char erc-input-marker)
|
|
|
|
|
(delete-region (point) (point-max))
|
Improve ERC's handling of multiline prompt input
* lisp/erc/erc.el (erc--pre-send-split-functions): Add new internal
hook allowing members to revise individual lines before sending. This
was created with an eye toward possibly exporting it publicly as a
customizable option.
(erc-last-input-time): Tweak meaning of variable to match likely
original intent, which is that it's only updated on successful calls
to `erc-send-current-line'.
(erc--discard-trailing-multiline-nulls): Conditionally truncate list
of lines to be sent, skipping trailing blanks. This constitutes a
behavioral change. But, considering the nature of the bug being
fixed, it is thought to be justified.
(erc--input-split): Add new internal struct containing split input
lines and flag for command detection.
(erc--input-line-delim-regexp): Add regex var for splitting multiline
prompt input.
(erc--blank-in-multiline-p): Add helper for detecting blank lines.
(erc--check-prompt-input-for-multiline-blanks,
erc--check-prompt-input-for-point-in-bounds,
erc--check-prompt-input-for-running-process): New functions to
encapsulate logic for various pre-flight idiot checks.
(erc--check-prompt-input-functions): Add new hook for validating
prompt input prior to clearing it, internal for now.
(erc-send-current-line): Pre-screen for blank lines and bail out if
necessary.
(erc-send-input): Add optional param to skip checking for blank lines.
Call hook `erc--pre-send-split-functions'.
* test/lisp/erc/erc-tests.el (erc-ring-previous-command): Use new test
helper.
(erc--input-line-delim-regexp,
erc--blank-in-multiline-input-p): Add tests.
(erc-tests--send-prep, erc-tests--set-fake-server-process,
erc-tests--with-process-input-spy): Add test helpers.
(erc--check-prompt-input-functions, erc-send-current-line,
erc-send-whitespace-lines): Add tests.
(Bug#54536)
2022-03-21 05:40:16 -07:00
|
|
|
(should-not (funcall next))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Multiline hunk with trailing whitespace not filtered")
|
|
|
|
|
(insert "there\n ")
|
|
|
|
|
(erc-send-current-line)
|
|
|
|
|
(should (equal (funcall next) '(" \n" nil t)))
|
|
|
|
|
(should (equal (funcall next) '("there\n" nil t)))
|
|
|
|
|
(should-not (funcall next))))))
|
2021-11-06 03:09:43 +01:00
|
|
|
|
2022-04-27 02:27:32 -07:00
|
|
|
(ert-deftest erc--check-prompt-input-for-excess-lines ()
|
|
|
|
|
(ert-info ("Without `erc-inhibit-multiline-input'")
|
|
|
|
|
(should-not erc-inhibit-multiline-input)
|
|
|
|
|
(should-not (erc--check-prompt-input-for-excess-lines "" '("a" "b"))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("With `erc-inhibit-multiline-input' as t (2)")
|
|
|
|
|
(let ((erc-inhibit-multiline-input t))
|
|
|
|
|
(should-not (erc--check-prompt-input-for-excess-lines "" '("a")))
|
2023-04-30 07:12:56 -07:00
|
|
|
;; Does not trim trailing blanks.
|
|
|
|
|
(should (erc--check-prompt-input-for-excess-lines "" '("a" "")))
|
2022-04-27 02:27:32 -07:00
|
|
|
(should (erc--check-prompt-input-for-excess-lines "" '("a" "b")))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("With `erc-inhibit-multiline-input' as 3")
|
|
|
|
|
(let ((erc-inhibit-multiline-input 3))
|
|
|
|
|
(should-not (erc--check-prompt-input-for-excess-lines "" '("a" "b")))
|
2023-04-30 07:12:56 -07:00
|
|
|
(should (erc--check-prompt-input-for-excess-lines "" '("a" "b" "")))
|
2022-04-27 02:27:32 -07:00
|
|
|
(should (erc--check-prompt-input-for-excess-lines "" '("a" "b" "c")))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("With `erc-ask-about-multiline-input'")
|
|
|
|
|
(let ((erc-inhibit-multiline-input t)
|
|
|
|
|
(erc-ask-about-multiline-input t))
|
|
|
|
|
(ert-simulate-keys '(?n ?\r ?y ?\r)
|
|
|
|
|
(should (erc--check-prompt-input-for-excess-lines "" '("a" "b")))
|
|
|
|
|
(should-not (erc--check-prompt-input-for-excess-lines "" '("a" "b")))))
|
|
|
|
|
(should-not erc-ask-about-multiline-input)))
|
|
|
|
|
|
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
|
2023-04-14 00:07:31 -07:00
|
|
|
(erc-tests--set-fake-server-process "sleep" "1")
|
2021-11-06 03:09:43 +01:00
|
|
|
(cl-letf (((symbol-function 'erc-cmd-MSG)
|
|
|
|
|
(lambda (line)
|
|
|
|
|
(push line calls)
|
Extend erc-interactive-display to cover /JOINs
* lisp/erc/erc.el (erc-display): Mention that buffer-related display
options live in the customization group `erc-buffers'.
(erc-buffer-display, erc-join-buffer): Swap alias and aliased so that
the favored name, `erc-buffer-display', appears in the definition and
in the Customize menu. Also note related buffer-display options in
the doc string.
(erc-query-display, erc-interactive-display): Make the former an alias
of the latter, new in ERC 5.6, because their roles were functionally
redundant and thus confusing. Inherit the default value from
`erc-query-display' because users are more familiar with the pop-up
window behavior than a single-window replacement.
(erc-reconnect-display): Use preferred name for cross-referencing
fallback option `erc-buffer-display' in doc string, and explain how
/reconnect handling differs.
(erc--setup-buffer-hook): Add new internal hook for modules that
operate on windows and frames, such as erc-speedbar and
erc-status-sidebar.
(erc-open): Run `erc--setup-buffer-hook' after `erc-setup-buffer' so
hook members know their code isn't tied to `erc-setup-buffer' itself,
which may be used in other contexts, but rather to a new ERC buffer on
which some display-related action has just been performed.
(erc--called-as-input-p): New variable for "slash" commands, like
`erc-cmd-FOO', to detect whether they're being called "interactively"
as a result of input given at ERC's prompt.
(erc-process-input-line): Bind `erc--called-as-input-p' when running
slash commands.
(erc-cmd-JOIN): When called interactively, schedule a callback to wrap
the response handler and control how new buffers are thus displayed.
(erc-cmd-QUERY): Use preferred alias for `erc-query-display'.
* test/lisp/erc/erc-scenarios-base-buffer-display.el:
(erc-scenarios-base-buffer-display--interactive-default): New test.
* test/lisp/erc/erc-tests.el (erc-process-input-line,
erc-select-read-args, erc-tls, erc--interactive): Change expected
default value of `erc-interactive-display' from `buffer' to
`window'. (Bug#62833)
2023-04-10 17:58:05 -07:00
|
|
|
(should erc--called-as-input-p)
|
2021-11-06 03:09:43 +01:00
|
|
|
(funcall orig-erc-cmd-MSG line)))
|
|
|
|
|
((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))))))
|
|
|
|
|
|
2023-07-07 21:27:03 -07:00
|
|
|
(ert-deftest erc--split-string-shell-cmd ()
|
|
|
|
|
|
|
|
|
|
;; Leading and trailing space
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "1 2 3") '("1" "2" "3")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd " 1 2 3 ") '("1" "2" "3")))
|
|
|
|
|
|
|
|
|
|
;; Empty string
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "\"\"") '("")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd " \"\" ") '("")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "1 \"\"") '("1" "")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "1 \"\" ") '("1" "")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "\"\" 1") '("" "1")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd " \"\" 1") '("" "1")))
|
|
|
|
|
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "''") '("")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd " '' ") '("")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "1 ''") '("1" "")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "1 '' ") '("1" "")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "'' 1") '("" "1")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd " '' 1") '("" "1")))
|
|
|
|
|
|
|
|
|
|
;; Backslash
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "\\ ") '(" ")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd " \\ ") '(" ")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "1\\ ") '("1 ")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "1\\ 2") '("1 2")))
|
|
|
|
|
|
|
|
|
|
;; Embedded
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "\"\\\"\"") '("\"")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "1 \"2 \\\" \\\" 3\"")
|
|
|
|
|
'("1" "2 \" \" 3")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "1 \"2 ' ' 3\"")
|
|
|
|
|
'("1" "2 ' ' 3")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "1 '2 \" \" 3'")
|
|
|
|
|
'("1" "2 \" \" 3")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "1 '2 \\ 3'")
|
|
|
|
|
'("1" "2 \\ 3")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "1 \"2 \\\\ 3\"")
|
|
|
|
|
'("1" "2 \\ 3"))) ; see comment re ^
|
|
|
|
|
|
|
|
|
|
;; Realistic
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "GET bob \"my file.txt\"")
|
|
|
|
|
'("GET" "bob" "my file.txt")))
|
|
|
|
|
(should (equal (erc--split-string-shell-cmd "GET EXAMPLE|bob \"my file.txt\"")
|
|
|
|
|
'("GET" "EXAMPLE|bob" "my file.txt")))) ; regression
|
|
|
|
|
|
2023-04-30 07:12:56 -07:00
|
|
|
|
|
|
|
|
;; The behavior of `erc-pre-send-functions' differs between versions
|
|
|
|
|
;; in how hook members see and influence a trailing newline that's
|
|
|
|
|
;; part of the original prompt submission:
|
|
|
|
|
;;
|
|
|
|
|
;; 5.4: both seen and sent
|
|
|
|
|
;; 5.5: seen but not sent*
|
|
|
|
|
;; 5.6: neither seen nor sent*
|
|
|
|
|
;;
|
|
|
|
|
;; * requires `erc-send-whitespace-lines' for hook to run
|
|
|
|
|
;;
|
|
|
|
|
;; Two aspects that have remained consistent are
|
|
|
|
|
;;
|
|
|
|
|
;; - a final nonempty line in any submission is always sent
|
|
|
|
|
;; - a trailing newline appended by a hook member is always sent
|
|
|
|
|
;;
|
|
|
|
|
;; The last bullet would seem to contradict the "not sent" behavior of
|
|
|
|
|
;; 5.5 and 5.6, but what's actually happening is that exactly one
|
|
|
|
|
;; trailing newline is culled, so anything added always goes through.
|
|
|
|
|
;; Also, in ERC 5.6, all empty lines are actually padded, but this is
|
|
|
|
|
;; merely incidental WRT the above.
|
|
|
|
|
;;
|
|
|
|
|
;; Note that this test doesn't run any input-prep hooks and thus can't
|
|
|
|
|
;; account for the "seen" dimension noted above.
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc--run-send-hooks ()
|
|
|
|
|
(with-suppressed-warnings ((obsolete erc-send-this)
|
|
|
|
|
(obsolete erc-send-pre-hook))
|
|
|
|
|
(should erc-insert-this)
|
|
|
|
|
(should erc-send-this) ; populates `erc--input-split-sendp'
|
|
|
|
|
|
|
|
|
|
(let (erc-pre-send-functions erc-send-pre-hook)
|
|
|
|
|
|
|
|
|
|
(ert-info ("String preserved, lines rewritten, empties padded")
|
|
|
|
|
(setq erc-pre-send-functions
|
|
|
|
|
(lambda (o) (setf (erc-input-string o) "bar\n\nbaz\n")))
|
|
|
|
|
(should (pcase (erc--run-send-hooks (make-erc--input-split
|
|
|
|
|
:string "foo" :lines '("foo")))
|
|
|
|
|
((cl-struct erc--input-split
|
|
|
|
|
(string "foo") (sendp 't) (insertp 't)
|
|
|
|
|
(lines '("bar" " " "baz" " ")) (cmdp 'nil))
|
|
|
|
|
t))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Multiline commands rejected")
|
|
|
|
|
(should-error (erc--run-send-hooks (make-erc--input-split
|
|
|
|
|
:string "/mycmd foo"
|
|
|
|
|
:lines '("/mycmd foo")
|
|
|
|
|
:cmdp t))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Single-line commands pass")
|
|
|
|
|
(setq erc-pre-send-functions
|
|
|
|
|
(lambda (o) (setf (erc-input-sendp o) nil
|
|
|
|
|
(erc-input-string o) "/mycmd bar")))
|
|
|
|
|
(should (pcase (erc--run-send-hooks (make-erc--input-split
|
|
|
|
|
:string "/mycmd foo"
|
|
|
|
|
:lines '("/mycmd foo")
|
|
|
|
|
:cmdp t))
|
|
|
|
|
((cl-struct erc--input-split
|
|
|
|
|
(string "/mycmd foo") (sendp 'nil) (insertp 't)
|
|
|
|
|
(lines '("/mycmd bar")) (cmdp 't))
|
|
|
|
|
t))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Legacy hook respected, special vars confined")
|
|
|
|
|
(setq erc-send-pre-hook (lambda (_) (setq erc-send-this nil))
|
|
|
|
|
erc-pre-send-functions (lambda (o) ; propagates
|
|
|
|
|
(should-not (erc-input-sendp o))))
|
|
|
|
|
(should (pcase (erc--run-send-hooks (make-erc--input-split
|
|
|
|
|
:string "foo" :lines '("foo")))
|
|
|
|
|
((cl-struct erc--input-split
|
|
|
|
|
(string "foo") (sendp 'nil) (insertp 't)
|
|
|
|
|
(lines '("foo")) (cmdp 'nil))
|
|
|
|
|
t)))
|
|
|
|
|
(should erc-send-this))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Request to resplit honored")
|
|
|
|
|
(setq erc-send-pre-hook nil
|
|
|
|
|
erc-pre-send-functions
|
|
|
|
|
(lambda (o) (setf (erc-input-string o) "foo bar baz"
|
|
|
|
|
(erc-input-refoldp o) t)))
|
|
|
|
|
(let ((erc-split-line-length 8))
|
|
|
|
|
(should
|
|
|
|
|
(pcase (erc--run-send-hooks (make-erc--input-split
|
|
|
|
|
:string "foo" :lines '("foo")))
|
|
|
|
|
((cl-struct erc--input-split
|
|
|
|
|
(string "foo") (sendp 't) (insertp 't)
|
|
|
|
|
(lines '("foo bar " "baz")) (cmdp 'nil))
|
|
|
|
|
t))))))))
|
|
|
|
|
|
2022-07-06 00:40:42 -07:00
|
|
|
;; Note: if adding an erc-backend-tests.el, please relocate this there.
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc-message ()
|
|
|
|
|
(should-not erc-server-last-peers)
|
|
|
|
|
(let (server-proc
|
|
|
|
|
calls
|
|
|
|
|
erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
|
|
|
|
|
(cl-letf (((symbol-function 'erc-display-message)
|
|
|
|
|
(lambda (_ _ _ line) (push line calls)))
|
|
|
|
|
((symbol-function 'erc-server-send)
|
|
|
|
|
(lambda (line _) (push line calls)))
|
|
|
|
|
((symbol-function 'erc-server-buffer)
|
|
|
|
|
(lambda () (process-buffer server-proc))))
|
|
|
|
|
(with-current-buffer (get-buffer-create "ExampleNet")
|
|
|
|
|
(erc-mode)
|
|
|
|
|
(setq erc-server-current-nick "tester"
|
|
|
|
|
server-proc (start-process "sleep" (current-buffer) "sleep" "1")
|
|
|
|
|
erc-server-process server-proc
|
|
|
|
|
erc-server-last-peers (cons nil nil)
|
|
|
|
|
erc-server-users (make-hash-table :test 'equal)
|
|
|
|
|
erc-network 'ExampleNet)
|
|
|
|
|
(set-process-query-on-exit-flag erc-server-process nil))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer (get-buffer-create "#chan")
|
|
|
|
|
(erc-mode)
|
|
|
|
|
(setq erc-server-process (buffer-local-value 'erc-server-process
|
|
|
|
|
(get-buffer "ExampleNet"))
|
|
|
|
|
erc-default-recipients '("#chan")
|
|
|
|
|
erc-channel-users (make-hash-table :test 'equal)
|
|
|
|
|
erc-network 'ExampleNet)
|
|
|
|
|
(erc-update-current-channel-member "alice" "alice")
|
|
|
|
|
(erc-update-current-channel-member "tester" "tester"))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "ExampleNet"
|
|
|
|
|
(erc-server-PRIVMSG erc-server-process
|
|
|
|
|
(make-erc-response
|
|
|
|
|
:sender "alice!~u@fsf.org"
|
|
|
|
|
:command "PRIVMSG"
|
|
|
|
|
:command-args '("#chan" "hi")
|
|
|
|
|
:unparsed ":alice!~u@fsf.org PRIVMSG #chan :hi"))
|
|
|
|
|
(should (equal erc-server-last-peers '("alice")))
|
|
|
|
|
(should (string-match "<alice>" (pop calls))))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "#chan"
|
|
|
|
|
(ert-info ("Shortcuts usable in target buffers")
|
|
|
|
|
(should-not (local-variable-p 'erc-server-last-peers))
|
|
|
|
|
(should-not erc-server-last-peers)
|
|
|
|
|
(erc-message "PRIVMSG" ". hi")
|
|
|
|
|
(should-not erc-server-last-peers)
|
|
|
|
|
(should (eq 'no-target (pop calls)))
|
|
|
|
|
(erc-message "PRIVMSG" ", hi")
|
|
|
|
|
(should-not erc-server-last-peers)
|
|
|
|
|
(should (string-match "alice :hi" (pop calls)))))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "ExampleNet"
|
|
|
|
|
(ert-info ("Shortcuts local in server bufs")
|
|
|
|
|
(should (equal erc-server-last-peers '("alice" . "alice")))
|
|
|
|
|
(erc-message "PRIVMSG" ", hi")
|
|
|
|
|
(should (equal erc-server-last-peers '("alice" . "alice")))
|
|
|
|
|
(should (string-match "PRIVMSG alice :hi" (pop calls)))
|
|
|
|
|
(setcdr erc-server-last-peers "bob")
|
|
|
|
|
(erc-message "PRIVMSG" ". hi")
|
|
|
|
|
(should (equal erc-server-last-peers '("alice" . "bob")))
|
|
|
|
|
(should (string-match "PRIVMSG bob :hi" (pop calls)))))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer "#chan"
|
|
|
|
|
(ert-info ("Non-shortcuts are local to server buffer")
|
|
|
|
|
(should-not (local-variable-p 'erc-server-last-peers))
|
|
|
|
|
(should-not erc-server-last-peers)
|
|
|
|
|
(erc-message "PRIVMSG" "#chan hola")
|
|
|
|
|
(should-not erc-server-last-peers)
|
|
|
|
|
(should-not (default-value 'erc-server-last-peers))
|
|
|
|
|
(should (equal (buffer-local-value 'erc-server-last-peers
|
|
|
|
|
(get-buffer "ExampleNet"))
|
|
|
|
|
'("alice" . "#chan")))
|
|
|
|
|
(should (string-match "hola" (pop calls))))))
|
|
|
|
|
|
|
|
|
|
(should-not erc-server-last-peers)
|
|
|
|
|
(should-not calls)
|
|
|
|
|
(kill-buffer "ExampleNet")
|
|
|
|
|
(kill-buffer "#chan")))
|
|
|
|
|
|
2022-07-11 05:14:57 -07:00
|
|
|
(defvar erc-tests--ipv6-examples
|
|
|
|
|
'("1:2:3:4:5:6:7:8"
|
|
|
|
|
"::ffff:10.0.0.1" "::ffff:1.2.3.4" "::ffff:0.0.0.0"
|
|
|
|
|
"1:2:3:4:5:6:77:88" "::ffff:255.255.255.255"
|
|
|
|
|
"fe08::7:8" "ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff"
|
|
|
|
|
"1:2:3:4:5:6:7:8" "1::" "1:2:3:4:5:6:7::" "1::8"
|
|
|
|
|
"1:2:3:4:5:6::8" "1:2:3:4:5:6::8" "1::7:8" "1:2:3:4:5::7:8"
|
|
|
|
|
"1:2:3:4:5::8" "1::6:7:8" "1:2:3:4::6:7:8" "1:2:3:4::8"
|
|
|
|
|
"1::5:6:7:8" "1:2:3::5:6:7:8" "1:2:3::8" "1::4:5:6:7:8"
|
|
|
|
|
"1:2::4:5:6:7:8" "1:2::8" "1::3:4:5:6:7:8" "1::3:4:5:6:7:8"
|
|
|
|
|
"1::8" "::2:3:4:5:6:7:8" "::2:3:4:5:6:7:8" "::8"
|
|
|
|
|
"::" "fe08::7:8%eth0" "fe08::7:8%1" "::255.255.255.255"
|
|
|
|
|
"::ffff:255.255.255.255" "::ffff:0:255.255.255.255"
|
|
|
|
|
"2001:db8:3:4::192.0.2.33" "64:ff9b::192.0.2.33"))
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc--server-connect-dumb-ipv6-regexp ()
|
|
|
|
|
(dolist (a erc-tests--ipv6-examples)
|
|
|
|
|
(should-not (string-match erc--server-connect-dumb-ipv6-regexp a))
|
|
|
|
|
(should (string-match erc--server-connect-dumb-ipv6-regexp
|
|
|
|
|
(concat "[" a "]")))))
|
|
|
|
|
|
2022-12-29 06:43:19 -08:00
|
|
|
(ert-deftest erc--with-entrypoint-environment ()
|
|
|
|
|
(let ((env '((erc-join-buffer . foo)
|
|
|
|
|
(erc-server-connect-function . bar))))
|
|
|
|
|
(erc--with-entrypoint-environment env
|
|
|
|
|
(should (eq erc-join-buffer 'foo))
|
|
|
|
|
(should (eq erc-server-connect-function 'bar)))))
|
|
|
|
|
|
2022-07-11 05:14:57 -07:00
|
|
|
(ert-deftest erc-select-read-args ()
|
|
|
|
|
|
2022-12-29 06:43:19 -08:00
|
|
|
(ert-info ("Prompts for switch to TLS by default")
|
|
|
|
|
(should (equal (ert-simulate-keys "\r\r\r\ry\r"
|
2022-07-11 05:14:57 -07:00
|
|
|
(erc-select-read-args))
|
|
|
|
|
(list :server "irc.libera.chat"
|
2022-12-29 06:43:19 -08:00
|
|
|
:port 6697
|
|
|
|
|
:nick (user-login-name)
|
2022-12-29 06:43:19 -08:00
|
|
|
'&interactive-env
|
|
|
|
|
'((erc-server-connect-function . erc-open-tls-stream)
|
Extend erc-interactive-display to cover /JOINs
* lisp/erc/erc.el (erc-display): Mention that buffer-related display
options live in the customization group `erc-buffers'.
(erc-buffer-display, erc-join-buffer): Swap alias and aliased so that
the favored name, `erc-buffer-display', appears in the definition and
in the Customize menu. Also note related buffer-display options in
the doc string.
(erc-query-display, erc-interactive-display): Make the former an alias
of the latter, new in ERC 5.6, because their roles were functionally
redundant and thus confusing. Inherit the default value from
`erc-query-display' because users are more familiar with the pop-up
window behavior than a single-window replacement.
(erc-reconnect-display): Use preferred name for cross-referencing
fallback option `erc-buffer-display' in doc string, and explain how
/reconnect handling differs.
(erc--setup-buffer-hook): Add new internal hook for modules that
operate on windows and frames, such as erc-speedbar and
erc-status-sidebar.
(erc-open): Run `erc--setup-buffer-hook' after `erc-setup-buffer' so
hook members know their code isn't tied to `erc-setup-buffer' itself,
which may be used in other contexts, but rather to a new ERC buffer on
which some display-related action has just been performed.
(erc--called-as-input-p): New variable for "slash" commands, like
`erc-cmd-FOO', to detect whether they're being called "interactively"
as a result of input given at ERC's prompt.
(erc-process-input-line): Bind `erc--called-as-input-p' when running
slash commands.
(erc-cmd-JOIN): When called interactively, schedule a callback to wrap
the response handler and control how new buffers are thus displayed.
(erc-cmd-QUERY): Use preferred alias for `erc-query-display'.
* test/lisp/erc/erc-scenarios-base-buffer-display.el:
(erc-scenarios-base-buffer-display--interactive-default): New test.
* test/lisp/erc/erc-tests.el (erc-process-input-line,
erc-select-read-args, erc-tls, erc--interactive): Change expected
default value of `erc-interactive-display' from `buffer' to
`window'. (Bug#62833)
2023-04-10 17:58:05 -07:00
|
|
|
(erc-join-buffer . window))))))
|
2022-12-29 06:43:19 -08:00
|
|
|
|
|
|
|
|
(ert-info ("Switches to TLS when port matches default TLS port")
|
|
|
|
|
(should (equal (ert-simulate-keys "irc.gnu.org\r6697\r\r\r"
|
|
|
|
|
(erc-select-read-args))
|
|
|
|
|
(list :server "irc.gnu.org"
|
|
|
|
|
:port 6697
|
|
|
|
|
:nick (user-login-name)
|
2022-12-29 06:43:19 -08:00
|
|
|
'&interactive-env
|
|
|
|
|
'((erc-server-connect-function . erc-open-tls-stream)
|
Extend erc-interactive-display to cover /JOINs
* lisp/erc/erc.el (erc-display): Mention that buffer-related display
options live in the customization group `erc-buffers'.
(erc-buffer-display, erc-join-buffer): Swap alias and aliased so that
the favored name, `erc-buffer-display', appears in the definition and
in the Customize menu. Also note related buffer-display options in
the doc string.
(erc-query-display, erc-interactive-display): Make the former an alias
of the latter, new in ERC 5.6, because their roles were functionally
redundant and thus confusing. Inherit the default value from
`erc-query-display' because users are more familiar with the pop-up
window behavior than a single-window replacement.
(erc-reconnect-display): Use preferred name for cross-referencing
fallback option `erc-buffer-display' in doc string, and explain how
/reconnect handling differs.
(erc--setup-buffer-hook): Add new internal hook for modules that
operate on windows and frames, such as erc-speedbar and
erc-status-sidebar.
(erc-open): Run `erc--setup-buffer-hook' after `erc-setup-buffer' so
hook members know their code isn't tied to `erc-setup-buffer' itself,
which may be used in other contexts, but rather to a new ERC buffer on
which some display-related action has just been performed.
(erc--called-as-input-p): New variable for "slash" commands, like
`erc-cmd-FOO', to detect whether they're being called "interactively"
as a result of input given at ERC's prompt.
(erc-process-input-line): Bind `erc--called-as-input-p' when running
slash commands.
(erc-cmd-JOIN): When called interactively, schedule a callback to wrap
the response handler and control how new buffers are thus displayed.
(erc-cmd-QUERY): Use preferred alias for `erc-query-display'.
* test/lisp/erc/erc-scenarios-base-buffer-display.el:
(erc-scenarios-base-buffer-display--interactive-default): New test.
* test/lisp/erc/erc-tests.el (erc-process-input-line,
erc-select-read-args, erc-tls, erc--interactive): Change expected
default value of `erc-interactive-display' from `buffer' to
`window'. (Bug#62833)
2023-04-10 17:58:05 -07:00
|
|
|
(erc-join-buffer . window))))))
|
2022-12-29 06:43:19 -08:00
|
|
|
|
|
|
|
|
(ert-info ("Switches to TLS when URL is ircs://")
|
|
|
|
|
(should (equal (ert-simulate-keys "ircs://irc.gnu.org\r\r\r\r"
|
|
|
|
|
(erc-select-read-args))
|
|
|
|
|
(list :server "irc.gnu.org"
|
|
|
|
|
:port 6697
|
2022-07-11 05:14:57 -07:00
|
|
|
:nick (user-login-name)
|
2022-12-29 06:43:19 -08:00
|
|
|
'&interactive-env
|
|
|
|
|
'((erc-server-connect-function . erc-open-tls-stream)
|
Extend erc-interactive-display to cover /JOINs
* lisp/erc/erc.el (erc-display): Mention that buffer-related display
options live in the customization group `erc-buffers'.
(erc-buffer-display, erc-join-buffer): Swap alias and aliased so that
the favored name, `erc-buffer-display', appears in the definition and
in the Customize menu. Also note related buffer-display options in
the doc string.
(erc-query-display, erc-interactive-display): Make the former an alias
of the latter, new in ERC 5.6, because their roles were functionally
redundant and thus confusing. Inherit the default value from
`erc-query-display' because users are more familiar with the pop-up
window behavior than a single-window replacement.
(erc-reconnect-display): Use preferred name for cross-referencing
fallback option `erc-buffer-display' in doc string, and explain how
/reconnect handling differs.
(erc--setup-buffer-hook): Add new internal hook for modules that
operate on windows and frames, such as erc-speedbar and
erc-status-sidebar.
(erc-open): Run `erc--setup-buffer-hook' after `erc-setup-buffer' so
hook members know their code isn't tied to `erc-setup-buffer' itself,
which may be used in other contexts, but rather to a new ERC buffer on
which some display-related action has just been performed.
(erc--called-as-input-p): New variable for "slash" commands, like
`erc-cmd-FOO', to detect whether they're being called "interactively"
as a result of input given at ERC's prompt.
(erc-process-input-line): Bind `erc--called-as-input-p' when running
slash commands.
(erc-cmd-JOIN): When called interactively, schedule a callback to wrap
the response handler and control how new buffers are thus displayed.
(erc-cmd-QUERY): Use preferred alias for `erc-query-display'.
* test/lisp/erc/erc-scenarios-base-buffer-display.el:
(erc-scenarios-base-buffer-display--interactive-default): New test.
* test/lisp/erc/erc-tests.el (erc-process-input-line,
erc-select-read-args, erc-tls, erc--interactive): Change expected
default value of `erc-interactive-display' from `buffer' to
`window'. (Bug#62833)
2023-04-10 17:58:05 -07:00
|
|
|
(erc-join-buffer . window))))))
|
2022-12-29 06:43:19 -08:00
|
|
|
|
|
|
|
|
(setq-local erc-interactive-display nil) ; cheat to save space
|
2022-12-29 06:43:19 -08:00
|
|
|
|
|
|
|
|
(ert-info ("Opt out of non-TLS warning manually")
|
|
|
|
|
(should (equal (ert-simulate-keys "\r\r\r\rn\r"
|
|
|
|
|
(erc-select-read-args))
|
|
|
|
|
(list :server "irc.libera.chat"
|
|
|
|
|
:port 6667
|
|
|
|
|
:nick (user-login-name)))))
|
2022-07-11 05:14:57 -07:00
|
|
|
|
|
|
|
|
(ert-info ("Override default TLS")
|
|
|
|
|
(should (equal (ert-simulate-keys "irc://irc.libera.chat\r\r\r\r"
|
|
|
|
|
(erc-select-read-args))
|
|
|
|
|
(list :server "irc.libera.chat"
|
|
|
|
|
:port 6667
|
2022-12-29 06:43:19 -08:00
|
|
|
:nick (user-login-name)))))
|
2022-07-11 05:14:57 -07:00
|
|
|
|
|
|
|
|
(ert-info ("Address includes port")
|
2022-12-29 06:43:19 -08:00
|
|
|
(should (equal (ert-simulate-keys "localhost:6667\rnick\r\r"
|
2022-07-11 05:14:57 -07:00
|
|
|
(erc-select-read-args))
|
|
|
|
|
(list :server "localhost"
|
|
|
|
|
:port 6667
|
2022-12-29 06:43:19 -08:00
|
|
|
:nick "nick"))))
|
2022-07-11 05:14:57 -07:00
|
|
|
|
|
|
|
|
(ert-info ("Address includes nick, password skipped via option")
|
|
|
|
|
(should (equal (ert-simulate-keys "nick@localhost:6667\r"
|
|
|
|
|
(let (erc-prompt-for-password)
|
|
|
|
|
(erc-select-read-args)))
|
|
|
|
|
(list :server "localhost"
|
|
|
|
|
:port 6667
|
2022-12-29 06:43:19 -08:00
|
|
|
:nick "nick"))))
|
2022-07-11 05:14:57 -07:00
|
|
|
|
2022-11-18 15:48:22 +01:00
|
|
|
(ert-info ("Address includes nick and password")
|
2022-12-29 06:43:19 -08:00
|
|
|
(should (equal (ert-simulate-keys "nick:sesame@localhost:6667\r\r"
|
2022-07-11 05:14:57 -07:00
|
|
|
(erc-select-read-args))
|
|
|
|
|
(list :server "localhost"
|
|
|
|
|
:port 6667
|
|
|
|
|
:nick "nick"
|
|
|
|
|
:password "sesame"))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("IPv6 address plain")
|
|
|
|
|
(should (equal (ert-simulate-keys "::1\r\r\r\r"
|
|
|
|
|
(erc-select-read-args))
|
|
|
|
|
(list :server "[::1]"
|
|
|
|
|
:port 6667
|
2022-12-29 06:43:19 -08:00
|
|
|
:nick (user-login-name)))))
|
2022-07-11 05:14:57 -07:00
|
|
|
|
|
|
|
|
(ert-info ("IPv6 address with port")
|
|
|
|
|
(should (equal (ert-simulate-keys "[::1]:6667\r\r\r"
|
|
|
|
|
(erc-select-read-args))
|
|
|
|
|
(list :server "[::1]"
|
|
|
|
|
:port 6667
|
2022-12-29 06:43:19 -08:00
|
|
|
:nick (user-login-name)))))
|
2022-07-11 05:14:57 -07:00
|
|
|
|
|
|
|
|
(ert-info ("IPv6 address includes nick")
|
|
|
|
|
(should (equal (ert-simulate-keys "nick@[::1]:6667\r\r"
|
|
|
|
|
(erc-select-read-args))
|
|
|
|
|
(list :server "[::1]"
|
|
|
|
|
:port 6667
|
2022-12-29 06:43:19 -08:00
|
|
|
:nick "nick"))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Extra args use URL nick by default")
|
|
|
|
|
(should (equal (ert-simulate-keys "nick:sesame@localhost:6667\r\r\r\r"
|
|
|
|
|
(let ((current-prefix-arg '(4)))
|
|
|
|
|
(erc-select-read-args)))
|
|
|
|
|
(list :server "localhost"
|
|
|
|
|
:port 6667
|
|
|
|
|
:nick "nick"
|
|
|
|
|
:user "nick"
|
|
|
|
|
:password "sesame"
|
|
|
|
|
:full-name "nick")))))
|
2022-07-11 05:14:57 -07:00
|
|
|
|
2022-07-11 05:14:57 -07:00
|
|
|
(ert-deftest erc-tls ()
|
2022-12-29 06:43:19 -08:00
|
|
|
(let (calls env)
|
2022-07-11 05:14:57 -07:00
|
|
|
(cl-letf (((symbol-function 'user-login-name)
|
|
|
|
|
(lambda (&optional _) "tester"))
|
|
|
|
|
((symbol-function 'erc-open)
|
2022-12-29 06:43:19 -08:00
|
|
|
(lambda (&rest r)
|
2022-12-29 06:43:19 -08:00
|
|
|
(push `((erc-join-buffer ,erc-join-buffer)
|
|
|
|
|
(erc-server-connect-function
|
2022-12-29 06:43:19 -08:00
|
|
|
,erc-server-connect-function))
|
|
|
|
|
env)
|
|
|
|
|
(push r calls))))
|
2022-07-11 05:14:57 -07:00
|
|
|
|
|
|
|
|
(ert-info ("Defaults")
|
|
|
|
|
(erc-tls)
|
|
|
|
|
(should (equal (pop calls)
|
|
|
|
|
'("irc.libera.chat" 6697 "tester" "unknown" t
|
2022-12-29 06:43:19 -08:00
|
|
|
nil nil nil nil nil "user" nil)))
|
|
|
|
|
(should (equal (pop env)
|
2022-12-29 06:43:19 -08:00
|
|
|
'((erc-join-buffer bury)
|
|
|
|
|
(erc-server-connect-function erc-open-tls-stream)))))
|
2022-07-11 05:14:57 -07:00
|
|
|
|
|
|
|
|
(ert-info ("Full")
|
|
|
|
|
(erc-tls :server "irc.gnu.org"
|
|
|
|
|
:port 7000
|
|
|
|
|
:user "bobo"
|
|
|
|
|
:nick "bob"
|
|
|
|
|
:full-name "Bob's Name"
|
|
|
|
|
:password "bob:changeme"
|
|
|
|
|
:client-certificate t
|
|
|
|
|
:id 'GNU.org)
|
|
|
|
|
(should (equal (pop calls)
|
|
|
|
|
'("irc.gnu.org" 7000 "bob" "Bob's Name" t
|
2022-12-29 06:43:19 -08:00
|
|
|
"bob:changeme" nil nil nil t "bobo" GNU.org)))
|
|
|
|
|
(should (equal (pop env)
|
2022-12-29 06:43:19 -08:00
|
|
|
'((erc-join-buffer bury)
|
|
|
|
|
(erc-server-connect-function erc-open-tls-stream)))))
|
2022-07-11 05:14:57 -07:00
|
|
|
|
|
|
|
|
;; Values are often nil when called by lisp code, which leads to
|
|
|
|
|
;; null params. This is why `erc-open' recomputes almost
|
|
|
|
|
;; everything.
|
|
|
|
|
(ert-info ("Fallback")
|
|
|
|
|
(let ((erc-nick "bob")
|
|
|
|
|
(erc-server "irc.gnu.org")
|
|
|
|
|
(erc-email-userid "bobo")
|
|
|
|
|
(erc-user-full-name "Bob's Name"))
|
|
|
|
|
(erc-tls :server nil
|
|
|
|
|
:port 7000
|
|
|
|
|
:nick nil
|
|
|
|
|
:password "bob:changeme"))
|
|
|
|
|
(should (equal (pop calls)
|
|
|
|
|
'(nil 7000 nil "Bob's Name" t
|
2022-12-29 06:43:19 -08:00
|
|
|
"bob:changeme" nil nil nil nil "bobo" nil)))
|
|
|
|
|
(should (equal (pop env)
|
2022-12-29 06:43:19 -08:00
|
|
|
'((erc-join-buffer bury)
|
|
|
|
|
(erc-server-connect-function erc-open-tls-stream)))))
|
2022-12-29 06:43:19 -08:00
|
|
|
|
|
|
|
|
(ert-info ("Interactive")
|
|
|
|
|
(ert-simulate-keys "nick:sesame@localhost:6667\r\r"
|
|
|
|
|
(call-interactively #'erc-tls))
|
|
|
|
|
(should (equal (pop calls)
|
|
|
|
|
'("localhost" 6667 "nick" "unknown" t "sesame"
|
|
|
|
|
nil nil nil nil "user" nil)))
|
|
|
|
|
(should (equal (pop env)
|
Extend erc-interactive-display to cover /JOINs
* lisp/erc/erc.el (erc-display): Mention that buffer-related display
options live in the customization group `erc-buffers'.
(erc-buffer-display, erc-join-buffer): Swap alias and aliased so that
the favored name, `erc-buffer-display', appears in the definition and
in the Customize menu. Also note related buffer-display options in
the doc string.
(erc-query-display, erc-interactive-display): Make the former an alias
of the latter, new in ERC 5.6, because their roles were functionally
redundant and thus confusing. Inherit the default value from
`erc-query-display' because users are more familiar with the pop-up
window behavior than a single-window replacement.
(erc-reconnect-display): Use preferred name for cross-referencing
fallback option `erc-buffer-display' in doc string, and explain how
/reconnect handling differs.
(erc--setup-buffer-hook): Add new internal hook for modules that
operate on windows and frames, such as erc-speedbar and
erc-status-sidebar.
(erc-open): Run `erc--setup-buffer-hook' after `erc-setup-buffer' so
hook members know their code isn't tied to `erc-setup-buffer' itself,
which may be used in other contexts, but rather to a new ERC buffer on
which some display-related action has just been performed.
(erc--called-as-input-p): New variable for "slash" commands, like
`erc-cmd-FOO', to detect whether they're being called "interactively"
as a result of input given at ERC's prompt.
(erc-process-input-line): Bind `erc--called-as-input-p' when running
slash commands.
(erc-cmd-JOIN): When called interactively, schedule a callback to wrap
the response handler and control how new buffers are thus displayed.
(erc-cmd-QUERY): Use preferred alias for `erc-query-display'.
* test/lisp/erc/erc-scenarios-base-buffer-display.el:
(erc-scenarios-base-buffer-display--interactive-default): New test.
* test/lisp/erc/erc-tests.el (erc-process-input-line,
erc-select-read-args, erc-tls, erc--interactive): Change expected
default value of `erc-interactive-display' from `buffer' to
`window'. (Bug#62833)
2023-04-10 17:58:05 -07:00
|
|
|
'((erc-join-buffer window)
|
2022-12-29 06:43:19 -08:00
|
|
|
(erc-server-connect-function erc-open-tls-stream)))))
|
2022-12-29 06:43:19 -08:00
|
|
|
|
|
|
|
|
(ert-info ("Custom connect function")
|
|
|
|
|
(let ((erc-server-connect-function 'my-connect-func))
|
|
|
|
|
(erc-tls)
|
|
|
|
|
(should (equal (pop calls)
|
|
|
|
|
'("irc.libera.chat" 6697 "tester" "unknown" t
|
|
|
|
|
nil nil nil nil nil "user" nil)))
|
|
|
|
|
(should (equal (pop env)
|
2022-12-29 06:43:19 -08:00
|
|
|
'((erc-join-buffer bury)
|
|
|
|
|
(erc-server-connect-function my-connect-func))))))
|
2022-12-29 06:43:19 -08:00
|
|
|
|
|
|
|
|
(ert-info ("Advised default function overlooked") ; intentional
|
|
|
|
|
(advice-add 'erc-server-connect-function :around #'ignore
|
|
|
|
|
'((name . erc-tests--erc-tls)))
|
|
|
|
|
(erc-tls)
|
|
|
|
|
(should (equal (pop calls)
|
|
|
|
|
'("irc.libera.chat" 6697 "tester" "unknown" t
|
|
|
|
|
nil nil nil nil nil "user" nil)))
|
|
|
|
|
(should (equal (pop env)
|
2022-12-29 06:43:19 -08:00
|
|
|
'((erc-join-buffer bury)
|
|
|
|
|
(erc-server-connect-function erc-open-tls-stream))))
|
2022-12-29 06:43:19 -08:00
|
|
|
(advice-remove 'erc-server-connect-function 'erc-tests--erc-tls))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Advised non-default function honored")
|
|
|
|
|
(let ((f (lambda (&rest r) (ignore r))))
|
|
|
|
|
(cl-letf (((symbol-value 'erc-server-connect-function) f))
|
|
|
|
|
(advice-add 'erc-server-connect-function :around #'ignore
|
|
|
|
|
'((name . erc-tests--erc-tls)))
|
|
|
|
|
(erc-tls)
|
|
|
|
|
(should (equal (pop calls)
|
|
|
|
|
'("irc.libera.chat" 6697 "tester" "unknown" t
|
|
|
|
|
nil nil nil nil nil "user" nil)))
|
2022-12-29 06:43:19 -08:00
|
|
|
(should (equal (pop env) `((erc-join-buffer bury)
|
|
|
|
|
(erc-server-connect-function ,f))))
|
2022-12-29 06:43:19 -08:00
|
|
|
(advice-remove 'erc-server-connect-function
|
|
|
|
|
'erc-tests--erc-tls)))))))
|
|
|
|
|
|
|
|
|
|
;; See `erc-select-read-args' above for argument parsing.
|
|
|
|
|
;; This only tests the "hidden" arguments.
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc--interactive ()
|
|
|
|
|
(let (calls env)
|
|
|
|
|
(cl-letf (((symbol-function 'user-login-name)
|
|
|
|
|
(lambda (&optional _) "tester"))
|
|
|
|
|
((symbol-function 'erc-open)
|
|
|
|
|
(lambda (&rest r)
|
2022-12-29 06:43:19 -08:00
|
|
|
(push `((erc-join-buffer ,erc-join-buffer)
|
|
|
|
|
(erc-server-connect-function
|
2022-12-29 06:43:19 -08:00
|
|
|
,erc-server-connect-function))
|
|
|
|
|
env)
|
|
|
|
|
(push r calls))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Default click-through accept TLS upgrade")
|
|
|
|
|
(ert-simulate-keys "\r\r\r\ry\r"
|
|
|
|
|
(call-interactively #'erc))
|
|
|
|
|
(should (equal (pop calls)
|
|
|
|
|
'("irc.libera.chat" 6697 "tester" "unknown" t nil
|
|
|
|
|
nil nil nil nil "user" nil)))
|
|
|
|
|
(should (equal (pop env)
|
Extend erc-interactive-display to cover /JOINs
* lisp/erc/erc.el (erc-display): Mention that buffer-related display
options live in the customization group `erc-buffers'.
(erc-buffer-display, erc-join-buffer): Swap alias and aliased so that
the favored name, `erc-buffer-display', appears in the definition and
in the Customize menu. Also note related buffer-display options in
the doc string.
(erc-query-display, erc-interactive-display): Make the former an alias
of the latter, new in ERC 5.6, because their roles were functionally
redundant and thus confusing. Inherit the default value from
`erc-query-display' because users are more familiar with the pop-up
window behavior than a single-window replacement.
(erc-reconnect-display): Use preferred name for cross-referencing
fallback option `erc-buffer-display' in doc string, and explain how
/reconnect handling differs.
(erc--setup-buffer-hook): Add new internal hook for modules that
operate on windows and frames, such as erc-speedbar and
erc-status-sidebar.
(erc-open): Run `erc--setup-buffer-hook' after `erc-setup-buffer' so
hook members know their code isn't tied to `erc-setup-buffer' itself,
which may be used in other contexts, but rather to a new ERC buffer on
which some display-related action has just been performed.
(erc--called-as-input-p): New variable for "slash" commands, like
`erc-cmd-FOO', to detect whether they're being called "interactively"
as a result of input given at ERC's prompt.
(erc-process-input-line): Bind `erc--called-as-input-p' when running
slash commands.
(erc-cmd-JOIN): When called interactively, schedule a callback to wrap
the response handler and control how new buffers are thus displayed.
(erc-cmd-QUERY): Use preferred alias for `erc-query-display'.
* test/lisp/erc/erc-scenarios-base-buffer-display.el:
(erc-scenarios-base-buffer-display--interactive-default): New test.
* test/lisp/erc/erc-tests.el (erc-process-input-line,
erc-select-read-args, erc-tls, erc--interactive): Change expected
default value of `erc-interactive-display' from `buffer' to
`window'. (Bug#62833)
2023-04-10 17:58:05 -07:00
|
|
|
'((erc-join-buffer window) (erc-server-connect-function
|
2022-12-29 06:43:19 -08:00
|
|
|
erc-open-tls-stream)))))
|
2022-12-29 06:43:19 -08:00
|
|
|
|
|
|
|
|
(ert-info ("Nick supplied, decline TLS upgrade")
|
|
|
|
|
(ert-simulate-keys "\r\rdummy\r\rn\r"
|
|
|
|
|
(call-interactively #'erc))
|
|
|
|
|
(should (equal (pop calls)
|
|
|
|
|
'("irc.libera.chat" 6667 "dummy" "unknown" t nil
|
|
|
|
|
nil nil nil nil "user" nil)))
|
|
|
|
|
(should (equal (pop env)
|
Extend erc-interactive-display to cover /JOINs
* lisp/erc/erc.el (erc-display): Mention that buffer-related display
options live in the customization group `erc-buffers'.
(erc-buffer-display, erc-join-buffer): Swap alias and aliased so that
the favored name, `erc-buffer-display', appears in the definition and
in the Customize menu. Also note related buffer-display options in
the doc string.
(erc-query-display, erc-interactive-display): Make the former an alias
of the latter, new in ERC 5.6, because their roles were functionally
redundant and thus confusing. Inherit the default value from
`erc-query-display' because users are more familiar with the pop-up
window behavior than a single-window replacement.
(erc-reconnect-display): Use preferred name for cross-referencing
fallback option `erc-buffer-display' in doc string, and explain how
/reconnect handling differs.
(erc--setup-buffer-hook): Add new internal hook for modules that
operate on windows and frames, such as erc-speedbar and
erc-status-sidebar.
(erc-open): Run `erc--setup-buffer-hook' after `erc-setup-buffer' so
hook members know their code isn't tied to `erc-setup-buffer' itself,
which may be used in other contexts, but rather to a new ERC buffer on
which some display-related action has just been performed.
(erc--called-as-input-p): New variable for "slash" commands, like
`erc-cmd-FOO', to detect whether they're being called "interactively"
as a result of input given at ERC's prompt.
(erc-process-input-line): Bind `erc--called-as-input-p' when running
slash commands.
(erc-cmd-JOIN): When called interactively, schedule a callback to wrap
the response handler and control how new buffers are thus displayed.
(erc-cmd-QUERY): Use preferred alias for `erc-query-display'.
* test/lisp/erc/erc-scenarios-base-buffer-display.el:
(erc-scenarios-base-buffer-display--interactive-default): New test.
* test/lisp/erc/erc-tests.el (erc-process-input-line,
erc-select-read-args, erc-tls, erc--interactive): Change expected
default value of `erc-interactive-display' from `buffer' to
`window'. (Bug#62833)
2023-04-10 17:58:05 -07:00
|
|
|
'((erc-join-buffer window)
|
2022-12-29 06:43:19 -08:00
|
|
|
(erc-server-connect-function
|
|
|
|
|
erc-open-network-stream))))))))
|
2022-07-11 05:14:57 -07:00
|
|
|
|
2022-07-11 05:14:57 -07:00
|
|
|
(defun erc-tests--make-server-buf (name)
|
|
|
|
|
(with-current-buffer (get-buffer-create name)
|
|
|
|
|
(erc-mode)
|
|
|
|
|
(setq erc-server-process (start-process "sleep" (current-buffer)
|
|
|
|
|
"sleep" "1")
|
|
|
|
|
erc-session-server (concat "irc." name ".org")
|
|
|
|
|
erc-session-port 6667
|
|
|
|
|
erc-network (intern name))
|
|
|
|
|
(set-process-query-on-exit-flag erc-server-process nil)
|
|
|
|
|
(current-buffer)))
|
|
|
|
|
|
|
|
|
|
(defun erc-tests--make-client-buf (server name)
|
|
|
|
|
(unless (bufferp server)
|
|
|
|
|
(setq server (get-buffer server)))
|
|
|
|
|
(with-current-buffer (get-buffer-create name)
|
|
|
|
|
(erc-mode)
|
|
|
|
|
(setq erc--target (erc--target-from-string name))
|
|
|
|
|
(dolist (v '(erc-server-process
|
|
|
|
|
erc-session-server
|
|
|
|
|
erc-session-port
|
|
|
|
|
erc-network))
|
|
|
|
|
(set v (buffer-local-value v server)))
|
|
|
|
|
(current-buffer)))
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc-handle-irc-url ()
|
|
|
|
|
(let* (calls
|
|
|
|
|
rvbuf
|
|
|
|
|
erc-networks-alist
|
|
|
|
|
erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook
|
|
|
|
|
(erc-url-connect-function
|
|
|
|
|
(lambda (&rest r)
|
|
|
|
|
(push r calls)
|
|
|
|
|
(if (functionp rvbuf) (funcall rvbuf) rvbuf))))
|
|
|
|
|
|
|
|
|
|
(cl-letf (((symbol-function 'erc-cmd-JOIN)
|
|
|
|
|
(lambda (&rest r) (push r calls))))
|
|
|
|
|
|
|
|
|
|
(with-current-buffer (erc-tests--make-server-buf "foonet")
|
|
|
|
|
(setq rvbuf (current-buffer)))
|
|
|
|
|
(erc-tests--make-server-buf "barnet")
|
|
|
|
|
(erc-tests--make-server-buf "baznet")
|
|
|
|
|
|
|
|
|
|
(ert-info ("Unknown network")
|
|
|
|
|
(erc-handle-irc-url "irc.foonet.org" 6667 "#chan" nil nil "irc")
|
|
|
|
|
(should (equal '("#chan" nil) (pop calls)))
|
|
|
|
|
(should-not calls))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Unknown network, no port")
|
|
|
|
|
(erc-handle-irc-url "irc.foonet.org" nil "#chan" nil nil "irc")
|
|
|
|
|
(should (equal '("#chan" nil) (pop calls)))
|
|
|
|
|
(should-not calls))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Known network, no port")
|
|
|
|
|
(setq erc-networks-alist '((foonet "irc.foonet.org")))
|
|
|
|
|
(erc-handle-irc-url "irc.foonet.org" nil "#chan" nil nil "irc")
|
|
|
|
|
(should (equal '("#chan" nil) (pop calls)))
|
|
|
|
|
(should-not calls))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Known network, different port")
|
|
|
|
|
(erc-handle-irc-url "irc.foonet.org" 6697 "#chan" nil nil "irc")
|
|
|
|
|
(should (equal '("#chan" nil) (pop calls)))
|
|
|
|
|
(should-not calls))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Known network, existing chan with key")
|
|
|
|
|
(erc-tests--make-client-buf "foonet" "#chan")
|
|
|
|
|
(erc-handle-irc-url "irc.foonet.org" nil "#chan?sec" nil nil "irc")
|
|
|
|
|
(should (equal '("#chan" "sec") (pop calls)))
|
|
|
|
|
(should-not calls))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Unknown network, connect, no chan")
|
|
|
|
|
(erc-handle-irc-url "irc.gnu.org" nil nil nil nil "irc")
|
|
|
|
|
(should (equal '("irc" :server "irc.gnu.org") (pop calls)))
|
|
|
|
|
(should-not calls))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Unknown network, connect, chan")
|
|
|
|
|
(with-current-buffer "foonet"
|
|
|
|
|
(should-not (local-variable-p 'erc-after-connect)))
|
|
|
|
|
(setq rvbuf (lambda () (erc-tests--make-server-buf "gnu")))
|
|
|
|
|
(erc-handle-irc-url "irc.gnu.org" nil "#spam" nil nil "irc")
|
|
|
|
|
(should (equal '("irc" :server "irc.gnu.org") (pop calls)))
|
|
|
|
|
(should-not calls)
|
|
|
|
|
(with-current-buffer "gnu"
|
|
|
|
|
(should (local-variable-p 'erc-after-connect))
|
|
|
|
|
(funcall (car erc-after-connect))
|
|
|
|
|
(should (equal '("#spam" nil) (pop calls)))
|
|
|
|
|
(should-not (local-variable-p 'erc-after-connect)))
|
|
|
|
|
(should-not calls))))
|
|
|
|
|
|
|
|
|
|
(when noninteractive
|
|
|
|
|
(kill-buffer "foonet")
|
|
|
|
|
(kill-buffer "barnet")
|
|
|
|
|
(kill-buffer "baznet")
|
|
|
|
|
(kill-buffer "#chan")))
|
|
|
|
|
|
2023-02-04 06:24:59 -08:00
|
|
|
(defconst erc-tests--modules
|
|
|
|
|
'( autoaway autojoin button capab-identify completion dcc fill identd
|
2023-01-19 21:07:27 -08:00
|
|
|
imenu irccontrols keep-place list log match menu move-to-prompt netsplit
|
2023-02-04 06:24:59 -08:00
|
|
|
networks noncommands notifications notify page readonly
|
|
|
|
|
replace ring sasl scrolltobottom services smiley sound
|
|
|
|
|
spelling stamp track truncate unmorse xdcc))
|
|
|
|
|
|
|
|
|
|
;; Ensure that `:initialize' doesn't change the ordering of the
|
|
|
|
|
;; members because otherwise the widget's state is "edited".
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc-modules--initialize ()
|
|
|
|
|
;; This is `custom--standard-value' from Emacs 28.
|
|
|
|
|
(should (equal (eval (car (get 'erc-modules 'standard-value)) t)
|
|
|
|
|
erc-modules)))
|
|
|
|
|
|
|
|
|
|
;; Ensure the `:initialize' function for `erc-modules' successfully
|
|
|
|
|
;; tags all built-in modules with the internal property `erc--module'.
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc-modules--internal-property ()
|
|
|
|
|
(let (ours)
|
|
|
|
|
(mapatoms (lambda (s)
|
|
|
|
|
(when-let ((v (get s 'erc--module))
|
|
|
|
|
((eq v s)))
|
|
|
|
|
(push s ours))))
|
|
|
|
|
(should (equal (sort ours #'string-lessp) erc-tests--modules))))
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc--normalize-module-symbol ()
|
|
|
|
|
(dolist (mod erc-tests--modules)
|
|
|
|
|
(should (eq (erc--normalize-module-symbol mod) mod)))
|
|
|
|
|
(should (eq (erc--normalize-module-symbol 'pcomplete) 'completion))
|
|
|
|
|
(should (eq (erc--normalize-module-symbol 'Completion) 'completion))
|
|
|
|
|
(should (eq (erc--normalize-module-symbol 'ctcp-page) 'page))
|
|
|
|
|
(should (eq (erc--normalize-module-symbol 'ctcp-sound) 'sound))
|
|
|
|
|
(should (eq (erc--normalize-module-symbol 'timestamp) 'stamp))
|
|
|
|
|
(should (eq (erc--normalize-module-symbol 'nickserv) 'services)))
|
|
|
|
|
|
2023-06-05 03:49:44 -07:00
|
|
|
(defun erc-tests--assert-printed-in-subprocess (code expected)
|
2023-02-04 06:24:59 -08:00
|
|
|
(let* ((package (if-let* ((found (getenv "ERC_PACKAGE_NAME"))
|
|
|
|
|
((string-prefix-p "erc-" found)))
|
|
|
|
|
(intern found)
|
|
|
|
|
'erc))
|
2023-06-05 03:49:44 -07:00
|
|
|
;; This is for integrations testing with managed configs
|
|
|
|
|
;; ("starter kits") that use a different package manager.
|
|
|
|
|
(init (and-let* ((found (getenv "ERC_TESTS_INIT"))
|
|
|
|
|
(files (split-string found ","))
|
|
|
|
|
((seq-every-p #'file-exists-p files)))
|
|
|
|
|
(mapcan (lambda (f) (list "-l" f)) files)))
|
2023-02-04 06:24:59 -08:00
|
|
|
(prog
|
2023-06-05 03:49:44 -07:00
|
|
|
`(progn
|
|
|
|
|
,@(and (not init) (featurep 'compat)
|
|
|
|
|
`((require 'package)
|
|
|
|
|
(let ((package-load-list '((compat t) (,package t))))
|
|
|
|
|
(package-initialize))))
|
|
|
|
|
(require 'erc)
|
|
|
|
|
(cl-assert (equal erc-version ,erc-version) t)
|
|
|
|
|
,code))
|
|
|
|
|
(proc (apply #'start-process
|
|
|
|
|
(symbol-name (ert-test-name (ert-running-test)))
|
|
|
|
|
(current-buffer)
|
|
|
|
|
(concat invocation-directory invocation-name)
|
|
|
|
|
`("-batch" ,@(or init '("-Q"))
|
|
|
|
|
"-eval" ,(format "%S" prog)))))
|
2023-02-04 06:24:59 -08:00
|
|
|
(set-process-query-on-exit-flag proc t)
|
|
|
|
|
(while (accept-process-output proc 10))
|
|
|
|
|
(goto-char (point-min))
|
2023-06-05 03:49:44 -07:00
|
|
|
(unless (equal (read (current-buffer)) expected)
|
|
|
|
|
(message "Exepcted: %S\nGot: %s" expected (buffer-string))
|
|
|
|
|
(ert-fail "Mismatch"))))
|
|
|
|
|
|
|
|
|
|
;; Worrying about which library a module comes from is mostly not
|
|
|
|
|
;; worth the hassle so long as ERC can find its minor mode. However,
|
|
|
|
|
;; bugs involving multiple modules living in the same library may slip
|
|
|
|
|
;; by because a module's loading problems may remain hidden on account
|
|
|
|
|
;; of its place in the default ordering.
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc--find-mode ()
|
|
|
|
|
(erc-tests--assert-printed-in-subprocess
|
|
|
|
|
`(let ((mods (mapcar #'cadddr (cdddr (get 'erc-modules 'custom-type))))
|
|
|
|
|
moded)
|
|
|
|
|
(setq mods (sort mods (lambda (a b) (if (zerop (random 2)) a b))))
|
|
|
|
|
(dolist (mod mods)
|
|
|
|
|
(unless (keywordp mod)
|
|
|
|
|
(push (if-let ((mode (erc--find-mode mod))) mod (list :missing mod))
|
|
|
|
|
moded)))
|
|
|
|
|
(message "%S"
|
|
|
|
|
(sort moded (lambda (a b)
|
|
|
|
|
(string< (symbol-name a) (symbol-name b))))))
|
|
|
|
|
erc-tests--modules))
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc--essential-hook-ordering ()
|
|
|
|
|
(erc-tests--assert-printed-in-subprocess
|
|
|
|
|
'(progn
|
|
|
|
|
(erc-update-modules)
|
|
|
|
|
(message "%S"
|
|
|
|
|
(list :erc-insert-modify-hook erc-insert-modify-hook
|
|
|
|
|
:erc-send-modify-hook erc-send-modify-hook)))
|
|
|
|
|
|
|
|
|
|
'( :erc-insert-modify-hook (erc-controls-highlight ; 0
|
|
|
|
|
erc-button-add-buttons ; 30
|
|
|
|
|
erc-fill ; 40
|
2023-07-02 20:57:46 -07:00
|
|
|
erc-match-message ; 50
|
|
|
|
|
erc-add-timestamp) ; 60
|
2023-06-05 03:49:44 -07:00
|
|
|
|
|
|
|
|
:erc-send-modify-hook ( erc-controls-highlight ; 0
|
|
|
|
|
erc-button-add-buttons ; 30
|
|
|
|
|
erc-fill ; 40
|
|
|
|
|
erc-add-timestamp)))) ; 50
|
2023-02-04 06:24:59 -08:00
|
|
|
|
2021-07-12 03:44:28 -07:00
|
|
|
(ert-deftest erc-migrate-modules ()
|
|
|
|
|
(should (equal (erc-migrate-modules '(autojoin timestamp button))
|
|
|
|
|
'(autojoin stamp button)))
|
|
|
|
|
;; Default unchanged
|
|
|
|
|
(should (equal (erc-migrate-modules erc-modules) erc-modules)))
|
|
|
|
|
|
2023-01-14 19:05:59 -08:00
|
|
|
(ert-deftest erc--find-group ()
|
|
|
|
|
;; These two are loaded by default
|
|
|
|
|
(should (eq (erc--find-group 'keep-place nil) 'erc))
|
|
|
|
|
(should (eq (erc--find-group 'networks nil) 'erc-networks))
|
|
|
|
|
;; These are fake
|
|
|
|
|
(cl-letf (((get 'erc-bar 'group-documentation) "")
|
|
|
|
|
((get 'baz 'erc-group) 'erc-foo))
|
|
|
|
|
(should (eq (erc--find-group 'foo 'bar) 'erc-bar))
|
|
|
|
|
(should (eq (erc--find-group 'bar 'foo) 'erc-bar))
|
|
|
|
|
(should (eq (erc--find-group 'bar nil) 'erc-bar))
|
|
|
|
|
(should (eq (erc--find-group 'foo nil) 'erc))
|
|
|
|
|
(should (eq (erc--find-group 'fake 'baz) 'erc-foo))))
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc--find-group--real ()
|
|
|
|
|
:tags '(:unstable)
|
|
|
|
|
(require 'erc-services)
|
|
|
|
|
(require 'erc-stamp)
|
|
|
|
|
(require 'erc-sound)
|
|
|
|
|
(require 'erc-page)
|
|
|
|
|
(require 'erc-join)
|
|
|
|
|
(require 'erc-capab)
|
|
|
|
|
(require 'erc-pcomplete)
|
|
|
|
|
(should (eq (erc--find-group 'services 'nickserv) 'erc-services))
|
|
|
|
|
(should (eq (erc--find-group 'stamp 'timestamp) 'erc-stamp))
|
|
|
|
|
(should (eq (erc--find-group 'sound 'ctcp-sound) 'erc-sound))
|
|
|
|
|
(should (eq (erc--find-group 'page 'ctcp-page) 'erc-page))
|
|
|
|
|
(should (eq (erc--find-group 'autojoin) 'erc-autojoin))
|
|
|
|
|
(should (eq (erc--find-group 'pcomplete 'Completion) 'erc-pcomplete))
|
|
|
|
|
(should (eq (erc--find-group 'capab-identify) 'erc-capab))
|
|
|
|
|
;; No group specified.
|
|
|
|
|
(should (eq (erc--find-group 'smiley nil) 'erc))
|
|
|
|
|
(should (eq (erc--find-group 'unmorse nil) 'erc)))
|
|
|
|
|
|
2021-07-12 03:44:28 -07:00
|
|
|
(ert-deftest erc--update-modules ()
|
|
|
|
|
(let (calls
|
|
|
|
|
erc-modules
|
|
|
|
|
erc-kill-channel-hook erc-kill-server-hook erc-kill-buffer-hook)
|
2023-02-04 06:24:59 -08:00
|
|
|
|
|
|
|
|
;; This `lbaz' module is unknown, so ERC looks for it via the
|
|
|
|
|
;; symbol proerty `erc--feature' and, failing that, by
|
|
|
|
|
;; `require'ing its "erc-" prefixed symbol.
|
|
|
|
|
(should-not (intern-soft "erc-lbaz-mode"))
|
|
|
|
|
|
2021-07-12 03:44:28 -07:00
|
|
|
(cl-letf (((symbol-function 'require)
|
2023-02-04 06:24:59 -08:00
|
|
|
(lambda (s &rest _)
|
|
|
|
|
(when (eq s 'erc--lbaz-feature)
|
|
|
|
|
(fset (intern "erc-lbaz-mode") ; local module
|
|
|
|
|
(lambda (n) (push (cons 'lbaz n) calls))))
|
|
|
|
|
(push s calls)))
|
2021-07-12 03:44:28 -07:00
|
|
|
|
|
|
|
|
;; Local modules
|
2023-02-04 06:24:59 -08:00
|
|
|
((symbol-function 'erc-lbar-mode)
|
|
|
|
|
(lambda (n) (push (cons 'lbar n) calls)))
|
|
|
|
|
((get 'lbaz 'erc--feature) 'erc--lbaz-feature)
|
2021-07-12 03:44:28 -07:00
|
|
|
|
|
|
|
|
;; Global modules
|
2023-02-04 06:24:59 -08:00
|
|
|
((symbol-function 'erc-gfoo-mode)
|
|
|
|
|
(lambda (n) (push (cons 'gfoo n) calls)))
|
|
|
|
|
((get 'erc-gfoo-mode 'standard-value) 'ignore)
|
2021-07-12 03:44:28 -07:00
|
|
|
((symbol-function 'erc-autojoin-mode)
|
|
|
|
|
(lambda (n) (push (cons 'autojoin n) calls)))
|
|
|
|
|
((get 'erc-autojoin-mode 'standard-value) 'ignore)
|
|
|
|
|
((symbol-function 'erc-networks-mode)
|
|
|
|
|
(lambda (n) (push (cons 'networks n) calls)))
|
|
|
|
|
((get 'erc-networks-mode 'standard-value) 'ignore)
|
|
|
|
|
((symbol-function 'erc-completion-mode)
|
|
|
|
|
(lambda (n) (push (cons 'completion n) calls)))
|
|
|
|
|
((get 'erc-completion-mode 'standard-value) 'ignore))
|
|
|
|
|
|
2023-02-04 06:24:59 -08:00
|
|
|
(ert-info ("Unknown module")
|
|
|
|
|
(setq erc-modules '(lfoo))
|
|
|
|
|
(should-error (erc--update-modules))
|
|
|
|
|
(should (equal (pop calls) 'erc-lfoo))
|
|
|
|
|
(should-not calls))
|
|
|
|
|
|
2021-07-12 03:44:28 -07:00
|
|
|
(ert-info ("Local modules")
|
2023-02-04 06:24:59 -08:00
|
|
|
(setq erc-modules '(gfoo lbar lbaz))
|
|
|
|
|
;; Don't expose the mode here
|
|
|
|
|
(should (equal (mapcar #'symbol-name (erc--update-modules))
|
|
|
|
|
'("erc-lbaz-mode" "erc-lbar-mode")))
|
|
|
|
|
;; Lbaz required because unknown.
|
|
|
|
|
(should (equal (nreverse calls) '((gfoo . 1) erc--lbaz-feature)))
|
|
|
|
|
(fmakunbound (intern "erc-lbaz-mode"))
|
|
|
|
|
(unintern (intern "erc-lbaz-mode") obarray)
|
2021-07-12 03:44:28 -07:00
|
|
|
(setq calls nil))
|
|
|
|
|
|
2023-02-04 06:24:59 -08:00
|
|
|
(ert-info ("Global modules") ; `pcomplete' resolved to `completion'
|
|
|
|
|
(setq erc-modules '(pcomplete autojoin networks))
|
2021-07-12 03:44:28 -07:00
|
|
|
(should-not (erc--update-modules)) ; no locals
|
2023-02-04 06:24:59 -08:00
|
|
|
(should (equal (nreverse calls)
|
|
|
|
|
'((completion . 1) (autojoin . 1) (networks . 1))))
|
2021-07-12 03:44:28 -07:00
|
|
|
(setq calls nil)))))
|
|
|
|
|
|
|
|
|
|
(ert-deftest erc--merge-local-modes ()
|
2023-01-13 06:03:15 -08:00
|
|
|
(cl-letf (((get 'erc-b-mode 'erc-module) 'b)
|
|
|
|
|
((get 'erc-c-mode 'erc-module) 'c)
|
|
|
|
|
((get 'erc-d-mode 'erc-module) 'd)
|
|
|
|
|
((get 'erc-e-mode 'erc-module) 'e))
|
|
|
|
|
|
|
|
|
|
(ert-info ("No existing modes")
|
|
|
|
|
(let ((old '((a) (b . t)))
|
|
|
|
|
(new '(erc-c-mode erc-d-mode)))
|
|
|
|
|
(should (equal (erc--merge-local-modes new old)
|
|
|
|
|
'((erc-c-mode erc-d-mode))))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Active existing added, inactive existing removed, deduped")
|
|
|
|
|
(let ((old '((a) (erc-b-mode) (c . t) (erc-d-mode . t) (erc-e-mode . t)))
|
|
|
|
|
(new '(erc-b-mode erc-d-mode)))
|
|
|
|
|
(should (equal (erc--merge-local-modes new old)
|
|
|
|
|
'((erc-d-mode erc-e-mode) . (erc-b-mode))))))
|
|
|
|
|
|
|
|
|
|
(ert-info ("Non-module erc-prefixed mode ignored")
|
|
|
|
|
(let ((old '((erc-b-mode) (erc-f-mode . t) (erc-d-mode . t)))
|
|
|
|
|
(new '(erc-b-mode)))
|
|
|
|
|
(should (equal (erc--merge-local-modes new old)
|
|
|
|
|
'((erc-d-mode) . (erc-b-mode))))))))
|
2021-07-12 03:44:28 -07:00
|
|
|
|
|
|
|
|
(ert-deftest define-erc-module--global ()
|
|
|
|
|
(let ((global-module '(define-erc-module mname malias
|
2023-01-16 20:18:32 -08:00
|
|
|
"Some docstring."
|
2021-07-12 03:44:28 -07:00
|
|
|
((ignore a) (ignore b))
|
|
|
|
|
((ignore c) (ignore d)))))
|
|
|
|
|
|
2023-01-14 19:08:11 -08:00
|
|
|
(should (equal (cl-letf (((symbol-function
|
|
|
|
|
'erc--prepare-custom-module-type)
|
|
|
|
|
#'symbol-name))
|
|
|
|
|
(macroexpand global-module))
|
2021-07-12 03:44:28 -07:00
|
|
|
`(progn
|
|
|
|
|
|
|
|
|
|
(define-minor-mode erc-mname-mode
|
|
|
|
|
"Toggle ERC mname mode.
|
2023-01-16 20:18:32 -08:00
|
|
|
With a prefix argument ARG, enable mname if ARG is positive, and
|
|
|
|
|
disable it otherwise. If called from Lisp, enable the mode if
|
|
|
|
|
ARG is omitted or nil.
|
|
|
|
|
|
|
|
|
|
Some docstring."
|
2021-07-12 03:44:28 -07:00
|
|
|
:global t
|
2023-01-14 19:05:59 -08:00
|
|
|
:group (erc--find-group 'mname 'malias)
|
2023-04-14 00:07:31 -07:00
|
|
|
:require 'nil
|
2023-01-14 19:08:11 -08:00
|
|
|
:type "mname"
|
2021-07-12 03:44:28 -07:00
|
|
|
(if erc-mname-mode
|
|
|
|
|
(erc-mname-enable)
|
|
|
|
|
(erc-mname-disable)))
|
|
|
|
|
|
|
|
|
|
(defun erc-mname-enable ()
|
|
|
|
|
"Enable ERC mname mode."
|
|
|
|
|
(interactive)
|
2023-01-14 19:08:11 -08:00
|
|
|
(unless (or erc--inside-mode-toggle-p
|
|
|
|
|
(memq 'mname erc-modules))
|
|
|
|
|
(let ((erc--inside-mode-toggle-p t))
|
|
|
|
|
(erc--favor-changed-reverted-modules-state
|
|
|
|
|
'mname #'cons)))
|
2021-07-12 03:44:28 -07:00
|
|
|
(setq erc-mname-mode t)
|
|
|
|
|
(ignore a) (ignore b))
|
|
|
|
|
|
|
|
|
|
(defun erc-mname-disable ()
|
|
|
|
|
"Disable ERC mname mode."
|
|
|
|
|
(interactive)
|
2023-01-14 19:08:11 -08:00
|
|
|
(unless (or erc--inside-mode-toggle-p
|
|
|
|
|
(not (memq 'mname erc-modules)))
|
|
|
|
|
(let ((erc--inside-mode-toggle-p t))
|
|
|
|
|
(erc--favor-changed-reverted-modules-state
|
|
|
|
|
'mname #'delq)))
|
2021-07-12 03:44:28 -07:00
|
|
|
(setq erc-mname-mode nil)
|
|
|
|
|
(ignore c) (ignore d))
|
|
|
|
|
|
|
|
|
|
(defalias 'erc-malias-mode #'erc-mname-mode)
|
2023-01-13 06:03:15 -08:00
|
|
|
(put 'erc-malias-mode 'erc-module 'mname)
|
2021-07-12 03:44:28 -07:00
|
|
|
|
2023-01-13 06:03:15 -08:00
|
|
|
(put 'erc-mname-mode 'erc-module 'mname)
|
2021-07-12 03:44:28 -07:00
|
|
|
(put 'erc-mname-mode 'definition-name 'mname)
|
|
|
|
|
(put 'erc-mname-enable 'definition-name 'mname)
|
|
|
|
|
(put 'erc-mname-disable 'definition-name 'mname))))))
|
|
|
|
|
|
|
|
|
|
(ert-deftest define-erc-module--local ()
|
2023-01-13 06:03:15 -08:00
|
|
|
(let* ((global-module '(define-erc-module mname nil ; no alias
|
2023-01-16 20:18:32 -08:00
|
|
|
"Some docstring."
|
2021-07-12 03:44:28 -07:00
|
|
|
((ignore a) (ignore b))
|
|
|
|
|
((ignore c) (ignore d))
|
|
|
|
|
'local))
|
|
|
|
|
(got (macroexpand global-module))
|
|
|
|
|
(arg-en (cadr (nth 2 (nth 2 got))))
|
|
|
|
|
(arg-dis (cadr (nth 2 (nth 3 got)))))
|
|
|
|
|
|
|
|
|
|
(should (equal got
|
|
|
|
|
`(progn
|
|
|
|
|
(define-minor-mode erc-mname-mode
|
|
|
|
|
"Toggle ERC mname mode.
|
2023-01-16 20:18:32 -08:00
|
|
|
With a prefix argument ARG, enable mname if ARG is positive, and
|
|
|
|
|
disable it otherwise. If called from Lisp, enable the mode if
|
|
|
|
|
ARG is omitted or nil.
|
|
|
|
|
|
|
|
|
|
Some docstring."
|
2021-07-12 03:44:28 -07:00
|
|
|
:global nil
|
2023-01-14 19:05:59 -08:00
|
|
|
:group (erc--find-group 'mname nil)
|
2021-07-12 03:44:28 -07:00
|
|
|
(if erc-mname-mode
|
|
|
|
|
(erc-mname-enable)
|
|
|
|
|
(erc-mname-disable)))
|
|
|
|
|
|
|
|
|
|
(defun erc-mname-enable (&optional ,arg-en)
|
|
|
|
|
"Enable ERC mname mode.
|
2023-01-16 20:18:32 -08:00
|
|
|
When called interactively, do so in all buffers for the current
|
|
|
|
|
connection."
|
2021-07-12 03:44:28 -07:00
|
|
|
(interactive "p")
|
|
|
|
|
(when (derived-mode-p 'erc-mode)
|
|
|
|
|
(if ,arg-en
|
|
|
|
|
(erc-with-all-buffers-of-server
|
|
|
|
|
erc-server-process nil
|
|
|
|
|
(erc-mname-enable))
|
|
|
|
|
(setq erc-mname-mode t)
|
|
|
|
|
(ignore a) (ignore b))))
|
|
|
|
|
|
|
|
|
|
(defun erc-mname-disable (&optional ,arg-dis)
|
|
|
|
|
"Disable ERC mname mode.
|
2023-01-16 20:18:32 -08:00
|
|
|
When called interactively, do so in all buffers for the current
|
|
|
|
|
connection."
|
2021-07-12 03:44:28 -07:00
|
|
|
(interactive "p")
|
|
|
|
|
(when (derived-mode-p 'erc-mode)
|
|
|
|
|
(if ,arg-dis
|
|
|
|
|
(erc-with-all-buffers-of-server
|
|
|
|
|
erc-server-process nil
|
|
|
|
|
(erc-mname-disable))
|
|
|
|
|
(setq erc-mname-mode nil)
|
|
|
|
|
(ignore c) (ignore d))))
|
|
|
|
|
|
2023-01-13 06:03:15 -08:00
|
|
|
(put 'erc-mname-mode 'erc-module 'mname)
|
2021-07-12 03:44:28 -07:00
|
|
|
(put 'erc-mname-mode 'definition-name 'mname)
|
|
|
|
|
(put 'erc-mname-enable 'definition-name 'mname)
|
|
|
|
|
(put 'erc-mname-disable 'definition-name 'mname))))))
|
|
|
|
|
|
2021-09-26 01:53:56 +02:00
|
|
|
;;; erc-tests.el ends here
|