extra/base58/base58-tests.factor

   1 USING: base58 math.parser strings tools.test ;
   2
   3 { "" } [ "" >base58 >string ] unit-test
   4 { "" } [ "" base58> >string ] unit-test
   5
   6 { "1" } [ B{ 0 } >base58 >string ] unit-test
   7 { B{ 0 } } [ "1" base58> ] unit-test
   8
   9 { "11" } [ B{ 0 0 } >base58 >string ] unit-test
  10 { B{ 0 0 } } [ "11" base58> ] unit-test
  11
  12 { "111233QC4" }
  13 [ "000000287fb4cd" hex-string>bytes >base58 >string ] unit-test
  14
  15 { "Hello World!" }
  16 [ "2NEpo7TZRRrLZSi2U" base58> >string ] unit-test
  17
  18 { "2NEpo7TZRRrLZSi2U" }
  19 [ "Hello World!" >base58 >string ] unit-test
  20
  21 { "The quick brown fox jumps over the lazy dog." }
  22 [ "USm3fpXnKG5EUBx2ndxBDMPVciP5hGey2Jh4NDv6gmeo1LkMeiKrLJUUBk6Z" base58> >string ] unit-test
  23
  24 { "USm3fpXnKG5EUBx2ndxBDMPVciP5hGey2Jh4NDv6gmeo1LkMeiKrLJUUBk6Z" }
  25 [ "The quick brown fox jumps over the lazy dog." >base58 >string ] unit-test