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

diff --git a/test-suite/tests/version.test b/test-suite/tests/version.test
index c1ce395b6559397cdbd5d98876f17bc6838d1729..7ea358d4e067ab79d5ebeb5b62c945d941661a7a 100644 (file)
--- 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))))))