diff options
author | Martin Kampas <martin.kampas@hidden> | 2018-03-22 06:20:31 +0100 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2018-03-22 09:21:23 +0100 |
commit | dd4e57b1d1176d79ba7327ce36a35b496b5fb0bd (patch) | |
tree | 91578d5b3eebf7aa4cf528330e2f0511fd149d4c | |
parent | a9139d99766643c0eae7cbe52384829df551c6ed (diff) | |
download | org-mode-dd4e57b1d1176d79ba7327ce36a35b496b5fb0bd.tar.gz |
Extend match-sparse-tree test for tag hierarchies
* test-org.el (test-org/match-sparse-tree): Add new test.
Test commit 894ec00: Fix recursion stop condition when expanding tags.
-rw-r--r-- | testing/lisp/test-org.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index ecf41e9..59fd902 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -5731,6 +5731,15 @@ Paragraph<point>" (org-match-sparse-tree nil "Lev_1") (search-forward "H4") (org-invisible-p2))) + (should-not + (org-test-with-temp-text + "#+TAGS: [ Lev_1 : Lev_2 ]\n +#+TAGS: [ Lev_2 : Lev_3 ]\n +#+TAGS: { Lev_3 : Lev_4 }\n +* H\n** H1 :Lev_1:\n** H2 :Lev_2:\n** H3 :Lev_3:\n** H4 :Lev_4:" + (org-match-sparse-tree nil "Lev_1+Lev_3") + (search-forward "H4") + (org-invisible-p2))) ;; Match regular expressions in tags (should-not (org-test-with-temp-text |