Lucas
2fe090286d
Split along multiple files, produce TAP output, rely on Perl's prove for running them. Improves clarity and hopefully makes it easier to add new tests in the future.
21 lines
784 B
Bash
21 lines
784 B
Bash
#!/bin/sh
|
|
[ -n "${0%/*}" ] && cd "${0%/*}"
|
|
. ./lib.sh
|
|
|
|
if [ ! -x ../otpcli ]; then
|
|
plan 0 "skip: build otpcli first"
|
|
exit 1
|
|
fi
|
|
|
|
plan 6
|
|
|
|
# base32("1234567890123456789012345678901234567890123456789012345678901234")
|
|
key=GEZDGNBVGY3TQOJQGEZDGNBVGY3TQOJQGEZDGNBVGY3TQOJQGEZDGNBVGY3TQOJQGEZDGNBVGY3TQOJQGEZDGNBVGY3TQOJQGEZDGNA
|
|
|
|
check "time 59" 90693936 ../otpcli -d 8 -a sha512 -T 59 "$key"
|
|
check "time 1111111109" 25091201 ../otpcli -d 8 -a sha512 -T 1111111109 "$key"
|
|
check "time 1111111111" 99943326 ../otpcli -d 8 -a sha512 -T 1111111111 "$key"
|
|
check "time 1234567890" 93441116 ../otpcli -d 8 -a sha512 -T 1234567890 "$key"
|
|
check "time 2000000000" 38618901 ../otpcli -d 8 -a sha512 -T 2000000000 "$key"
|
|
check "time 20000000000" 47863826 ../otpcli -d 8 -a sha512 -T 20000000000 "$key"
|