mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

test-org-colview/...: Fix Emacs 28 compatibility 

*
testing/lisp/test-org-colview.el (test-org-colview/columns--move-row-stay-at-the-same-column):
Skip the test in Emacs <29 where it is not possible to determine
visual column.
This commit is contained in:
Ihor Radchenko 2023-08-21 10:21:33 +03:00
parent 299193bf09
commit 8b35734b49
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
testing/lisp/test-org-colview.el
View File

@ -1127,17 +1127,19 @@
(ert-deftest test-org-colview/columns--move-row-stay-at-the-same-column ()
"After function call 'org-columns--move-row' point should stay at the same column."
;; `current-column' did not return _visual_ column prior to Emacs 29.
(skip-unless (version>= emacs-version "29"))
(should
(equal 35
(org-test-with-temp-text "* H
(org-test-with-temp-text "* H
** A
** B
"
(org-columns)
(next-line 1)
(forward-char 2)
(org-columns--move-row)
(current-column)))))
(org-columns)
(next-line 1)
(forward-char 2)
(org-columns--move-row)
(current-column)))))
(ert-deftest test-org-colview/columns-move-row-down-with-subheading ()
"Test `org-columns-move-row-up' specifications with subheading."