diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-10-06 14:15:08 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-10-06 14:16:23 +0200 |
| commit | 0b12324284f3fbf378d363070f91b794058ae570 (patch) | |
| tree | 01511645cd231734eda24c760ef7416131b1f481 /tests/uuid.scm | |
| parent | 8bde6a524e19d2bc9763b84dbf99959faf653bf8 (diff) | |
uuid: Fix typo in 'uuid=?' test.
* tests/uuid.scm ("uuid=?"): Change to 'test-assert'.
Diffstat (limited to 'tests/uuid.scm')
| -rw-r--r-- | tests/uuid.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/uuid.scm b/tests/uuid.scm index 68676f775d6..91a34824905 100644 --- a/tests/uuid.scm +++ b/tests/uuid.scm | |||
| @@ -57,7 +57,7 @@ | |||
| 57 | "1234-ABCD" | 57 | "1234-ABCD" |
| 58 | (uuid->string (uuid "1234-abcd" 'fat32))) | 58 | (uuid->string (uuid "1234-abcd" 'fat32))) |
| 59 | 59 | ||
| 60 | (test-equal "uuid=?" | 60 | (test-assert "uuid=?" |
| 61 | (and (uuid=? (uuid-bytevector (uuid "1234-abcd" 'fat32)) | 61 | (and (uuid=? (uuid-bytevector (uuid "1234-abcd" 'fat32)) |
| 62 | (uuid "1234-abcd" 'fat32)) | 62 | (uuid "1234-abcd" 'fat32)) |
| 63 | (uuid=? (uuid "1234-abcd" 'fat32) | 63 | (uuid=? (uuid "1234-abcd" 'fat32) |