base16/32/64: adding test cases from RFC 4648.

[factor.git] / extra / base32 / base32-tests.factor

diff --git a/extra/base32/base32-tests.factor b/extra/base32/base32-tests.factor
index 20fd7d338473f029bc605f31a898bbdcc7474570..67e68e1c5852ed7da8d87c358c6a1f1cb17ece33 100644 (file)
--- a/extra/base32/base32-tests.factor
+++ b/extra/base32/base32-tests.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2019 John Benediktsson
 ! See https://factorcode.org/license.txt for BSD license
 
-USING: base32 byte-arrays kernel sequences tools.test ;
+USING: base32 byte-arrays kernel sequences strings tools.test ;
 
 { t } [ 256 <iota> >byte-array dup >base32 base32> = ] unit-test
 
@@ -22,3 +22,19 @@ USING: base32 byte-arrays kernel sequences tools.test ;
 { "abc" } [ "MFRGG===" base32> "" like ] unit-test
 { "abcd" } [ "MFRGGZA=" base32> "" like ] unit-test
 { "abcde" } [ "MFRGGZDF" base32> "" like ] unit-test
+
+{ "" } [ "" >base32 >string ] unit-test
+{ "MY======" } [ "f" >base32 >string ] unit-test
+{ "MZXQ====" } [ "fo" >base32 >string ] unit-test
+{ "MZXW6===" } [ "foo" >base32 >string ] unit-test
+{ "MZXW6YQ=" } [ "foob" >base32 >string ] unit-test
+{ "MZXW6YTB" } [ "fooba" >base32 >string ] unit-test
+{ "MZXW6YTBOI======" } [ "foobar" >base32 >string ] unit-test
+
+{ "" } [ "" base32> >string ] unit-test
+{ "f" } [ "MY======" base32> >string ] unit-test
+{ "fo" } [ "MZXQ====" base32> >string ] unit-test
+{ "foo" } [ "MZXW6===" base32> >string ] unit-test
+{ "foob" } [ "MZXW6YQ=" base32> >string ] unit-test
+{ "fooba" } [ "MZXW6YTB" base32> >string ] unit-test
+{ "foobar" } [ "MZXW6YTBOI======" base32> >string ] unit-test