emacs-30 e0d8879bcd5: * test/lisp/emacs-lisp/tabulated-list-tests.el: Add missing test.

[Juri Linkov]

branch: emacs-30
commit e0d8879bcd58c9eb5001cdc5294c126f742db63c
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * test/lisp/emacs-lisp/tabulated-list-tests.el: Add missing test.
    
    (tabulated-list-groups-with-path): Add test for tabulated-list-groups.
---
 test/lisp/emacs-lisp/tabulated-list-tests.el | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/test/lisp/emacs-lisp/tabulated-list-tests.el 
b/test/lisp/emacs-lisp/tabulated-list-tests.el
index e53268b3f14..7edcaaf9441 100644
--- a/test/lisp/emacs-lisp/tabulated-list-tests.el
+++ b/test/lisp/emacs-lisp/tabulated-list-tests.el
@@ -171,4 +171,31 @@
        4clojure   4clojure   1507      obsolete    Open and evaluate 
4clojure.com questions
 ")))))
 
+(ert-deftest tabulated-list-groups-with-path ()
+  (with-temp-buffer
+    (tabulated-list-mode)
+    (setq tabulated-list-groups
+          (tabulated-list-groups
+           tabulated-list--test-entries
+           `( :path-function (lambda (entry)
+                               (list (list (aref (cadr entry) 3))))
+              :sort-function (lambda (groups _level)
+                               (sort groups :in-place t :key #'car)))))
+    (setq tabulated-list-format tabulated-list--test-format)
+    (setq tabulated-list-padding 7)
+    (tabulated-list-init-header)
+    (tabulated-list-print)
+    ;; Basic printing.
+    (should (string-equal
+             (buffer-substring-no-properties (point-min) (point-max))
+             "\
+* available
+       abc-mode   abc-mode   944       available   Major mode for editing abc 
music files
+* installed
+       zzzz-game  zzzz-game  2113      installed   play zzzz in Emacs
+       mode       mode       1128      installed   A simple mode for editing 
Actionscript 3 files
+* obsolete
+       4clojure   4clojure   1507      obsolete    Open and evaluate 
4clojure.com questions
+"))))
+
 ;;; tabulated-list-tests.el ends here