Relax the `(version)' test.

* test-suite/tests/version.test ("version reporting works"): Test
  whether `(version)' contains MAJOR.MINOR.MICRO, rather than being
  equal to it.

diff --git a/test-suite/tests/version.test b/test-suite/tests/version.test
index 1789287..c1ce395 100644 (file)
--- a/test-suite/tests/version.test
+++ b/test-suite/tests/version.test
@@ -1,4 +1,4 @@
-;;;; versions.test --- test suite for Guile's version functions  -*- scheme -*-
+;;;; version.test --- test suite for Guile's version functions  -*- scheme -*-
 ;;;; Greg J. Badros <gjb@cs.washington.edu>
 ;;;;
 ;;;;   Copyright (C) 2000, 2001, 2006, 2010 Free Software Foundation, Inc.
@@ -17,13 +17,14 @@
 ;;;; License along with this library; if not, write to the Free Software
 ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 
-(use-modules (test-suite lib))
+(define-module (test-version)
+  #:use-module (test-suite lib))
 
 (pass-if "version reporting works"
         (and (string? (major-version))
              (string? (minor-version))
              (string? (micro-version))
-             (string=? (version)
-                       (string-append (major-version) "."
-                                      (minor-version) "."
-                                      (micro-version)))))
+             (string-contains (version)
+                               (string-append (major-version) "."
+                                              (minor-version) "."
+                                              (micro-version)))))