[Emacs-diffs] master de840e4 3/3: automated/package-test.el (package-test-sort-by-dependence): New test

[Artur Malabarba]

branch: master
commit de840e433c8de436fcbbe0a9eb3fbde0b2a33070
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    automated/package-test.el (package-test-sort-by-dependence): New test
---
 test/ChangeLog                 |    1 +
 test/automated/package-test.el |   26 ++++++++++++++++++++++++++
 2 files changed, 27 insertions(+), 0 deletions(-)

diff --git a/test/ChangeLog b/test/ChangeLog
index 1aa82a7..23c4870 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,6 +1,7 @@
 2015-02-05  Artur Malabarba  <address@hidden>
 
        * automated/package-test.el (package-test-get-deps): Fix typo.
+       (package-test-sort-by-dependence): New test
 
 2015-02-03  Artur Malabarba  <address@hidden>
 
diff --git a/test/automated/package-test.el b/test/automated/package-test.el
index cf189dd..7d2a343 100644
--- a/test/automated/package-test.el
+++ b/test/automated/package-test.el
@@ -526,6 +526,32 @@ Must called from within a `tar-mode' buffer."
      (equal (package--get-deps 'simple-depend-2 'direct)
             '(simple-depend-1 multi-file)))))
 
+(ert-deftest package-test-sort-by-dependence ()
+  "Test `package--sort-by-dependence' with complex structures."
+  (let ((package-alist
+         (mapcar (lambda (p) (list (package-desc-name p) p))
+           (list simple-single-desc
+                 simple-depend-desc
+                 multi-file-desc
+                 new-pkg-desc
+                 simple-depend-desc-1
+                 simple-depend-desc-2)))
+        (delete-list
+         (list simple-single-desc
+               simple-depend-desc
+               multi-file-desc
+               new-pkg-desc
+               simple-depend-desc-1
+               simple-depend-desc-2)))
+    (should
+     (equal (package--sort-by-dependence delete-list)
+            (list simple-depend-desc-2 simple-depend-desc-1 new-pkg-desc
+                  multi-file-desc simple-depend-desc simple-single-desc)))
+    (should
+     (equal (package--sort-by-dependence (reverse delete-list))
+            (list new-pkg-desc simple-depend-desc-2 simple-depend-desc-1
+                  multi-file-desc simple-depend-desc simple-single-desc)))))
+
 (provide 'package-test)
 
 ;;; package-test.el ends here