diff --git a/test-suite/tests/version.test b/test-suite/tests/version.test index 178928768..c1ce395b6 100644 --- 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 ;;;; ;;;; 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)))))