2019-04-05 15:10:52 -04:00
|
|
|
! Copyright (C) 2019 John Benediktsson
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license
|
|
|
|
|
|
|
|
|
|
USING: base32-crockford tools.test ;
|
|
|
|
|
|
2019-05-20 13:20:47 -04:00
|
|
|
{ "16J" } [ 1234 >base32-crockford ] unit-test
|
|
|
|
|
{ "16JD" } [ 1234 >base32-crockford-checksum ] unit-test
|
|
|
|
|
{ "0" } [ 0 >base32-crockford ] unit-test
|
|
|
|
|
{ "00" } [ 0 >base32-crockford-checksum ] unit-test
|
|
|
|
|
[ -1 >base32-crockford ] must-fail
|
|
|
|
|
[ 1.0 >base32-crockford ] must-fail
|
2019-04-05 15:10:52 -04:00
|
|
|
|
2019-05-20 13:20:47 -04:00
|
|
|
{ 1234 } [ "16J" base32-crockford> ] unit-test
|
|
|
|
|
{ 1234 } [ "I6J" base32-crockford> ] unit-test
|
|
|
|
|
{ 1234 } [ "i6J" base32-crockford> ] unit-test
|
|
|
|
|
{ 1234 } [ "16JD" base32-crockford-checksum> ] unit-test
|
|
|
|
|
{ 1234 } [ "I6JD" base32-crockford-checksum> ] unit-test
|
|
|
|
|
{ 1234 } [ "i6JD" base32-crockford-checksum> ] unit-test
|
|
|
|
|
{ 0 } [ "0" base32-crockford> ] unit-test
|
|
|
|
|
{ 0 } [ "00" base32-crockford-checksum> ] unit-test
|
