diff --git a/test-suite/tests/version.test b/test-suite/tests/version.test index 7ea358d4e..43beac3fc 100644 --- a/test-suite/tests/version.test +++ b/test-suite/tests/version.test @@ -1,7 +1,7 @@ ;;;; version.test --- test suite for Guile's version functions -*- scheme -*- ;;;; Greg J. Badros ;;;; -;;;; Copyright (C) 2000,2001,2006,2010,2020 Free Software Foundation, Inc. +;;;; Copyright (C) 2000,2001,2006,2010,2020,2025 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -26,7 +26,7 @@ (and (string? (major-version)) (string? (minor-version)) (string? (micro-version)) - (string-contains (version) - (string-append (major-version) "." - (minor-version) "." - (micro-version)))))) + (equal? 0 (string-contains (version) + (string-append (major-version) "." + (minor-version) "." + (micro-version)))))))