emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org 23138b9 3/3: Merge branch 'bugfix'


From: ELPA Syncer
Subject: [elpa] externals/org 23138b9 3/3: Merge branch 'bugfix'
Date: Wed, 24 Nov 2021 07:57:28 -0500 (EST)

branch: externals/org
commit 23138b9b11f6052c482e111badb14b4c75d2ffd8
Merge: e76c29a 9044b30
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    Merge branch 'bugfix'
---
 testing/lisp/test-ob-C.el                 |  1 +
 testing/lisp/test-ob-awk.el               |  3 +++
 testing/lisp/test-ob-sed.el               |  2 +-
 testing/lisp/test-ob.el                   | 24 ------------------------
 testing/lisp/test-property-inheritance.el |  3 +--
 testing/org-test.el                       |  6 +++++-
 6 files changed, 11 insertions(+), 28 deletions(-)

diff --git a/testing/lisp/test-ob-C.el b/testing/lisp/test-ob-C.el
index 12a5e54..5f1dd1a 100644
--- a/testing/lisp/test-ob-C.el
+++ b/testing/lisp/test-ob-C.el
@@ -183,4 +183,5 @@
                                 ("Friday" "friday"))
                               (org-babel-execute-src-block))))))
 
+(provide 'test-ob-C)
 ;;; test-ob-C.el ends here
diff --git a/testing/lisp/test-ob-awk.el b/testing/lisp/test-ob-awk.el
index 7f3c0f3..21151b2 100644
--- a/testing/lisp/test-ob-awk.el
+++ b/testing/lisp/test-ob-awk.el
@@ -46,3 +46,6 @@
   (org-test-at-id "9e998b2a-3581-43fe-b26d-07d3c507b86a"
     (org-babel-next-src-block 4)
     (should (equal '(("a" "b" "c")) (org-babel-execute-src-block)))))
+
+(provide 'test-ob-awk)
+;;; test-ob-awk.el ends here
diff --git a/testing/lisp/test-ob-sed.el b/testing/lisp/test-ob-sed.el
index d8e5cac..0c0515e 100644
--- a/testing/lisp/test-ob-sed.el
+++ b/testing/lisp/test-ob-sed.el
@@ -58,5 +58,5 @@
                         (buffer-string)))))))
 
 
-
+(provide 'test-ob-sed)
 ;;; test-ob-sed ends here
diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el
index a5ae8e3..579d4df 100644
--- a/testing/lisp/test-ob.el
+++ b/testing/lisp/test-ob.el
@@ -1178,30 +1178,6 @@ echo \"test\"
       (should (re-search-forward "=\"x\"=" nil t))
       (forward-line))))
 
-(ert-deftest test-ob/commented-last-block-line-with-var ()
-  (org-test-with-temp-text-in-file "
-#+begin_src emacs-lisp :var a=1
-;;
-#+end_src"
-    (org-babel-next-src-block)
-    (org-babel-execute-maybe)
-    (re-search-forward "\\#\\+results:" nil t)
-    (forward-line)
-    (should (string=
-            ""
-            (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))
-  (org-test-with-temp-text-in-file "
-#+begin_src emacs-lisp :var a=2
-2;;
-#+end_src"
-    (org-babel-next-src-block)
-    (org-babel-execute-maybe)
-    (re-search-forward "\\#\\+results:" nil t)
-    (forward-line)
-    (should (string=
-            ": 2"
-            (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))
-
 (defun test-ob-verify-result-and-removed-result (result buffer-text)
   "Test helper function to test `org-babel-remove-result'.
 A temp buffer is populated with BUFFER-TEXT, the first block is executed,
diff --git a/testing/lisp/test-property-inheritance.el 
b/testing/lisp/test-property-inheritance.el
index c00ad6c..d3c3b0c 100644
--- a/testing/lisp/test-property-inheritance.el
+++ b/testing/lisp/test-property-inheritance.el
@@ -45,6 +45,5 @@
    (org-babel-next-src-block 3)
    (should (= 6 (org-babel-execute-src-block)))))
 
-(provide 'test-ob-R)
-
+(provide 'test-property-inheritance)
 ;;; test-property-inheritance.el ends here
diff --git a/testing/org-test.el b/testing/org-test.el
index ae4f32b..0f1e254 100644
--- a/testing/org-test.el
+++ b/testing/org-test.el
@@ -373,7 +373,11 @@ setting `pp-escape-newlines' to nil manually."
                   (condition-case err
                       (when (string-match "^[A-Za-z].*\\.el$"
                                           (file-name-nondirectory path))
-                        (load-file path))
+                         (let ((feature-name
+                                (intern
+                                 (file-name-base
+                                  (file-name-nondirectory path)))))
+                          (require feature-name path)))
                     (missing-test-dependency
                      (let ((name (intern
                                   (concat "org-missing-dependency/"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]