mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-09 00:11:49 -07:00
Code Issues Projects Releases Wiki Activity

automated/package-test.el (package-test-sort-by-dependence): New test

Browse source
This commit is contained in:
Artur Malabarba 2015-02-05 19:47:49 -02:00
parent c03deb4df9
commit de840e433c
2 changed files with 27 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
test/ChangeLog
View file

@ -1,6 +1,7 @@
2015-02-05 Artur Malabarba <bruce.connor.am@gmail.com>
* automated/package-test.el (package-test-get-deps): Fix typo.
(package-test-sort-by-dependence): New test
2015-02-03 Artur Malabarba <bruce.connor.am@gmail.com>

26
test/automated/package-test.el
View file

@ -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