extra/base62/base62-tests.factor

   1 USING: base62 math.parser strings tools.test ;
   2
   3 { "" } [ "" >base62 >string ] unit-test
   4 { "" } [ "" base62> >string ] unit-test
   5
   6 { "0" } [ B{ 0 } >base62 >string ] unit-test
   7 { B{ 0 } } [ "0" base62> ] unit-test
   8
   9 { "00" } [ B{ 0 0 } >base62 >string ] unit-test
  10 { B{ 0 0 } } [ "00" base62> ] unit-test
  11
  12 { "Q0DRQksv" } [ "SIMPLE" >base62 >string ] unit-test
  13 { "SIMPLE" } [ "Q0DRQksv" base62> >string ] unit-test