From 6de7ac6b89b0ce7e4914fc0bd58f001c279ec641 Mon Sep 17 00:00:00 2001 From: David Maus Date: Mon, 22 Nov 2010 19:29:05 +0100 Subject: [PATCH] New function: Run all tests for current file * org-test.el (org-test-current-file): New function. Run all tests for current file. --- testing/org-test.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/testing/org-test.el b/testing/org-test.el index 1b8ade550..52380e997 100644 --- a/testing/org-test.el +++ b/testing/org-test.el @@ -199,6 +199,14 @@ files." (interactive) (ert (which-function))) +(defun org-test-current-file () + "Run all tests for current file." + (interactive) + (ert (concat "test-" + (file-name-sans-extension + (file-name-nondirectory (buffer-file-name))) + "/"))) + (defun org-test-run-all-tests () "Run all defined tests matching \"\\(org\\|ob\\)\". Load all test files first." -- 2.11.4.GIT