From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 5 Jul 2015 17:41:11 +0000 (+0000)
Subject: Fix VECTOR-8B->HEXADECIMAL/UPPERCASE test.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~88
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e53d161f9eba67ad030e4b903c202cbb59ba6adf;p=mit-scheme.git

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

diff --git a/tests/runtime/test-string.scm b/tests/runtime/test-string.scm
index 7c04b3b45..0ae32445d 100644
--- 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