diff --git a/testing/lisp/test-ol.el b/testing/lisp/test-ol.el index a38d9f979..70be03818 100644 --- a/testing/lisp/test-ol.el +++ b/testing/lisp/test-ol.el @@ -301,14 +301,6 @@ See https://github.com/yantar92/org/issues/4." (let ((file (buffer-file-name))) (equal (format "[[file:%s::two]]" file file) (org-store-link nil)))))) - (should - (let ((org-stored-links nil) - (org-context-in-file-links t)) - (org-test-with-temp-text-in-file "# two" - (fundamental-mode) - (let ((file (buffer-file-name))) - (equal (format "[[file:%s::two]]" file file) - (org-store-link nil)))))) (should (let ((org-stored-links nil) (org-context-in-file-links t)) diff --git a/testing/lisp/test-org-clock.el b/testing/lisp/test-org-clock.el index fe51b12b6..ff547a094 100644 --- a/testing/lisp/test-org-clock.el +++ b/testing/lisp/test-org-clock.el @@ -827,21 +827,6 @@ CLOCK: [2016-12-27 Wed 13:09]--[2016-12-28 Wed 15:09] => 26:00 :PROPERTIES: :A: 1 :END: -CLOCK: [2016-12-27 Wed 13:09]--[2016-12-28 Wed 15:09] => 26:00" - (test-org-clock-clocktable-contents ":properties (\"A\")")))) - ;; Handle missing properties. - (should - (equal - "| A | Headline | Time | -|---+--------------+---------| -| | *Total time* | *26:00* | -|---+--------------+---------| -| 1 | Foo | 26:00 |" - (org-test-with-temp-text - "* Foo -:PROPERTIES: -:A: 1 -:END: CLOCK: [2016-12-27 Wed 13:09]--[2016-12-28 Wed 15:09] => 26:00" (test-org-clock-clocktable-contents ":properties (\"A\")"))))) diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el index 2e3a249ab..d95195f0d 100644 --- a/testing/lisp/test-org-element.el +++ b/testing/lisp/test-org-element.el @@ -2436,11 +2436,6 @@ e^{i\\pi}+1=0 (let ((file (expand-file-name (buffer-file-name)))) (insert (format "[[file:%s]]" file)) (equal (org-element-property :path (org-element-context)) file)))) - (should - (org-test-with-temp-text-in-file "" - (let ((file (expand-file-name (buffer-file-name)))) - (insert (format "[[file:%s]]" file)) - (equal (org-element-property :path (org-element-context)) file)))) ;; ... multi-line link. (should (equal "ls *.org" @@ -3195,11 +3190,6 @@ Outside list" (org-test-with-temp-text "<2023-07-02 Sun 12:00>--<2023-07-02 Sun 13:00>" (org-element-property :range-type (org-element-timestamp-parser))) 'daterange)) - (should - (eq - (org-test-with-temp-text "<2023-07-02 Sun 12:00>--<2023-07-02 Sun>" - (org-element-property :range-type (org-element-timestamp-parser))) - 'daterange)) (should (eq (org-test-with-temp-text "<2023-07-02 Sun 12:00 +5d>--<2023-07-02 Sun 13:00>" diff --git a/testing/lisp/test-org-table.el b/testing/lisp/test-org-table.el index 27aeb5ab3..ce78d4488 100644 --- a/testing/lisp/test-org-table.el +++ b/testing/lisp/test-org-table.el @@ -3368,10 +3368,6 @@ See also `test-org-table/copy-field'." (org-test-with-temp-text "| 1 | 2 | 3 |" (org-table-get-field 3 " foo ") (buffer-string)))) - (should - (equal " 4 " - (org-test-with-temp-text "| 1 | 2 |\n| 3 | 4 |" - (org-table-get-field 2)))) ;; An empty REPLACE string clears the field. (should (equal "| |" diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index 7c85da9d5..1e5fd0a91 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -1026,14 +1026,6 @@ Otherwise, evaluate RESULT as an sexp and return its result." (org-auto-fill-function) (buffer-string))))) ;; Comment block: auto fill contents. - (should - (equal "#+BEGIN_COMMENT\n12345\n7890\n#+END_COMMENT" - (org-test-with-temp-text "#+BEGIN_COMMENT\n12345 7890\n#+END_COMMENT" - (let ((fill-column 5)) - (forward-line) - (end-of-line) - (org-auto-fill-function) - (buffer-string))))) (should (equal "#+BEGIN_COMMENT\n12345\n7890\n#+END_COMMENT" (org-test-with-temp-text "#+BEGIN_COMMENT\n12345 7890\n#+END_COMMENT"