diff options
author | Michael Gran <spk121@yahoo.com> | 2025-03-22 05:33:49 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2025-03-22 05:57:27 -0700 |
commit | b572f187afaa2dddc6d0a70b16461a2f506a9511 (patch) | |
tree | 6cf79852113b6e3b8c4582a3aa68d070b4297f20 | |
parent | 462d3c85edece865157f9771443ad929bc89d858 (diff) | |
download | guile-b572f187afaa2dddc6d0a70b16461a2f506a9511.tar.gz |
version.test: incorrect test logic
Since string-contains returns an integer on success, this test
was reporting unresolved instead of pass on success.
* test-suite/tests/version.test ("version reporting works"): fix
boolean check logic
-rw-r--r-- | test-suite/tests/version.test | 10 |
1 files changed, 5 insertions, 5 deletions
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 <gjb@cs.washington.edu> ;;;; -;;;; 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))))))) |