[Guile-commits] GNU Guile branch, master, updated. release_1-9-10-87-ge96bac4

[Julian Graham]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=e96bac4523d22715bd665f40c585046bebfd6c24

The branch, master has been updated
       via  e96bac4523d22715bd665f40c585046bebfd6c24 (commit)
      from  ff6182edfcfb1bd850a15d44b7fed08ab4d6c2f6 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit e96bac4523d22715bd665f40c585046bebfd6c24
Author: Julian Graham <address@hidden>
Date:   Sun May 2 14:58:15 2010 -0400

    Test cases for `version-matches?'.
    
    * test-suite/tests/modules.test ("module versions"): New tests for
      `version-matches?'.

-----------------------------------------------------------------------

Summary of changes:
 test-suite/tests/modules.test |   19 +++++++++++++++++++
 1 files changed, 19 insertions(+), 0 deletions(-)

diff --git a/test-suite/tests/modules.test b/test-suite/tests/modules.test
index ebcafe3..a6a955f 100644
--- a/test-suite/tests/modules.test
+++ b/test-suite/tests/modules.test
@@ -330,3 +330,22 @@
               (current-module)))
        (lambda (key . args)
          #f))))
+
+
+;;;
+;;; R6RS compatibility
+;;;
+
+(with-test-prefix "module versions"
+
+  (pass-if "version-matches? for matching versions"
+    (version-matches? '(1 2 3) '(1 2 3)))
+
+  (pass-if "version-matches? for non-matching versions"
+    (not (version-matches? '(3 2 1) '(1 2 3))))
+
+  (pass-if "version-matches? against more specified version"
+    (version-matches? '(1 2) '(1 2 3)))
+
+  (pass-if "version-matches? against less specified version"
+    (not (version-matches? '(1 2 3) '(1 2)))))


hooks/post-receive
-- 
GNU Guile