procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* test/src/fns-tests.el (test-secure-hash): Test getrandom format.

Browse source
This commit is contained in:
Paul Eggert 2020-06-29 09:54:45 -07:00
parent 665014452d
commit d0872638b4
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test/src/fns-tests.el
View file

@ -890,6 +890,8 @@
(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))))