guile/guile-core/test-suite/tests version.test

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/18 18:23:23

Modified files:
        guile-core/test-suite/tests: version.test 

Log message:
        Updated test for new micro version stuff.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/test-suite/tests/version.test.diff?cvsroot=OldCVS&tr1=1.1&tr2=1.2&r1=text&r2=text

Patches:
Index: guile/guile-core/test-suite/tests/version.test
diff -u guile/guile-core/test-suite/tests/version.test:1.1 
guile/guile-core/test-suite/tests/version.test:1.2
--- guile/guile-core/test-suite/tests/version.test:1.1  Sun Jan 16 14:03:44 2000
+++ guile/guile-core/test-suite/tests/version.test      Fri May 18 18:23:23 2001
@@ -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 <address@hidden>
 ;;;;
 ;;;;   Copyright (C) 2000 Free Software Foundation, Inc.
@@ -23,4 +23,8 @@
 (pass-if "version reporting works"
         (and (string? (major-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)))))