summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <eric.schulte@gmx.com>2012-01-24 09:41:21 -0700
committerEric Schulte <eric.schulte@gmx.com>2012-01-24 09:41:21 -0700
commit85974ce727f84e33f4d7570051354d8739585450 (patch)
tree8287420658f315e14d6cf23828ea583e7a387ac0
parentc82ca2f19aada8c7aeae6a2a98a54df9741a620b (diff)
downloadorg-mode-85974ce727f84e33f4d7570051354d8739585450.tar.gz
killing all of the test buffers
-rw-r--r--testing/org-test.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/testing/org-test.el b/testing/org-test.el
index 0ba0faf..3696db1 100644
--- a/testing/org-test.el
+++ b/testing/org-test.el
@@ -339,9 +339,10 @@ otherwise place the point at the beginning of the inserted text."
(unless (get-file-buffer file)
(add-to-list 'org-test-buffers (find-file file)))))
-(defun org-test-bury-all-examples ()
- (mapcar (lambda (b) (when (buffer-live-p b) (bury-buffer b)))
- org-test-buffers))
+(defun org-test-kill-all-examples ()
+ (while org-test-buffers
+ (let ((b (pop org-test-buffers)))
+ (when (buffer-live-p b) (kill-buffer b)))))
(defun org-test-update-id-locations ()
(org-id-update-id-locations
@@ -371,7 +372,7 @@ Load all test files first."
(org-test-touch-all-examples)
(org-test-load)
(ert "\\(org\\|ob\\)")
- (org-test-bury-all-examples))
+ (org-test-kill-all-examples))
(provide 'org-test)