Re: Add support for TLS client certificates to 'erc-tls'

[J.P.]

Attached is a disposable test case for this specific problem
(reconnecting with TLS). It should fail now and work once the problem is
resolved.

At the moment, it's not set up to work interactively. But I suppose you
could try something like

    (advice-add 'nsm-query-user :around
                (lambda (o &rest r) (ert-simulate-keys "s" (apply o r)))
                '((name . erc-tls)))

and also make some tweaks to keep ERT from blocking the read (probably
not worth the effort, though). While hacking and running the test, this
or similar may help shed some light on what's going on:

   (require 'trace)
   (trace-function-background 'erc-open)

Currently, the output should show something similar to the following
(note the "Certificate is required" part):

    Running 1 tests (2021-05-24 17:09:54-0700, selector `erc-tls-reconnect')
    Connecting to localhost:16698... 
    Logging in as `tester...
    going again
    Connecting to localhost:46699... 
    gnutls.c: [0] (Emacs) Received alert:  Certificate is required
    Logging in as `tester...
    Connecting to localhost:46699... ...done
    Test erc-tls-reconnect backtrace:
    process-send-string(#<process erc-localhost-46699> "PING :1\15\n")
    (progn (process-send-string erc-server-process (concat s "\15\n")))
    (if (setq s (cond ((string-match-p "\\`PASS" s) nil) ((string-match-
    erc-server-send("USER user 0 * :tester")
    erc-login()
    [...]
    command-line-1(("-L" ":." "-l" "ert" "-l" "lisp/erc/erc-tests.el" "-
    command-line()
    normal-top-level()
    Test erc-tls-reconnect condition:
        Info: Connect
        (error "Process erc-localhost-46699 not running")
    FAILED  1/1  erc-tls-reconnect (5.384658 sec)

    Ran 1 tests, 0 results as expected, 1 unexpected (2021-05-24 17:10:01-0700, 
7.495815 sec)

    1 unexpected results:
    FAILED  erc-tls-reconnect

Let me know if anything doesn't make sense. Thanks!

0001-Add-test-case-for-reconnecting-with-erc-tls.patch
Description: Text Data