From 2ed1f4a52d8bec2c18a9c92cf4e7caf93aeb40fc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 13 Sep 2017 23:57:22 +0200 Subject: 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. --- tests/file-systems.scm | 6 ++++-- 1 file 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 () -- cgit v1.2.3