(define-module (rsent system test)
  #:use-module (gnu)
  #:use-module (gnu system)
  #:use-module (gnu services)
  #:use-module (gnu services desktop)
  #:use-module (gnu services ganeti)
  #:use-module (gnu services xorg)
  #:use-module (gnu services ssh)
  #:use-module (gnu packages networking)
  #:use-module (guix gexp)
  #:export (test-system))

(define test-system
  (operating-system
   (locale "en_US.utf8")
   (timezone "America/New_York")
   (keyboard-layout (keyboard-layout "us"))
   (host-name "test")
   (users (cons* (user-account
                  (name "richard")
                  (comment "Richard")
                  (group "users")
                  (home-directory "/home/richard")
                  (supplementary-groups '("wheel" "netdev" "audio" "video")))
                 %base-user-accounts))
   ;; Packages installed system-wide.
   (packages (append (list)
                     %base-packages))
   (services
    (append (list
             (service gnome-desktop-service-type)
             (service openssh-service-type
                      (openssh-configuration
                       (x11-forwarding? #t)
                       (%auto-start? #f)
                       ))
             ;; service with auto-start=#f, see if shepherd starts this on reconfigure
             (service ganeti-metad-service-type))
            %desktop-services))
   (swap-devices (list (swap-space
                        (target (uuid
                                 "a5da62d0-0f8e-4401-8fb6-17b284e166d0")))))
   (bootloader (bootloader-configuration
                (bootloader grub-efi-bootloader)
                (targets (list "/boot/efi"))
                (keyboard-layout keyboard-layout)))
   (file-systems (cons* (file-system
                         (mount-point "/boot/efi")
                         (device (uuid "3b39-a8ba"
                                       'fat32))
                         (type "vfat"))
                        (file-system
                         (mount-point "/")
                         (device (uuid
                                  "d30c3bb1-7bc6-4f2d-8bce-4e26beae02f2"
                                  'ext4))
                         (type "ext4"))
                        %base-file-systems))))

test-system