1 files changed, 39 insertions, 35 deletions
diff --git a/test/terminal-here-test.el b/test/terminal-here-test.el
index 8e8cab7..6323c8a 100644
--- a/test/terminal-here-test.el
+++ b/test/terminal-here-test.el
@@ -1,50 +1,54 @@
 ;;; -*- lexical-binding: t; -*-
 
+(defmacro with-terminal-here-mocks (&rest body)
+  "Stub out some process interaction functions"
+  `(with-mock
+     (stub set-process-sentinel)
+     (stub set-process-query-on-exit-flag)
+     ,@body))
+
+
+
 (ert-deftest linux-default-command ()
-  (with-mock
-    (mock (set-process-sentinel))
-    (mock (start-process "x-terminal-emulator" * "x-terminal-emulator"))
-    (let ((system-type 'gnu/linux))
-      (custom-reevaluate-setting 'terminal-here-terminal-command)
-      (terminal-here-launch-in-directory "adir"))))
+  (with-terminal-here-mocks
+   (mock (start-process "x-terminal-emulator" * "x-terminal-emulator"))
+   (let ((system-type 'gnu/linux))
+     (custom-reevaluate-setting 'terminal-here-terminal-command)
+     (terminal-here-launch-in-directory "adir"))))
 
 (ert-deftest osx-default-command ()
-  (with-mock
-    (mock (set-process-sentinel))
-    (mock (start-process "open" * "open" "-a" "Terminal.app" "adir"))
-    (let ((system-type 'darwin))
-      (custom-reevaluate-setting 'terminal-here-terminal-command)
-      (terminal-here-launch-in-directory "adir"))))
+  (with-terminal-here-mocks
+   (mock (start-process "open" * "open" "-a" "Terminal.app" "adir"))
+   (let ((system-type 'darwin))
+     (custom-reevaluate-setting 'terminal-here-terminal-command)
+     (terminal-here-launch-in-directory "adir"))))
 
 (ert-deftest windows-default-command ()
-  (with-mock
-    (mock (set-process-sentinel))
-    (mock (start-process "cmd.exe" *  "cmd.exe" "/C" "start" "cmd.exe"))
-    (let ((system-type 'windows-nt))
-      (custom-reevaluate-setting 'terminal-here-terminal-command)
-      (terminal-here-launch-in-directory "adir"))))
+  (with-terminal-here-mocks
+   (mock (start-process "cmd.exe" *  "cmd.exe" "/C" "start" "cmd.exe"))
+   (let ((system-type 'windows-nt))
+     (custom-reevaluate-setting 'terminal-here-terminal-command)
+     (terminal-here-launch-in-directory "adir"))))
 
 
 
 (ert-deftest custom-terminal-command-as-list ()
-  (with-mock
-    (mock (set-process-sentinel))
-    (mock (start-process "1" * "1" "2" "3"))
-    (validate-setq terminal-here-terminal-command '("1" "2" "3"))
-    (terminal-here-launch-in-directory "adir")))
+  (with-terminal-here-mocks
+   (mock (start-process "1" * "1" "2" "3"))
+   (validate-setq terminal-here-terminal-command '("1" "2" "3"))
+   (terminal-here-launch-in-directory "adir")))
 
 (ert-deftest custom-terminal-command-as-function ()
-  (with-mock
-    (mock (set-process-sentinel))
-    (mock (start-process "1" * "1" "2" "3" "adir"))
-    (validate-setq terminal-here-terminal-command (lambda (dir) (list "1" "2" "3" dir)))
-    (terminal-here-launch-in-directory "adir")))
+  (with-terminal-here-mocks
+   (mock (start-process "1" * "1" "2" "3" "adir"))
+   (validate-setq terminal-here-terminal-command (lambda (dir) (list "1" "2" "3" dir)))
+   (terminal-here-launch-in-directory "adir")))
 
 (ert-deftest custom-terminal-command-as-junk-rejected ()
-  (with-mock
-    (should-error
-     (validate-setq terminal-here-terminal-command "astring")
-     :type 'user-error)))
+  (with-terminal-here-mocks
+   (should-error
+    (validate-setq terminal-here-terminal-command "astring")
+    :type 'user-error)))
 
 
 
@@ -57,9 +61,9 @@
 (ert-deftest with-project-root-function ()
   (let ((project-root-finder (lambda () "" "vc-root")))
     (validate-setq terminal-here-project-root-function project-root-finder)
-    (with-mock
-      (mock (terminal-here-launch-in-directory "vc-root"))
-      (terminal-here-project-launch))))
+    (with-terminal-here-mocks
+     (mock (terminal-here-launch-in-directory "vc-root"))
+     (terminal-here-project-launch))))
 
 (ert-deftest project-root-finds-nothing ()
   (validate-setq terminal-here-project-root-function (lambda () nil))