[elpa] externals/websocket 31bb007b98 098/114: introduce configurable wstest-server-url

[ELPA Syncer]

branch: externals/websocket
commit 31bb007b980b01fdd52b5a46d2dde4dd27721928
Author: Nicholas D Steeves <nstee...@gmail.com>
Commit: Nicholas D Steeves <nstee...@gmail.com>

    introduce configurable wstest-server-url
---
 websocket-functional-test.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/websocket-functional-test.el b/websocket-functional-test.el
index df0df67dac..acdde5ce2c 100644
--- a/websocket-functional-test.el
+++ b/websocket-functional-test.el
@@ -37,6 +37,9 @@
 
 (setq websocket-debug t)
 
+(unless wstest-server-url
+  (setq wstest-server-url "wss://echo.websocket.org"))
+
 (defvar wstest-server-buffer (get-buffer-create "*wstest-server*"))
 (defvar wstest-server-name "wstest-server")
 (defvar wstest-server-proc
@@ -71,7 +74,7 @@ written to be used widely."
              (wstest-msg)
              (wstest-ws
               (websocket-open
-               "wss://echo.websocket.org"
+               wstest-server-url
                :on-message (lambda (_websocket frame)
                              (setq wstest-msg (websocket-frame-text frame)))
                :on-close (lambda (_websocket) (setq wstest-closed t)))))