mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

Relax the `(version)' test.

Browse source 
* test-suite/tests/version.test ("version reporting works"): Test
  whether `(version)' contains MAJOR.MINOR.MICRO, rather than being
  equal to it.
This commit is contained in:
Ludovic Courtès 2010-05-30 22:39:23 +02:00
parent db10a69bf4
commit fd449a2690
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
test-suite/tests/version.test
View file

@ -1,4 +1,4 @@
;;;; versions.test --- test suite for Guile's version functions -*- scheme -*-
;;;; 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.
@ -17,13 +17,14 @@
;;;; License along with this library; if not, write to the Free Software
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
(use-modules (test-suite lib))
(define-module (test-version)
#:use-module (test-suite lib))
(pass-if "version reporting works"
(and (string? (major-version))
(string? (minor-version))
(string? (micro-version))
(string=? (version)
(string-append (major-version) "."
(minor-version) "."
(micro-version)))))
(string-contains (version)
(string-append (major-version) "."
(minor-version) "."
(micro-version)))))