blob: 9b85b1521dd2117942915b770979e8c3580fd06d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(use-modules (webid-oidc stubs)
(webid-oidc testing))
(with-test-environment
"random"
(lambda ()
(let ((data (random 12))
(expected "68OMG_V5x-KmI6TI"))
(unless (string=? data expected)
(format (current-error-port)
"Non-reproducibility issue with the random number generator:
expected: ~a
obtained: ~a
"
expected
data)
(exit 1)))))
|