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