Fix VECTOR-8B->HEXADECIMAL/UPPERCASE test.

diff --git a/tests/runtime/test-string.scm b/tests/runtime/test-string.scm
index 7c04b3b459914273b419c9d3e09bafd1edacc827..0ae32445d80ea3f2592633138f8e5e3094758a83 100644 (file)
--- a/tests/runtime/test-string.scm
+++ b/tests/runtime/test-string.scm
@@ -93,7 +93,7 @@ USA.
 
 (define-test 'VECTOR-8B->HEXADECIMAL/UPPERCASE
   (lambda ()
-    (assert-equal (allbytes:lower)
+    (assert-equal (allbytes:upper)
                   (string-upcase (vector-8b->hexadecimal (allbytes))))))
 
 (define-test 'VECTOR-8B->HEXADECIMAL->VECTOR-8B