emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Morgan Smith <Morgan.J.Smith@outlook.com>
To: emacs-orgmode@gnu.org
Cc: Morgan Smith <Morgan.J.Smith@outlook.com>
Subject: [PATCH] Testing: Add tests for `org-tags-sort-function'
Date: Sat, 15 Jun 2024 11:27:59 -0400	[thread overview]
Message-ID: <CH3PR84MB342464F6458F91EE5800545AC5C32@CH3PR84MB3424.NAMPRD84.PROD.OUTLOOK.COM> (raw)

* testing/lisp/test-org-agenda.el (test-org-agenda/tags-sorting): New
test.
---

Hello!

I just recently sent in a patch to add a new possible value for
`org-tags-sort-function'.  To ease discussion there, I thought I'd add a nice
little test here so I can later show off the feature I'm trying to add.

Do notice that TODO I put in the comment though.  Not sure what the solution to
that should be.

It would be nice to accept this patch even with the TODO so I can make patches
in the other discussion that extend this test.  Or I suppose I could try being
patient.  That doesn't sound as fun though.

Thanks,

Morgan

 testing/lisp/test-org-agenda.el | 49 +++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)

diff --git a/testing/lisp/test-org-agenda.el b/testing/lisp/test-org-agenda.el
index 778f91e8e..c1092df3b 100644
--- a/testing/lisp/test-org-agenda.el
+++ b/testing/lisp/test-org-agenda.el
@@ -655,6 +655,55 @@ Sunday      7 January 2024
               (buffer-string))))))
       (org-test-agenda--kill-all-agendas))))
 
+(ert-deftest test-org-agenda/tags-sorting ()
+  "Test if `org-agenda' sorts tags according to `org-tags-sort-function'."
+  (let ((org-agenda-custom-commands
+         '(("f" "no fluff" todo ""
+            ((org-agenda-todo-keyword-format "")
+             (org-agenda-overriding-header "")
+             (org-agenda-prefix-format "")
+             (org-agenda-remove-tags t)
+             (org-agenda-sorting-strategy '(tag-up))))))
+        ;; Sorting doesn't care about `org-tag-alist'.  This is only
+        ;; here for later when we add sorting methods that do
+        (org-tag-alist
+         '((:startgrouptag)
+           ("group_a")
+           (:grouptags)
+           ("tag_a_1")
+           ("tag_a_2")
+           (:endgrouptag)
+           (:startgroup)
+           ("tag_b_1")
+           ("tag_b_2")
+           (:endgroup)
+           ("groupless")
+           ("lonely"))))
+    (org-test-agenda-with-agenda
+     (string-join
+      '("* TODO group_a :group_a:"
+        "* TODO tag_a_1 :tag_a_1:"
+        "* TODO tag_a_2 :tag_a_2:"
+        "* TODO tag_b_1 :tag_b_1:"
+        "* TODO tag_b_2 :tag_b_2:"
+        "* TODO groupless :groupless:"
+        "* TODO lonely :lonely:")
+      "\n")
+     (dolist (org-tags-sort-function '(nil org-string< org-string>))
+       (should
+        (string-equal
+         (progn
+           (org-agenda nil "f")
+           (substring-no-properties (buffer-string)))
+         (pcase org-tags-sort-function
+           ;; TODO: a value of `nil' sorts it!  That's not what the
+           ;; customize menu of `org-tags-sort-function' says!  It
+           ;; says "No sorting".
+           ((or 'nil 'org-string<)
+            "group_a\ngroupless\nlonely\ntag_a_1\ntag_a_2\ntag_b_1\ntag_b_2\n")
+           ('org-string>
+            "tag_b_2\ntag_b_1\ntag_a_2\ntag_a_1\nlonely\ngroupless\ngroup_a\n"))))))))
+
 (ert-deftest test-org-agenda/goto-date ()
   "Test `org-agenda-goto-date'."
   (unwind-protect
-- 
2.45.1



             reply	other threads:[~2024-06-15 16:00 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2024-06-15 15:27 Morgan Smith [this message]
2024-09-01 13:33 ` [PATCH] Testing: Add tests for `org-tags-sort-function' Ihor Radchenko
2024-09-02 18:36   ` Morgan Smith

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=CH3PR84MB342464F6458F91EE5800545AC5C32@CH3PR84MB3424.NAMPRD84.PROD.OUTLOOK.COM \
    --to=morgan.j.smith@outlook.com \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).