extra/base32-crockford/base32-crockford-tests.factor

   1 ! Copyright (C) 2019 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: base32-crockford tools.test ;
   5
   6 { "16J" } [ 1234 >base32-crockford ] unit-test
   7 { "16JD" } [ 1234 >base32-crockford-checksum ] unit-test
   8 { "0" } [ 0 >base32-crockford ] unit-test
   9 { "00" } [ 0 >base32-crockford-checksum ] unit-test
  10 [ -1 >base32-crockford ] must-fail
  11 [ 1.0 >base32-crockford ] must-fail
  12
  13 { 1234 } [ "16J" base32-crockford> ] unit-test
  14 { 1234 } [ "I6J" base32-crockford> ] unit-test
  15 { 1234 } [ "i6J" base32-crockford> ] unit-test
  16 { 1234 } [ "16JD" base32-crockford-checksum> ] unit-test
  17 { 1234 } [ "I6JD" base32-crockford-checksum> ] unit-test
  18 { 1234 } [ "i6JD" base32-crockford-checksum> ] unit-test
  19 { 0 } [ "0" base32-crockford> ] unit-test
  20 { 0 } [ "00" base32-crockford-checksum> ] unit-test