diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-09-22 18:25:21 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-09-22 18:40:57 +0200 |
| commit | 8a7d81a5e23c4d59fbabf2550db32d4ba5572e4b (patch) | |
| tree | 9b75e42e5455535351077190a9f5c677b8d88027 /tests/uuid.scm | |
| parent | 60e36bff1f8e11636626f651519d9e4cca903d78 (diff) | |
| download | patches-8a7d81a5e23c4d59fbabf2550db32d4ba5572e4b.tar patches-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/uuid.scm')
| -rw-r--r-- | tests/uuid.scm | 4 |
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) |