[Emacs-diffs] master 8082291: * test/lisp/progmodes/sql-tests.el (sql-tests-buffer-naming-harness):

[Glenn Morris]

branch: master
commit 80822917736edbab77969c4a18dfb8dd20fe3a88
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    * test/lisp/progmodes/sql-tests.el (sql-tests-buffer-naming-harness):
    Skip if no sqlite program.
---
 test/lisp/progmodes/sql-tests.el | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/test/lisp/progmodes/sql-tests.el b/test/lisp/progmodes/sql-tests.el
index ad1f797..ef8fe58 100644
--- a/test/lisp/progmodes/sql-tests.el
+++ b/test/lisp/progmodes/sql-tests.el
@@ -331,20 +331,22 @@ yield OUTP."
 The ACTION will be tested after set-up of PRODUCT."
 
   (declare (indent 1))
-  `(let (new-bufs)
-     (cl-letf
-         (((symbol-function 'make-comint-in-buffer)
-           (lambda (_name buffer _program &optional _startfile &rest _switches)
-             (let ((b (get-buffer-create buffer)))
-               (message ">>make-comint-in-buffer %S" b)
-               (cl-pushnew b new-bufs) ;; Keep track of what we create
-               b))))
-
-       (let (,(intern (format "sql-%s-login-params" product)))
-         ,@action)
-
-       (let (kill-buffer-query-functions) ;; Kill what we create
-         (mapc #'kill-buffer new-bufs)))))
+  `(progn
+     (skip-unless (executable-find sql-sqlite-program))
+     (let (new-bufs)
+       (cl-letf
+           (((symbol-function 'make-comint-in-buffer)
+             (lambda (_name buffer _program &optional _startfile &rest 
_switches)
+               (let ((b (get-buffer-create buffer)))
+                 (message ">>make-comint-in-buffer %S" b)
+                 (cl-pushnew b new-bufs) ;; Keep track of what we create
+                 b))))
+
+         (let (,(intern (format "sql-%s-login-params" product)))
+           ,@action)
+
+         (let (kill-buffer-query-functions) ;; Kill what we create
+           (mapc #'kill-buffer new-bufs))))))
 
 (ert-deftest sql-tests-buffer-naming-default ()
   "Test buffer naming."