diff options
Diffstat (limited to 'test/cider-util-tests.el')
-rw-r--r-- | test/cider-util-tests.el | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/test/cider-util-tests.el b/test/cider-util-tests.el index 0ea18864..adfb8881 100644 --- a/test/cider-util-tests.el +++ b/test/cider-util-tests.el @@ -1,6 +1,7 @@ (require 'cider) (require 'cider-util) (require 'ert) +(require 'noflet) ;;; cider-util tests (ert-deftest cider-symbol-at-point-dont-move () @@ -10,3 +11,21 @@ (should (not (cider-symbol-at-point))) (should (equal "else" (cider-symbol-at-point 'lookback))) (should (= (point) (point-max))))) + +(ert-deftest cider--version-fallback () + (noflet ((pkg-info-version-info (package) (error "No version"))) + (let ((cider-version "0.11.0") + (cider-codename "Victory")) + (should (string= (cider--version) "0.11.0 (Victory)"))))) + +(ert-deftest cider--version-stable-version () + (noflet ((pkg-info-version-info (package) "0.11.0")) + (let ((cider-version "0.11.0") + (cider-codename "Victory")) + (should (string= (cider--version) "0.11.0 (Victory)"))))) + +(ert-deftest cider--version-snapshot-version () + (noflet ((pkg-info-version-info (package) "0.11.0snapshot (package: 20160301.2217)")) + (let ((cider-version "0.11.0-snapshot") + (cider-codename "Victory")) + (should (string= (cider--version) "0.11.0snapshot (package: 20160301.2217)"))))) |