extra/base36/base36-tests.factor

   1 USING: base36 math.parser strings tools.test ;
   2
   3 { "" } [ "" >base36 >string ] unit-test
   4 { "" } [ "" base36> >string ] unit-test
   5
   6 { "0" } [ B{ 0 } >base36 >string ] unit-test
   7 { B{ 0 } } [ "0" base36> ] unit-test
   8
   9 { "00" } [ B{ 0 0 } >base36 >string ] unit-test
  10 { B{ 0 0 } } [ "00" base36> ] unit-test
  11
  12 { "ZIK0ZJ" } [ 2147483647 n>base36 >string ] unit-test
  13 { 2147483647 } [ "ZIK0ZJ" base36>n ] unit-test
  14
  15 { "1Y2P0IJ32E8E7" } [ 9223372036854775807 n>base36 >string ] unit-test
  16 { 9223372036854775807 } [ "1Y2P0IJ32E8E7" base36>n ] unit-test