diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-13 00:01:28 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-13 00:01:28 +0200 |
| commit | a82b6c772089aa46e30c6c89ef48f514294df3cb (patch) | |
| tree | e25d9b6fd1fefe8b6ac293a5c0b53293872a8f54 /tests/test/uuid.scm | |
| parent | Add basic documentation for lens. (diff) | |
| parent | Even more documentation. (diff) | |
| download | calp-a82b6c772089aa46e30c6c89ef48f514294df3cb.tar.gz calp-a82b6c772089aa46e30c6c89ef48f514294df3cb.tar.xz | |
Merge branch 'next' into datarewrite-structures
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))) |