extra/base32hex/base32hex-tests.factor

   1 ! Copyright (C) 2022 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: base32hex byte-arrays kernel sequences tools.test ;
   5
   6 { t } [ 256 <iota> >byte-array dup >base32hex base32hex> = ] unit-test
   7
   8 { B{ } } [ f >base32hex ] unit-test
   9 { B{ } } [ B{ } >base32hex ] unit-test
  10 { "00======" } [ "\0" >base32hex "" like ] unit-test
  11 { "C4======" } [ "a" >base32hex "" like ] unit-test
  12 { "C5H0====" } [ "ab" >base32hex "" like ] unit-test
  13 { "C5H66===" } [ "abc" >base32hex "" like ] unit-test
  14 { "C5H66P0=" } [ "abcd" >base32hex "" like ] unit-test
  15 { "C5H66P35" } [ "abcde" >base32hex "" like ] unit-test
  16
  17 { B{ } } [ f base32hex> ] unit-test
  18 { B{ } } [ B{ } base32hex> ] unit-test
  19 { "\0" } [ "00======" base32hex> "" like ] unit-test
  20 { "a" } [ "C4======" base32hex> "" like ] unit-test
  21 { "ab" } [ "C5H0====" base32hex> "" like ] unit-test
  22 { "abc" } [ "C5H66===" base32hex> "" like ] unit-test
  23 { "abcd" } [ "C5H66P0=" base32hex> "" like ] unit-test
  24 { "abcde" } [ "C5H66P35" base32hex> "" like ] unit-test