From f556e9f2960ef2a743af307df9bc8a8de94d1924 Mon Sep 17 00:00:00 2001 From: Gerard Vermeulen Date: Thu, 18 Jan 2024 17:12:54 +0100 Subject: [PATCH] Clean up the "Testing Org" code --- README.org | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/README.org b/README.org index 123a825..93a1c00 100644 --- a/README.org +++ b/README.org @@ -3714,23 +3714,20 @@ facilities for [[https://orgmode.org/worg/org-tests/index.html][Testing Org]]. (file-name-directory (buffer-file-name (get-buffer "org.el"))))) (file-name-as-directory "testing"))) - (message "`%s'" org-testing-dir) (setq org-testing-lisp-files (seq-filter (lambda (f) (string-suffix-p ".el" f)) (directory-files (file-name-concat org-testing-dir - (file-name-as-directory "lisp"))))) - (message "`%s'" org-testing-lisp-files)) + (file-name-as-directory "lisp")))))) (unless (fboundp 'org-test-with-temp-text) (find-file (file-name-concat org-testing-dir "org-test.el")) (eval-buffer) (quit-window)) (let* ((test (completing-read "Org-mode test: " - org-testing-lisp-files nil 'require-match)) - (file )) + org-testing-lisp-files nil 'require-match))) (find-file (file-name-concat org-testing-dir (file-name-as-directory "lisp") test)) (eval-buffer)