summary refs log tree commit diff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-09-22 18:25:21 +0200
committerLudovic Courtès <ludo@gnu.org>2017-09-22 18:40:57 +0200
commit8a7d81a5e23c4d59fbabf2550db32d4ba5572e4b (patch)
tree9b75e42e5455535351077190a9f5c677b8d88027 /tests
parent60e36bff1f8e11636626f651519d9e4cca903d78 (diff)
downloadguix-8a7d81a5e23c4d59fbabf2550db32d4ba5572e4b.tar.gz
uuid: Add a parser for FAT32 UUIDs.
* gnu/system/uuid.scm (%fat32-uuid-rx): New variable.
(string->fat32-uuid): New procedure.
(%uuid-parsers): Add it.
* tests/uuid.scm ("uuid, FAT32, format preserved"): New test.
Diffstat (limited to 'tests')
-rw-r--r--tests/uuid.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/uuid.scm b/tests/uuid.scm
index c2f15de996..aacce77233 100644
--- a/tests/uuid.scm
+++ b/tests/uuid.scm
@@ -53,4 +53,8 @@
   "1970-01-01-17-14-42-99"
   (uuid->string (uuid "1970-01-01-17-14-42-99" 'iso9660)))
 
+(test-equal "uuid, FAT32, format preserved"
+  "1234-ABCD"
+  (uuid->string (uuid "1234-abcd" 'fat32)))
+
 (test-end)