diff options
author | Michael Gran <spk121@yahoo.com> | 2020-12-28 14:53:07 -0800 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2021-01-21 15:35:09 -0800 |
commit | efecac1c7de740cc96505d4cc906654374ffb372 (patch) | |
tree | 0efdebfcfaba42321bd47c10757e3c1e303ae492 | |
parent | 449b9bd5e15c4589698055b5fd704abb20840d42 (diff) | |
download | guile-efecac1c7de740cc96505d4cc906654374ffb372.tar.gz |
skip version test if git-version-gen can't compute version from git
This might occur due to a shallow git clone.
* test-suite/tests/version.test: throw unsupported if version is unknown
-rw-r--r-- | test-suite/tests/version.test | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/test-suite/tests/version.test b/test-suite/tests/version.test index c1ce395b6..7ea358d4e 100644 --- a/test-suite/tests/version.test +++ b/test-suite/tests/version.test @@ -1,18 +1,18 @@ ;;;; version.test --- test suite for Guile's version functions -*- scheme -*- ;;;; Greg J. Badros <gjb@cs.washington.edu> ;;;; -;;;; Copyright (C) 2000, 2001, 2006, 2010 Free Software Foundation, Inc. -;;;; +;;;; Copyright (C) 2000,2001,2006,2010,2020 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 ;;;; License as published by the Free Software Foundation; either ;;;; version 3 of the License, or (at your option) any later version. -;;;; +;;;; ;;;; This library is distributed in the hope that it will be useful, ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;;; Lesser General Public License for more details. -;;;; +;;;; ;;;; You should have received a copy of the GNU Lesser General Public ;;;; License along with this library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA @@ -21,10 +21,12 @@ #:use-module (test-suite lib)) (pass-if "version reporting works" - (and (string? (major-version)) - (string? (minor-version)) - (string? (micro-version)) - (string-contains (version) - (string-append (major-version) "." - (minor-version) "." - (micro-version))))) + (if (string-contains (version) "UNKNOWN") + (throw 'unsupported) + (and (string? (major-version)) + (string? (minor-version)) + (string? (micro-version)) + (string-contains (version) + (string-append (major-version) "." + (minor-version) "." + (micro-version)))))) |