gnu/tests/container/test-system.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

(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