diff options
Diffstat (limited to 'src/couch/test/eunit/couch_totp_tests.erl')
-rw-r--r-- | src/couch/test/eunit/couch_totp_tests.erl | 37 |
1 files changed, 12 insertions, 25 deletions
diff --git a/src/couch/test/eunit/couch_totp_tests.erl b/src/couch/test/eunit/couch_totp_tests.erl index 6817a092a..3c831365f 100644 --- a/src/couch/test/eunit/couch_totp_tests.erl +++ b/src/couch/test/eunit/couch_totp_tests.erl @@ -25,31 +25,18 @@ totp_sha_test() -> totp_sha256_test() -> Key = <<"12345678901234567890123456789012">>, - case sha_256_512_supported() of - true -> - ?assertEqual(46119246, couch_totp:generate(sha256, Key, 59, 30, 8)), - ?assertEqual(68084774, couch_totp:generate(sha256, Key, 1111111109, 30, 8)), - ?assertEqual(67062674, couch_totp:generate(sha256, Key, 1111111111, 30, 8)), - ?assertEqual(91819424, couch_totp:generate(sha256, Key, 1234567890, 30, 8)), - ?assertEqual(90698825, couch_totp:generate(sha256, Key, 2000000000, 30, 8)), - ?assertEqual(77737706, couch_totp:generate(sha256, Key, 20000000000, 30, 8)); - false -> - ?debugMsg("sha256 not supported, tests skipped") - end. + ?assertEqual(46119246, couch_totp:generate(sha256, Key, 59, 30, 8)), + ?assertEqual(68084774, couch_totp:generate(sha256, Key, 1111111109, 30, 8)), + ?assertEqual(67062674, couch_totp:generate(sha256, Key, 1111111111, 30, 8)), + ?assertEqual(91819424, couch_totp:generate(sha256, Key, 1234567890, 30, 8)), + ?assertEqual(90698825, couch_totp:generate(sha256, Key, 2000000000, 30, 8)), + ?assertEqual(77737706, couch_totp:generate(sha256, Key, 20000000000, 30, 8)). totp_sha512_test() -> Key = <<"1234567890123456789012345678901234567890123456789012345678901234">>, - case sha_256_512_supported() of - true -> - ?assertEqual(90693936, couch_totp:generate(sha512, Key, 59, 30, 8)), - ?assertEqual(25091201, couch_totp:generate(sha512, Key, 1111111109, 30, 8)), - ?assertEqual(99943326, couch_totp:generate(sha512, Key, 1111111111, 30, 8)), - ?assertEqual(93441116, couch_totp:generate(sha512, Key, 1234567890, 30, 8)), - ?assertEqual(38618901, couch_totp:generate(sha512, Key, 2000000000, 30, 8)), - ?assertEqual(47863826, couch_totp:generate(sha512, Key, 20000000000, 30, 8)); - false -> - ?debugMsg("sha512 not supported, tests skipped") - end. - -sha_256_512_supported() -> - erlang:function_exported(crypto, hmac, 3). + ?assertEqual(90693936, couch_totp:generate(sha512, Key, 59, 30, 8)), + ?assertEqual(25091201, couch_totp:generate(sha512, Key, 1111111109, 30, 8)), + ?assertEqual(99943326, couch_totp:generate(sha512, Key, 1111111111, 30, 8)), + ?assertEqual(93441116, couch_totp:generate(sha512, Key, 1234567890, 30, 8)), + ?assertEqual(38618901, couch_totp:generate(sha512, Key, 2000000000, 30, 8)), + ?assertEqual(47863826, couch_totp:generate(sha512, Key, 20000000000, 30, 8)). |