From mboxrd@z Thu Jan 1 00:00:00 1970 From: Martin Kampas Subject: Re: Bug: Matching tags: results incomplete when mixing group tags and their ancestors [9.1.7 (9.1.7-12-g74f6ed-elpaplus @ /home/martin/.emacs.d/elpa/org-plus-contrib-20180305/)] Date: Thu, 22 Mar 2018 06:32:09 +0100 Message-ID: <1621676.5Y5mEkxUBF@5th> References: <16731993.gXpk8AjVC7@5th> <1695362.3m693ds4Fp@5th> <87h8pa5ixn.fsf@gnu.org> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7Bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:34365) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eyspl-00013o-NO for emacs-orgmode@gnu.org; Thu, 22 Mar 2018 01:32:18 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eyspg-0003XW-RS for emacs-orgmode@gnu.org; Thu, 22 Mar 2018 01:32:17 -0400 Received: from mail-wm0-x243.google.com ([2a00:1450:400c:c09::243]:55702) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eyspg-0003Ve-IT for emacs-orgmode@gnu.org; Thu, 22 Mar 2018 01:32:12 -0400 Received: by mail-wm0-x243.google.com with SMTP id t7so13582078wmh.5 for ; Wed, 21 Mar 2018 22:32:12 -0700 (PDT) In-Reply-To: <87h8pa5ixn.fsf@gnu.org> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: Bastien Cc: emacs-orgmode@gnu.org Hi Bastien, > If you have time to add tests, that'd be great, as Nicolas suggested. Here you are. Best Regards, Martin >From bd8059e18fa3bd2977415449139fc626d03817a3 Mon Sep 17 00:00:00 2001 From: Martin Kampas Date: Thu, 22 Mar 2018 06:20:31 +0100 Subject: [PATCH] Extend match-sparse-tree test for tag hierarchies * test-org.el (test-org/match-sparse-tree): Extend test after commit 894ec00 (org.el: Fix recursion stop condition when expanding tags). --- testing/lisp/test-org.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index e97dfe775..8d8b36f86 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -5765,6 +5765,15 @@ Paragraph" (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 -- 2.16.2