blob: 1cedb59e508d3d1f1af258fc30f5b8794f015cd9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(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)))
|
