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

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

diff --git a/extra/base32hex/base32hex-tests.factor b/extra/base32hex/base32hex-tests.factor
index a9f947af5f52fd8182f0f99f23332b514948733e..3634bca278bb424629b02d59bf3bb46574ff96e8 100644 (file)
--- a/extra/base32hex/base32hex-tests.factor
+++ b/extra/base32hex/base32hex-tests.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2022 John Benediktsson
 ! See https://factorcode.org/license.txt for BSD license
 
-USING: base32hex byte-arrays kernel sequences tools.test ;
+USING: base32hex byte-arrays kernel sequences strings tools.test ;
 
 { t } [ 256 <iota> >byte-array dup >base32hex base32hex> = ] unit-test
 
@@ -22,3 +22,19 @@ USING: base32hex byte-arrays kernel sequences tools.test ;
 { "abc" } [ "C5H66===" base32hex> "" like ] unit-test
 { "abcd" } [ "C5H66P0=" base32hex> "" like ] unit-test
 { "abcde" } [ "C5H66P35" base32hex> "" like ] unit-test
+
+{ "" } [ "" >base32hex >string ] unit-test
+{ "CO======" } [ "f" >base32hex >string ] unit-test
+{ "CPNG====" } [ "fo" >base32hex >string ] unit-test
+{ "CPNMU===" } [ "foo" >base32hex >string ] unit-test
+{ "CPNMUOG=" } [ "foob" >base32hex >string ] unit-test
+{ "CPNMUOJ1" } [ "fooba" >base32hex >string ] unit-test
+{ "CPNMUOJ1E8======" } [ "foobar" >base32hex >string ] unit-test
+
+{ "" } [ "" base32hex> >string ] unit-test
+{ "f" } [ "CO======" base32hex> >string ] unit-test
+{ "fo" } [ "CPNG====" base32hex> >string ] unit-test
+{ "foo" } [ "CPNMU===" base32hex> >string ] unit-test
+{ "foob" } [ "CPNMUOG=" base32hex> >string ] unit-test
+{ "fooba" } [ "CPNMUOJ1" base32hex> >string ] unit-test
+{ "foobar" } [ "CPNMUOJ1E8======" base32hex> >string ] unit-test