From fa1f9aa5a05445988779fae1d85931292b2fec9c Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 5 Apr 2019 13:38:00 -0700
Subject: [PATCH] base64/32/85: adding tests for all byte values.

---
 basis/base64/base64-tests.factor | 6 ++++--
 extra/base32/base32-tests.factor | 4 +++-
 extra/base85/base85-tests.factor | 5 ++---
 3 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/basis/base64/base64-tests.factor b/basis/base64/base64-tests.factor
index e3ab35d250..8821f9654c 100644
--- a/basis/base64/base64-tests.factor
+++ b/basis/base64/base64-tests.factor
@@ -1,5 +1,7 @@
-USING: base64 io.encodings.ascii io.encodings.string kernel
-sequences splitting strings tools.test ;
+USING: base64 byte-arrays io.encodings.ascii io.encodings.string
+kernel sequences splitting strings tools.test ;
+
+{ t } [ 256 <iota> >byte-array dup >base64 base64> = ] unit-test
 
 { "abcdefghijklmnopqrstuvwxyz" } [ "abcdefghijklmnopqrstuvwxyz" ascii encode >base64 base64> ascii decode
 ] unit-test
diff --git a/extra/base32/base32-tests.factor b/extra/base32/base32-tests.factor
index b44dc7b751..da311af0e3 100644
--- a/extra/base32/base32-tests.factor
+++ b/extra/base32/base32-tests.factor
@@ -1,7 +1,9 @@
 ! Copyright (C) 2019 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: base32 sequences tools.test ;
+USING: base32 byte-arrays kernel sequences tools.test ;
+
+{ t } [ 256 <iota> >byte-array dup >base32 base32> = ] unit-test
 
 { B{ } } [ f >base32 ] unit-test
 { B{ } } [ B{ } >base32 ] unit-test
diff --git a/extra/base85/base85-tests.factor b/extra/base85/base85-tests.factor
index 4f1ebd6193..2469281995 100644
--- a/extra/base85/base85-tests.factor
+++ b/extra/base85/base85-tests.factor
@@ -1,7 +1,6 @@
-USING: base85 kernel strings tools.test ;
+USING: base85 byte-arrays kernel sequences strings tools.test ;
 
-{ t } [ "Hello, world" dup >base85 base85> >string = ] unit-test
-{ t } [ "ready" dup >base85 base85> >string = ] unit-test
+{ t } [ 256 <iota> >byte-array dup >base85 base85> = ] unit-test
 
 { "NM!" } [ "He" >base85 >string ] unit-test
 { t } [ "He" dup >base85 base85> >string = ] unit-test
-- 
2.34.1