(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)))))