浏览代码

Merge branch 'maint'

Bastien 7 年之前
父节点
当前提交
3a4fd33e58
共有 1 个文件被更改,包括 9 次插入0 次删除
  1. 9 0
      testing/lisp/test-org.el

+ 9 - 0
testing/lisp/test-org.el

@@ -5765,6 +5765,15 @@ Paragraph<point>"
      (org-match-sparse-tree nil "Lev_1")
      (org-match-sparse-tree nil "Lev_1")
      (search-forward "H4")
      (search-forward "H4")
      (org-invisible-p2)))
      (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
   ;; Match regular expressions in tags
   (should-not
   (should-not
    (org-test-with-temp-text
    (org-test-with-temp-text