[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 8082291: * test/lisp/progmodes/sql-tests.el (sql-te
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 8082291: * test/lisp/progmodes/sql-tests.el (sql-tests-buffer-naming-harness): |
Date: |
Thu, 25 Apr 2019 19:53:46 -0400 (EDT) |
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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 8082291: * test/lisp/progmodes/sql-tests.el (sql-tests-buffer-naming-harness):,
Glenn Morris <=