diff options
author | Glenn Morris <rgm@gnu.org> | 2019-04-25 19:53:02 -0400 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2019-04-25 19:53:02 -0400 |
commit | 80822917736edbab77969c4a18dfb8dd20fe3a88 (patch) | |
tree | 23250fba1828149c94b6c69852a6db447eb62ba2 /test | |
parent | 1486eadf7c9469f873fcd04beafd03f21564d580 (diff) | |
download | emacs-80822917736edbab77969c4a18dfb8dd20fe3a88.tar.gz |
* test/lisp/progmodes/sql-tests.el (sql-tests-buffer-naming-harness):
Skip if no sqlite program.
Diffstat (limited to 'test')
-rw-r--r-- | test/lisp/progmodes/sql-tests.el | 30 |
1 files 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." |