1 USING: base85 byte-arrays kernel sequences strings tools.test ;
3 { t } [ 256 <iota> >byte-array dup >base85 base85> = ] unit-test
5 { "NM!" } [ "He" >base85 >string ] unit-test
6 { t } [ "He" dup >base85 base85> >string = ] unit-test
8 { "00" } [ B{ 0 } >base85 >string ] unit-test
9 { "\0" } [ "00" base85> >string ] unit-test