aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-10-04 21:34:09 +0200
committerLudovic Courtès <ludo@gnu.org>2017-10-05 12:09:17 +0200
commitaed1f1b049f6e7ef9f2f2db58bdca6cd3effe94b (patch)
treeee6ee785d2113ef13e593459fdbe1efd925181c7 /tests
parent67a08f1809c5a67dfb862ccdc3dc4e13ae35dcbf (diff)
downloadguix-aed1f1b049f6e7ef9f2f2db58bdca6cd3effe94b.tar
guix-aed1f1b049f6e7ef9f2f2db58bdca6cd3effe94b.tar.gz
uuid: Add 'uuid=?' and use it.
* gnu/system/uuid.scm (uuid=?): New procedure. * tests/uuid.scm ("uuid=?"): New test. * gnu/build/file-systems.scm (partition-uuid-predicate) (luks-partition-uuid-predicate): Use it instead of 'bytevector=?'.
Diffstat (limited to 'tests')
-rw-r--r--tests/uuid.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/uuid.scm b/tests/uuid.scm
index aacce77233..68676f775d 100644
--- a/tests/uuid.scm
+++ b/tests/uuid.scm
@@ -57,4 +57,10 @@
"1234-ABCD"
(uuid->string (uuid "1234-abcd" 'fat32)))
+(test-equal "uuid=?"
+ (and (uuid=? (uuid-bytevector (uuid "1234-abcd" 'fat32))
+ (uuid "1234-abcd" 'fat32))
+ (uuid=? (uuid "1234-abcd" 'fat32)
+ (uuid "1234-abcd" 'fat))))
+
(test-end)