guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/03: uuid: Adjust tests.


From: Ludovic Courtès
Subject: 02/03: uuid: Adjust tests.
Date: Wed, 13 Sep 2017 18:10:19 -0400 (EDT)

civodul pushed a commit to branch master
in repository guix.

commit 2ed1f4a52d8bec2c18a9c92cf4e7caf93aeb40fc
Author: Ludovic Courtès <address@hidden>
Date:   Wed Sep 13 23:57:22 2017 +0200

    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 12f4f09..8e5c75e 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 ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]