master fcad41c: Add tests for version comparison predicates

[Stefan Kangas]

branch: master
commit fcad41c14db874f139db45cbf9e90f7309687d20
Author: Stefan Kangas <address@hidden>
Commit: Stefan Kangas <address@hidden>

    Add tests for version comparison predicates
    
    * test/lisp/subr-tests.el (subr-test-version-list-<)
    (subr-test-version-list-=, subr-test-version-list-<=): New tests.
---
 test/lisp/subr-tests.el | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el
index 059d52b..a583d57 100644
--- a/test/lisp/subr-tests.el
+++ b/test/lisp/subr-tests.el
@@ -244,6 +244,27 @@
               (error-message-string (should-error (version-to-list 
"beta22_8alpha3")))
               "Invalid version syntax: `beta22_8alpha3' (must start with a 
number)"))))
 
+(ert-deftest subr-test-version-list-< ()
+  (should (version-list-< '(0) '(1)))
+  (should (version-list-< '(0 9) '(1 0)))
+  (should (version-list-< '(1 -1) '(1 0)))
+  (should (version-list-< '(1 -2) '(1 -1)))
+  (should (not (version-list-< '(1) '(0))))
+  (should (not (version-list-< '(1 1) '(1 0))))
+  (should (not (version-list-< '(1) '(1 0))))
+  (should (not (version-list-< '(1 0) '(1 0 0)))))
+
+(ert-deftest subr-test-version-list-= ()
+  (should (version-list-= '(1) '(1)))
+  (should (version-list-= '(1 0) '(1)))
+  (should (not (version-list-= '(0) '(1)))))
+
+(ert-deftest subr-test-version-list-<= ()
+  (should (version-list-<= '(0) '(1)))
+  (should (version-list-<= '(1) '(1)))
+  (should (version-list-<= '(1 0) '(1)))
+  (should (not (version-list-<= '(1) '(0)))))
+
 (defun subr-test--backtrace-frames-with-backtrace-frame (base)
   "Reference implementation of `backtrace-frames'."
   (let ((idx 0)