From e175f4bf87fa3b4e8e8f320b618f272081dad2ef Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Sat, 14 May 2016 07:57:22 -0400 Subject: [PATCH] Add tests for el-get-compute-new-status --- test/el-get-tests.el | 112 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 112 insertions(+) diff --git a/test/el-get-tests.el b/test/el-get-tests.el index 56294ecb4..d0ea245ff 100644 --- a/test/el-get-tests.el +++ b/test/el-get-tests.el @@ -7,6 +7,16 @@ (defmacro* ert-deftest (name () &body docstring-keys-and-body) (message "Skipping tests, ERT is not available")))) +(defun el-get-plist-equal (plist1 plist2) + (let ((keys (el-get-plist-keys plist1))) + (and (equal (sort keys #'string<) + (sort (el-get-plist-keys plist2) #'string<)) + (loop for key in keys + unless (equal (plist-get plist1 key) + (plist-get plist2 key)) + return nil + finally return t)))) + (defvar el-get-test-output-buffer nil) (when noninteractive (defadvice message (around el-get-test-catch-output activate) @@ -125,3 +135,105 @@ Following variables are bound to temporal values: (should-not (featurep pkg)) (el-get 'sync (mapcar 'el-get-source-name el-get-sources)) (should (featurep pkg))))) + +(defun el-get-test-compute-new-status-equal (status1 status2) + "Check equality for `el-get-compute-new-status' results." + (and (el-get-plist-equal (nth 0 status1) (nth 0 status2)) + (equal (nth 1 status1) (nth 1 status2)) + (el-get-plist-equal (nth 2 status1) (nth 2 status2)) + (el-get-plist-equal (nth 3 status1) (nth 3 status2)))) + +(ert-deftest el-get-test-compute-new-status () + "Test `el-get-compute-new-status'." + (let* ((old '(:name a + :type git + :load-path "load-old" + :depends (depends old) + :build (("build" "old")) + :build/gnu-linux (("build/gnu-linux" "old")) + :url "http://example.com/url/old")) + (new '(:name a + :type git + :load-path "load-new" + :depends (depends new) + :build (("build" "new")) + :build/gnu-linux (("build/gnu-linux" "new")) + :url "http://example.com/url/new")) + (expected '((:name a + :type git + :load-path "load-new" + :depends (depends old) + :build (("build" "old")) + :build/gnu-linux (("build/gnu-linux" "old")) + :url "http://example.com/url/old") + (reinstall) + (:depends (depends new) + :build (("build new")) + :build/gnu-linux (("build/gnu-linux" "new")) + :url "http://example.com/url/new") + (:depends (depends old) + :build (("build old")) + :build/gnu-linux (("build/gnu-linux" "old")) + :url "http://example.com/url/old"))) + (update-expected '((:name a + :type git + :load-path "load-new" + :depends (depends new) + :build (("build" "new")) + :build/gnu-linux (("build/gnu-linux" "new")) + :url "http://example.com/url/old") + (reinstall) + (:url "http://example.com/url/new") + (:url "http://example.com/url/old")))) + (should (el-get-test-compute-new-status-equal + (el-get-compute-new-status 'init old new) + expected)) + (should (el-get-test-compute-new-status-equal + (el-get-compute-new-status 'update old new) + update-expected)) + (should (el-get-test-compute-new-status-equal + (el-get-compute-new-status 'reinstall old new) + (list new nil nil nil))))) + +(ert-deftest el-get-test-compute-new-status-2 () + "Test `el-get-compute-new-status'." + (let* ((old '(:name a + :type git + :load-path "load-old" + :depends (depends old) + :build (("build" "old")) + :build/gnu-linux (("build/gnu-linux" "old")) + :url "http://example.com/url/old")) + (new '(:name a + :type git + :load-path "load-new" + :depends (depends new) + :build (("build" "new")) + :build/gnu-linux (("build/gnu-linux" "new")) + :url "http://example.com/url/old")) + (init-result (el-get-compute-new-status 'init old new)) + (init-expected '((:name a + :type git + :load-path "load-new" + :depends (depends old) + :build (("build" "old")) + :build/gnu-linux (("build/gnu-linux" "old")) + :url "http://example.com/url/old") + (update reinstall) + (:depends (depends new) + :build (("build new")) + :build/gnu-linux (("build/gnu-linux" "new"))) + (:depends (depends old) + :build (("build old")) + :build/gnu-linux (("build/gnu-linux" "old"))))) + (update-result (el-get-compute-new-status 'update old new)) + (update-expected '((:name a + :type git + :load-path "load-new" + :depends (depends new) + :build (("build" "new")) + :build/gnu-linux (("build/gnu-linux" "new")) + :url "http://example.com/url/old") + nil nil nil))) + (should (el-get-test-compute-new-status-equal init-result init-expected)) + (should (el-get-test-compute-new-status-equal update-result update-expected))))