diff --git a/test/lisp/emacs-lisp/package-tests.el b/test/lisp/emacs-lisp/package-tests.el index a6d9f13a289..a2e4adb7b8e 100644 --- a/test/lisp/emacs-lisp/package-tests.el +++ b/test/lisp/emacs-lisp/package-tests.el @@ -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."