; Adjust package tests for 789e98e54feHEADmaster

* test/lisp/emacs-lisp/package-tests.el (package-test-get-deps):
Replace test with an analogous test for 'package--dependencies'.

1 files changed, 9 insertions, 10 deletions

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."