forked from mirrors/org-mode
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.
This commit is contained in:
parent
3780948905
commit
fe85d61a92
|
@ -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))
|
||||
|
|
|
@ -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\")")))))
|
||||
|
||||
|
|
|
@ -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>"
|
||||
|
|
|
@ -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 "| |"
|
||||
|
|
|
@ -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"
|
||||
|
|
Loading…
Reference in New Issue