me
/
guix
Archived
1
0
Fork 0

tests: Add test for menu-entry roundtrips as sexps.

* tests/boot-parameters.scm (%uuid-menu-entry,
%file-system-label-menu-entry): New variables.
("menu-entry roundtrip, uuid", "menu-entry roundtrip,
file-system-label"): New tests.

Signed-off-by: Marius Bakke <marius@gnu.org>
master
Josselin Poiret 2022-08-21 10:41:16 +02:00 committed by Marius Bakke
parent 0811d2cb8d
commit 3294fa2ba4
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 23 additions and 0 deletions

View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019, 2020 Miguel Ángel Arruga Vivas <rosen644835@gmail.com>
;;; Copyright © 2022 Josselin Poiret <dev@jpoiret.xyz>
;;;
;;; This file is part of GNU Guix.
;;;
@ -303,4 +304,26 @@
(operating-system-boot-parameters %default-operating-system
%default-root-device)))
(define %uuid-menu-entry
(menu-entry
(label "test")
(device (uuid "6d5b13d4-6092-46d0-8be4-073dc07413cc"))
(linux "/boot/bzImage")
(initrd "/boot/initrd.cpio.gz")))
(define %file-system-label-menu-entry
(menu-entry
(label "test")
(device (file-system-label "test-label"))
(linux "/boot/bzImage")
(initrd "/boot/initrd.cpio.gz")))
(test-equal "menu-entry roundtrip, uuid"
%uuid-menu-entry
(sexp->menu-entry (menu-entry->sexp %uuid-menu-entry)))
(test-equal "menu-entry roundtrip, file-system-label"
%file-system-label-menu-entry
(sexp->menu-entry (menu-entry->sexp %file-system-label-menu-entry)))
(test-end "boot-parameters")