From ed4281ff072443167c43207c039570126061d23b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 12 Apr 2022 13:30:32 +0200
Subject: Add a lot of new unit tests.

---
 tests/test/uuid.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 tests/test/uuid.scm

(limited to 'tests/test/uuid.scm')

diff --git a/tests/test/uuid.scm b/tests/test/uuid.scm
new file mode 100644
index 00000000..6a2bd92a
--- /dev/null
+++ b/tests/test/uuid.scm
@@ -0,0 +1,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))
-- 
cgit v1.2.3