Updated test for new micro version stuff.

diff --git a/test-suite/tests/version.test b/test-suite/tests/version.test
index 0f9531c..3bf6bb6 100644 (file)
--- a/test-suite/tests/version.test
+++ b/test-suite/tests/version.test
@@ -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>
 ;;;;
 ;;;;   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)))))