diff options
author | Marco Wahl <marcowahlsoft@gmail.com> | 2019-01-05 13:45:04 +0100 |
---|---|---|
committer | Marco Wahl <marcowahlsoft@gmail.com> | 2019-01-05 13:45:04 +0100 |
commit | 7d638dcd498133d217ac3390dfd32effb68217bf (patch) | |
tree | 6c9152da6d476ef167baf152f5d6698329247c54 | |
parent | 2862bea69b7c69fbf3c0fb9dc54b48ab17d3b314 (diff) | |
download | org-mode-7d638dcd498133d217ac3390dfd32effb68217bf.tar.gz |
test-org: Concretize test
* testing/lisp/test-org.el (test-org/set-tags-command): Test
specifically for the C-u prefix for tag alignment.
-rw-r--r-- | testing/lisp/test-org.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index a77c0f7..86d8a7d 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -6411,11 +6411,11 @@ Paragraph<point>" (goto-char (point-max)) (org-set-tags-command))) (buffer-string)))) - ;; With a non-nil prefix argument, align all tags in the buffer. + ;; With a C-u prefix argument, align all tags in the buffer. (should (equal "* H1 :foo:\n* H2 :bar:" (org-test-with-temp-text "* H1 :foo:\n* H2 :bar:" - (let ((org-tags-column 1)) (org-set-tags-command t)) + (let ((org-tags-column 1)) (org-set-tags-command '(4))) (buffer-string))))) (ert-deftest test-org/toggle-tag () |