diff options
| author | Spencer Williams <spnw@plexwave.org> | 2025-04-16 14:21:06 -0400 |
|---|---|---|
| committer | Spencer Williams <spnw@plexwave.org> | 2025-04-16 14:21:06 -0400 |
| commit | 782aeb0cc504e48276135b9a0a750af2c58a6a6e (patch) | |
| tree | 51071027a3070a72fffbadce57ec75e1d70955cc /lisp | |
| parent | 2585823fd781875a9dc458c303bf9e023ca2c2ef (diff) | |
Add warning regarding tests
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/seam-test.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/seam-test.el b/lisp/seam-test.el index 791c964..cf4f219 100644 --- a/lisp/seam-test.el +++ b/lisp/seam-test.el @@ -66,6 +66,8 @@ (let ,options (let ,(cl-loop for (name . args) in varlist collect `(,name (seam-make-note ,@args))) + ;; FIXME: It's quite possible for tests to fail in such a way + ;; that this does not kill the buffers. (unwind-protect (progn ,@body) (mapcar #'kill-buffer (list ,@(mapcar #'car varlist)))))))) |