From e53d161f9eba67ad030e4b903c202cbb59ba6adf Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 5 Jul 2015 17:41:11 +0000 Subject: [PATCH] Fix VECTOR-8B->HEXADECIMAL/UPPERCASE test. --- tests/runtime/test-string.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.25.1