extra/base91/base91-tests.factor

   1 USING: base91 byte-arrays kernel sequences tools.test ;
   2
   3 { t } [ 256 <iota> >byte-array dup >base91 base91> = ] unit-test
   4
   5 { B{ } } [ f >base91 ] unit-test
   6 { "AA" } [ B{ 0 } >base91 "" like ] unit-test
   7 { "GB" } [ "a" >base91 "" like ] unit-test
   8 { "#GD" } [ "ab" >base91 "" like ] unit-test
   9 { "#G(I" } [ "abc" >base91 "" like ] unit-test
  10 { "#G(IZ" } [ "abcd" >base91 "" like ] unit-test
  11 { "#G(Ic,A" } [ "abcde" >base91 "" like ] unit-test
  12 { "#G(Ic,WC" } [ "abcdef" >base91 "" like ] unit-test
  13 { "#G(Ic,5pG" } [ "abcdefg" >base91 "" like ] unit-test
  14
  15 { B{ } } [ f base91> ] unit-test
  16 { "\0" } [ "AA" base91> "" like ] unit-test
  17 { "a" } [ "GB" base91> "" like ] unit-test
  18 { "ab" } [ "#GD" base91> "" like ] unit-test
  19 { "abc" } [ "#G(I" base91> "" like ] unit-test
  20 { "abcd" } [ "#G(IZ" base91> "" like ] unit-test
  21 { "abcde" } [ "#G(Ic,A" base91> "" like ] unit-test
  22 { "abcdef" } [ "#G(Ic,WC" base91> "" like ] unit-test
  23 { "abcdefg" } [ "#G(Ic,5pG" base91> "" like ] unit-test