summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-09-13 23:57:22 +0200
committerLudovic Courtès <ludo@gnu.org>2017-09-14 00:10:13 +0200
commit2ed1f4a52d8bec2c18a9c92cf4e7caf93aeb40fc (patch)
treeda85ed5ec9bc4f6d204b45de3bf49ec0e1147f4b /tests
parent79e5e00f4f0b5a6b2cbf13f60bcd1fd7029f8e08 (diff)
uuid: Adjust tests.
This is a followup to 9b336338cdc0e46a3bf7a2913c2f61cd2410c4d6. * tests/file-systems.scm ("uuid"): Add call to 'uuid-bytevector'. ("uuid, syntax error"): Add 'dce to the expected form.
Diffstat (limited to 'tests')
-rw-r--r--tests/file-systems.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/file-systems.scm b/tests/file-systems.scm
index 12f4f09c57..8e5c75e48c 100644
--- a/tests/file-systems.scm
+++ b/tests/file-systems.scm
@@ -19,6 +19,7 @@
(define-module (test-file-systems)
#:use-module (guix store)
#:use-module (guix modules)
+ #:use-module (gnu system uuid)
#:use-module (gnu system file-systems)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-64)
@@ -41,7 +42,8 @@
(test-assert "uuid"
(let ((str "4dab5feb-d176-45de-b287-9b0a6e4c01cb"))
- (bytevector=? (uuid "4dab5feb-d176-45de-b287-9b0a6e4c01cb")
+ (bytevector=? (uuid-bytevector
+ (uuid "4dab5feb-d176-45de-b287-9b0a6e4c01cb"))
(string->uuid "4dab5feb-d176-45de-b287-9b0a6e4c01cb"))))
(test-assert "uuid, syntax error"
@@ -52,7 +54,7 @@
(lambda (key proc message location form . args)
(and (eq? proc 'uuid)
(string-contains message "invalid UUID")
- (equal? form '(uuid "foobar"))))))
+ (equal? form '(uuid "foobar" 'dce))))))
(test-assert "file-system-needed-for-boot?"
(let-syntax ((dummy-fs (syntax-rules ()