blob: 7d68e38e7a11009571589408ce7dde639099f4ce (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(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"
"d19c9347-9a85-4432-a876-5fb9c0d24d2b"
(parameterize ((seed (seed->random-state 0)))
(uuid-v4)))
'((hnh util uuid))
|