[elpa] externals/org fe85d61a92 1/3: testing: Delete duplicate tests

[ELPA Syncer]

branch: externals/org
commit fe85d61a929af8d753ddac76b61d0385f5bcc326
Author: Ilya Chernyshov <ichernyshovvv@gmail.com>
Commit: Ihor Radchenko <yantar92@posteo.net>

    testing: Delete duplicate tests
    
    * testing/lisp/test-ol.el (test-org-link/store-link): Delete a duplicate 
test.
    
    * testing/lisp/test-org-clock.el (test-org-clock/clocktable/properties): 
Delete a duplicate test.
    
    * testing/lisp/test-org-element.el (test-org-element/link-parser,
    test-org-element/timestamp-parser): Delete duplicate tests.
    
    * testing/lisp/test-org-table.el (test-org-table/get-field): Delete a 
duplicate test.
    
    * testing/lisp/test-org.el (test-org/auto-fill-function): Delete a 
duplicate test.
---
 testing/lisp/test-ol.el          |  8 --------
 testing/lisp/test-org-clock.el   | 15 ---------------
 testing/lisp/test-org-element.el | 10 ----------
 testing/lisp/test-org-table.el   |  4 ----
 testing/lisp/test-org.el         |  8 --------
 5 files changed, 45 deletions(-)

diff --git a/testing/lisp/test-ol.el b/testing/lisp/test-ol.el
index a38d9f979d..70be038181 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 fe51b12b6b..ff547a0942 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 2e3a249abd..d95195f0dc 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 27aeb5ab31..ce78d44883 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<point>| 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 7c85da9d5c..1e5fd0a916 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"