[elpa] master 348d1a7 27/57: Add after-quit arg to vdiff-test-with-buffers

[Justin Burkett]

branch: master
commit 348d1a78d217603daebaf2db75f6802cdd435138
Author: Justin Burkett <jus...@burkett.cc>
Commit: Justin Burkett <jus...@burkett.cc>

    Add after-quit arg to vdiff-test-with-buffers
---
 vdiff-test.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/vdiff-test.el b/vdiff-test.el
index 9172990..b026319 100644
--- a/vdiff-test.el
+++ b/vdiff-test.el
@@ -24,7 +24,7 @@
 (require 'vdiff)
 
 (defmacro vdiff-test-with-buffers
-    (a-string b-string operation final-a-string final-b-string)
+    (a-string b-string operation final-a-string final-b-string &optional 
after-quit)
   `(let ((buffer-a (get-buffer-create "vdiff-tests-buffer-a"))
          (buffer-b (get-buffer-create "vdiff-tests-buffer-b"))
          (vdiff--testing-mode t))
@@ -36,7 +36,7 @@
            (with-current-buffer buffer-b
              (erase-buffer)
              (insert ,(replace-regexp-in-string "|" "\n" b-string)))
-           (vdiff-buffers buffer-a buffer-b nil nil nil t)
+           (vdiff-buffers buffer-a buffer-b)
            ,operation
            (with-current-buffer buffer-a
              (should (string= (buffer-string)
@@ -45,7 +45,10 @@
              (should (string= (buffer-string)
                               ,(replace-regexp-in-string "|" "\n" 
final-b-string)))))
        (with-current-buffer buffer-a
-         (vdiff-quit)))))
+         (vdiff-quit))
+       ,after-quit
+       (kill-buffer buffer-a)
+       (kill-buffer buffer-b))))
 
 (ert-deftest vdiff-test-parsing ()
   "Test parsing of unified diff format."