2018-02-15 16:16:39 -05:00
|
|
|
USING: base85 kernel strings tools.test ;
|
2013-04-04 13:39:43 -04:00
|
|
|
|
|
|
|
|
{ t } [ "Hello, world" dup >base85 base85> >string = ] unit-test
|
2019-01-24 22:21:00 -05:00
|
|
|
{ t } [ "ready" dup >base85 base85> >string = ] unit-test
|
2013-04-04 14:43:17 -04:00
|
|
|
|
2019-01-26 00:14:11 -05:00
|
|
|
{ "NM!" } [ "He" >base85 >string ] unit-test
|
2013-04-04 14:43:17 -04:00
|
|
|
{ t } [ "He" dup >base85 base85> >string = ] unit-test
|
2019-01-26 00:14:11 -05:00
|
|
|
|
|
|
|
|
{ "00" } [ B{ 0 } >base85 >string ] unit-test
|
|
|
|
|
{ "\0" } [ "00" base85> >string ] unit-test
|
