Network with QEMU generated image (guix system vm)?

[ng0 <ngillmann@runbox.com>]

[-- Attachment #1: Type: text/plain, Size: 534 bytes --]

I feel like this should be documented better, because I can't figure it
out.

I should not waste time on figuring out how a service I need to test in
the VM can get internet access.

Currently I can't ping, git can't clone, gnunet-service can't get its
hosts lists, etc. I just need to test one service, I don't want to spend
days on figuring out why I can get no in/out connection.

Can someone please help me, so that we can improve configuration?


Appended are 2 versions of the testvm.scm I used in my branch of
gnunet-service.


[-- Attachment #2: testvm.scm --]
[-- Type: application/octet-stream, Size: 1891 bytes --]

;; bare bones, no X11 server.
(use-modules (gnu) (gnu system nss))
(use-service-modules networking dbus avahi desktop)
(use-package-modules certs suckless admin xorg)
(use-package-modules gnunet emacs version-control avahi ssh)

(operating-system
  (host-name "testvm")
  (timezone "UTC")
  (locale "en_US.UTF-8")

  (bootloader (grub-configuration (device "/dev/sda")))
  (file-systems
   (list (file-system
          (mount-point "/")
          (device "dummy")
          (type "dummy"))
         %binary-format-file-system))

  (users (list (user-account
                (name "bobthecrashtestdummy")
                (comment "")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"
                                        "gnunet"))
                (home-directory "/home/bobthecrashtestdummy")
                (password ""))))

  (services (cons* ;;(slim-service #:auto-login? #t
                   ;;              #:default-user "bobthecrashtestdummy")
                   (console-keymap-service "de")
                   ;;(static-networking-service "eth0" "10.0.2.10"
                   ;;                           #:name-servers '("10.0.2.3")
                   ;;                           #:gateway "10.0.2.2")
                   ;;(avahi-service)
                   ;;(dbus-service (list avahi))
                   (gnunet-service)
                   (dhcp-client-service)
                   ;;(lsh-service)
                   %base-services))
                   ;;(xfce-desktop-service)
                   ;;%desktop-services))

  (pam-services
   (base-pam-services #:allow-empty-passwords? #t))

  (packages (cons* git st sudo nss-certs xterm
                   avahi findutils grep which xmodmap
                   tcpdump gnunet gnunet-gtk tree
                   %base-packages)))

[-- Attachment #3: testvm-new.scm --]
[-- Type: application/octet-stream, Size: 1826 bytes --]

;; bare bones, no X11 server.
(use-modules (gnu) (gnu system nss))
(use-service-modules dbus avahi networking desktop)
(use-package-modules certs suckless admin xorg tmux)
(use-package-modules gnunet emacs version-control avahi ssh)

(operating-system
  (host-name "testvm")
  (timezone "UTC")
  (locale "en_US.UTF-8")

  ;;(bootloader (grub-configuration (device "/dev/sda")))
  ;; (file-systems
  ;;  (list (file-system
  ;;         (mount-point "/")
  ;;         (device "dummy")
  ;;         (type "dummy"))
  ;;        %binary-format-file-system))
  (bootloader (grub-configuration (device "/dev/vda")))
  (file-systems
   (cons
    (file-system
      (device "/dev/vda1")
      (mount-point "/")
      (type "ext4"))
    %base-file-systems))
  
  (users (list (user-account
                (name "z")
                (comment "")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"
                                        "gnunet"))
                (home-directory "/home/z")
                (password ""))))

  (services
   (cons* (console-keymap-service "de")
          ;; (static-networking-service "eth0" "192.168.1.209"
          ;;                            #:name-servers '("192.168.1.1")
          ;;                            #:gateway "192.168.1.255")
          ;;(avahi-service)
          (gnunet-service)
          ;;(dhcp-client-service)
          (xfce-desktop-service)
          ;;%base-services))
          %desktop-services))

  (pam-services
   (base-pam-services #:allow-empty-passwords? #t))

  (packages (cons* git st sudo nss-certs xterm
                   avahi findutils grep which xmodmap
                   tcpdump gnunet gnunet-gtk tree
                   tmux
                   %base-packages)))

[-- Attachment #4: Type: text/plain, Size: 23 bytes --]


-- 
              ng0