From 0efcdfe447db605ec188f80ae99caf0a1b48c598 Mon Sep 17 00:00:00 2001 From: Andrew Hyatt Date: Sun, 2 Sep 2012 18:57:29 -0400 Subject: [PATCH] Kill processes in the functional test, and make sure that closed websocket result in killed processes. --- websocket-functional-test.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/websocket-functional-test.el b/websocket-functional-test.el index e9dac95..8183635 100644 --- a/websocket-functional-test.el +++ b/websocket-functional-test.el @@ -58,6 +58,12 @@ (assert (null (websocket-openp wstest-ws))) (stop-process wstest-server-proc) +(kill-process wstest-server-proc) + +;; Make sure the processes are closed. This happens asynchronously, +;; so let's wait for it. +(sleep-for 1) +(assert (null (process-list)) t) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Remote server test, with wss ;; @@ -116,4 +122,8 @@ (assert (equal (car wstest-msgs) "Hi to self!")) (websocket-server-close server-conn) (assert wstest-closed) +(websocket-close wstest-ws) + +(sleep-for 1) +(assert (null (process-list)) t) (message "\nAll tests passed!\n")