1 ! Copyright (C) 2019 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license
4 USING: base32-crockford tools.test ;
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
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