blob: b73db5f43aa4a74c99feffb5561cf65a341316fd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(define-module (test uuid)
:use-module (srfi srfi-64)
:use-module (srfi srfi-64 test-error)
:use-module (srfi srfi-88)
:use-module (hnh util uuid))
(test-equal "UUIDv4 fixed seed"
(let ((version (version)))
(cond ((string=? version "2.2.7")
"d19c9347-9a85-4432-a876-5fb9c0d24d2b")
((string=? version "3.0.9")
"d19c9347-9a85-4432-a876-5fb9c0d24d2b")
(else
"Randomness isn't stable between guile versions")))
(begin
(parameterize ((seed (seed->random-state 0)))
(uuid-v4))))
|
