~ruther/guix-local

05c747ea6bdffd6b9c425c7f8b3d3860ae3d7861 — Mathieu Othacehe 4 years ago 68d0900 
tests: install: Use the swap-space record.

This fixes the following error:

In gnu/services/base.scm:
  2228:56  4 (_ #<<uuid> type: dce bv: #vu8(17 17 17 17 34 34 51 51 …>)
In gnu/build/file-systems.scm:
   239:13  3 (swap-space->flags-bit-mask #<<uuid> type: dce bv: #vu8…>)
In ice-9/boot-9.scm:
  1685:16  2 (raise-exception _ #:continuable? _)
  1685:16  1 (raise-exception _ #:continuable? _)
  1685:16  0 (raise-exception _ #:continuable? _)

ice-9/boot-9.scm:1685:16: In procedure raise-exception:
In procedure swap-space-priority: Wrong type argument: #<<uuid> type: dce bv: #vu8(17 17 17 17 34 34 51 51 68 68 18 52 86 120 154 188)>

* gnu/tests/install.scm (installation-target-os-for-gui-tests): Use the
swap-space record.
patch browse .tar.gz .zip 
1 files changed, 6 insertions(+), 3 deletions(-)

M gnu/tests/install.scm

M gnu/tests/install.scm => gnu/tests/install.scm +6 -3
@@ 1679,9 1679,12 @@ build (current-guix) and then store a couple of full system images.")
    ;; encryption support.  The installer produces a UUID for the partition;
    ;; this "UUID" is explicitly set in 'gui-test-program' to the value shown
    ;; below.
    (swap-devices (if encrypted?
                      '()
                      (list (uuid "11111111-2222-3333-4444-123456789abc"))))
    (swap-devices
     (if encrypted?
         '()
         (list
          (swap-space
           (target (uuid "11111111-2222-3333-4444-123456789abc"))))))
    (services (cons (service dhcp-client-service-type)
                    (operating-system-user-services %minimal-os-on-vda)))))