Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Adjust package tests for 789e98e54f

Browse source 
* test/lisp/emacs-lisp/package-tests.el (package-test-get-deps):
Replace test with an analogous test for 'package--dependencies'.
This commit is contained in:
Philip Kaludercic 2026-04-22 20:46:22 +02:00
parent 45304541ec
commit 986892fe30
No known key found for this signature in database
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
test/lisp/emacs-lisp/package-tests.el
View file

@ -982,8 +982,8 @@ but with a different end of line convention (bug#48137)."
(member sample-elem (aref pac 4)))
(aref pac-sample 4)))))))
(ert-deftest package-test-get-deps ()
"Test `package--get-deps' with complex structures."
(ert-deftest package-test-get-dependencies ()
"Test `package--dependencies' with complex structures."
(let ((package-alist
(mapcar (lambda (p) (list (package-desc-name p) p))
(list simple-single-desc
@ -991,16 +991,15 @@ but with a different end of line convention (bug#48137)."
multi-file-desc
new-pkg-desc
simple-depend-desc-1
simple-depend-desc-2)))
(pkg-cmp #'string-lessp))
simple-depend-desc-2))))
(should
(equal (sort (package--get-deps '(simple-depend)) pkg-cmp)
(sort (list 'simple-depend 'simple-single) pkg-cmp)))
(seq-set-equal-p
(mapcar #'car (package--dependencies 'simple-depend))
'(simple-single)))
(should
(equal (sort (package--get-deps '(simple-depend-2)) pkg-cmp)
(sort (list 'simple-depend-2 'simple-depend-1 'multi-file
'simple-depend 'simple-single)
pkg-cmp)))))
(seq-set-equal-p
(mapcar #'car (package--dependencies 'simple-depend-2))
'(simple-depend-1 multi-file simple-depend simple-single)))))
(ert-deftest package-test-sort-by-dependence ()
"Test `package--sort-by-dependence' with complex structures."