diff options
Diffstat (limited to 'tests/test/uuid.scm')
| -rw-r--r-- | tests/test/uuid.scm | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/tests/test/uuid.scm b/tests/test/uuid.scm index b73db5f4..1cedb59e 100644 --- a/tests/test/uuid.scm +++ b/tests/test/uuid.scm @@ -6,13 +6,6 @@ (test-equal "UUIDv4 fixed seed" - (let ((version (version))) - (cond ((string=? version "2.2.7") - "d19c9347-9a85-4432-a876-5fb9c0d24d2b") - ((string=? version "3.0.9") - "d19c9347-9a85-4432-a876-5fb9c0d24d2b") - (else - "Randomness isn't stable between guile versions"))) - (begin - (parameterize ((seed (seed->random-state 0))) - (uuid-v4)))) + "d19c9347-9a85-4432-a876-5fb9c0d24d2b" + (parameterize ((seed (seed->random-state 0))) + (uuid-v4))) |