From 80822917736edbab77969c4a18dfb8dd20fe3a88 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 25 Apr 2019 19:53:02 -0400 Subject: [PATCH] * 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 ad1f7976526..ef8fe58506e 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." -- 2.39.2