TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

tests: install: Use the swap-space record.

Browse source 
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.
This commit is contained in:
Mathieu Othacehe 2021-12-01 19:20:24 +01:00
parent 68d090002a
commit 05c747ea6b
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/tests/install.scm
View file

@ -1679,9 +1679,12 @@ (define* (installation-target-os-for-gui-tests
;; 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)))))