(define-module (gnu tests container test-system) #:use-module (gnu) #:use-module (gnu packages package-management) #:export (%system)) (define %system (operating-system (host-name "guix-container") (timezone "Europe/Berlin") (locale "en_US.utf8") (packages (cons* guix %base-packages)) ;; TODO file-systems is redundant (file-systems (cons (file-system (device "my-root") (title 'label) (mount-point "/") (type "ext4")) %base-file-systems)) (bootloader (grub-configuration (device "/dev/sdX"))))) %system