mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Updated test for new micro version stuff.

Browse source
This commit is contained in:
Marius Vollmer 2001-05-19 01:23:23 +00:00
parent 9bba1435c3
commit fce1a51729
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,4 +1,4 @@
;;;; chars.test --- test suite for Guile's char functions -*- scheme -*- ;;;; versions.test --- test suite for Guile's version functions -*- scheme -*-
;;;; Greg J. Badros <gjb@cs.washington.edu> ;;;; Greg J. Badros <gjb@cs.washington.edu>
;;;; ;;;;
;;;; Copyright (C) 2000 Free Software Foundation, Inc. ;;;; Copyright (C) 2000 Free Software Foundation, Inc.
@ -23,4 +23,8 @@
(pass-if "version reporting works" (pass-if "version reporting works"
(and (string? (major-version)) (and (string? (major-version))
(string? (minor-version)) (string? (minor-version))
(string=? (version) (string-append (major-version) "." (minor-version))))) (string? (micro-version))
(string=? (version)
(string-append (major-version) "."
(minor-version) "."
(micro-version)))))