[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org cb758720f3 3/4: testing/org-test.el (<toplevel>): R
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org cb758720f3 3/4: testing/org-test.el (<toplevel>): Remove dead code |
Date: |
Sat, 15 Jun 2024 12:58:33 -0400 (EDT) |
branch: externals/org
commit cb758720f3bf8a8e5d22d454f5b239393c3a8071
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Ihor Radchenko <yantar92@posteo.net>
testing/org-test.el (<toplevel>): Remove dead code
(featurep 'org) is always non-nil here since we have a (require 'org)
further up. I suspect other `require's nearby could be removed or
moved to toplevel.
---
testing/org-test.el | 29 ++++++++++-------------------
1 file changed, 10 insertions(+), 19 deletions(-)
diff --git a/testing/org-test.el b/testing/org-test.el
index 643c5c7660..52d38c3fdf 100644
--- a/testing/org-test.el
+++ b/testing/org-test.el
@@ -48,25 +48,16 @@
(file-name-directory
(or load-file-name buffer-file-name))))
(org-lisp-dir (expand-file-name
- (concat org-test-dir "../lisp"))))
-
- (unless (featurep 'org)
- (setq load-path (cons org-lisp-dir load-path))
- (require 'org)
- (require 'org-id)
- (require 'ox)
- (org-babel-do-load-languages
- 'org-babel-load-languages '((shell . t) (org . t))))
-
- (let ((load-path (cons org-test-dir
- (cons (expand-file-name "jump" org-test-dir)
- load-path))))
- (require 'cl-lib)
- (require 'ert)
- (require 'ert-x)
- (when (file-exists-p (expand-file-name "jump/jump.el" org-test-dir))
- (require 'jump)
- (require 'which-func)))))
+ (concat org-test-dir "../lisp")))
+ (load-path (cons org-test-dir
+ (cons (expand-file-name "jump" org-test-dir)
+ load-path))))
+ (require 'cl-lib)
+ (require 'ert)
+ (require 'ert-x)
+ (when (file-exists-p (expand-file-name "jump/jump.el" org-test-dir))
+ (require 'jump)
+ (require 'which-func))))
(defconst org-test-default-test-file-name "tests.el"
"For each defun a separate file with tests may be defined.