mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source 
(tabulated-list-groups-with-path): Add test for tabulated-list-groups.
This commit is contained in:
Juri Linkov 2024-09-01 20:17:03 +03:00
parent 4ff4b78f92
commit e0d8879bcd
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
test/lisp/emacs-lisp/tabulated-list-tests.el
View File

@ -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