extra/base85/base85-tests.factor

   1 USING: kernel strings tools.test ;
   2 IN: base85
   3
   4 { t } [ "Hello, world" dup >base85 base85> >string = ] unit-test
   5
   6 { "NM!&3" } [ "He" >base85 >string ] unit-test
   7 { t } [ "He" dup >base85 base85> >string = ] unit-test