blob: 6a2bd92a3ec0d6d7e577c0c2c2e0cf9eda9df8d4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
(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))
(set! (@@ (hnh util uuid) %seed)
(seed->random-state 0))
(test-equal "UUIDv4 fixed seed"
"d19c9347-9a85-4432-a876-5fb9c0d24d2b"
(uuid-v4))
|
