[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master de840e4 3/3: automated/package-test.el (package-tes
From: |
Artur Malabarba |
Subject: |
[Emacs-diffs] master de840e4 3/3: automated/package-test.el (package-test-sort-by-dependence): New test |
Date: |
Thu, 05 Feb 2015 22:32:26 +0000 |
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