From d0872638b4f6330bdece465d6cbf5c1d85306c35 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 29 Jun 2020 09:54:45 -0700 Subject: [PATCH] * test/src/fns-tests.el (test-secure-hash): Test getrandom format. --- test/src/fns-tests.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el index b65543a64b..f1faf58659 100644 --- a/test/src/fns-tests.el +++ b/test/src/fns-tests.el @@ -890,6 +890,8 @@ test-secure-hash (should (equal (secure-hash 'sha512 "foobar") (concat "0a50261ebd1a390fed2bf326f2673c145582a6342d5" "23204973d0219337f81616a8069b012587cf5635f69" - "25f1b56c360230c19b273500ee013e030601bf2425")))) - -(provide 'fns-tests) + "25f1b56c360230c19b273500ee013e030601bf2425"))) + ;; Test that a call to getrandom returns the right format. + ;; This does not test randomness; it's merely a format check. + (should (string-match "\\`[0-9a-f]\\{128\\}\\'" + (secure-hash 'sha512 'iv-auto 100)))) -- 2.17.1