From fd449a269050b50cb639f695508bf2859a30841b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 30 May 2010 22:39:23 +0200 Subject: [PATCH] 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. --- test-suite/tests/version.test | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) 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)))))