me/guix
Archived
1
0
Fork 0
Code Activity

uuid: Adjust tests.

Browse source 
This is a followup to 9b336338cd.

* tests/file-systems.scm ("uuid"): Add call to 'uuid-bytevector'.
("uuid, syntax error"): Add 'dce to the expected form.
This commit is contained in:
Ludovic Courtès 2017-09-13 23:57:22 +02:00
parent 79e5e00f4f
commit 2ed1f4a52d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/file-systems.scm
View file

@ -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 ()