summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2025-03-22 05:33:49 -0700
committerMichael Gran <spk121@yahoo.com>2025-03-22 05:57:27 -0700
commitb572f187afaa2dddc6d0a70b16461a2f506a9511 (patch)
tree6cf79852113b6e3b8c4582a3aa68d070b4297f20
parent462d3c85edece865157f9771443ad929bc89d858 (diff)
downloadguile-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.test10
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)))))))