diff options
| author | Paul Eggert | 2020-06-29 09:54:45 -0700 |
|---|---|---|
| committer | Paul Eggert | 2020-06-29 09:55:33 -0700 |
| commit | d0872638b4f6330bdece465d6cbf5c1d85306c35 (patch) | |
| tree | cceebf3295973ea54d80d049ce45bc43e0069062 /test/src | |
| parent | 665014452dec841302785bcd0fc4dc96d93f3d30 (diff) | |
| download | emacs-d0872638b4f6330bdece465d6cbf5c1d85306c35.tar.gz emacs-d0872638b4f6330bdece465d6cbf5c1d85306c35.zip | |
* test/src/fns-tests.el (test-secure-hash): Test getrandom format.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/fns-tests.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el index b65543a64b5..f1faf58659a 100644 --- a/test/src/fns-tests.el +++ b/test/src/fns-tests.el | |||
| @@ -890,6 +890,8 @@ | |||
| 890 | (should (equal (secure-hash 'sha512 "foobar") | 890 | (should (equal (secure-hash 'sha512 "foobar") |
| 891 | (concat "0a50261ebd1a390fed2bf326f2673c145582a6342d5" | 891 | (concat "0a50261ebd1a390fed2bf326f2673c145582a6342d5" |
| 892 | "23204973d0219337f81616a8069b012587cf5635f69" | 892 | "23204973d0219337f81616a8069b012587cf5635f69" |
| 893 | "25f1b56c360230c19b273500ee013e030601bf2425")))) | 893 | "25f1b56c360230c19b273500ee013e030601bf2425"))) |
| 894 | 894 | ;; Test that a call to getrandom returns the right format. | |
| 895 | (provide 'fns-tests) | 895 | ;; This does not test randomness; it's merely a format check. |
| 896 | (should (string-match "\\`[0-9a-f]\\{128\\}\\'" | ||
| 897 | (secure-hash 'sha512 'iv-auto 100)))) | ||