mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 06:46:50 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: pack: Fix indentation.

Browse source 
* tests/pack.scm: Fix indentation.
This commit is contained in:
Maxim Cournoyer 2023-02-02 14:43:58 -05:00
parent 68380db4c4
commit ac1d530d56
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 121 additions and 126 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
tests/pack.scm
View file

@ -74,8 +74,7 @@ (define %ar-bootstrap %bootstrap-binutils)
-> "bin/guile"))
#:compressor %gzip-compressor
#:archiver %tar-bootstrap))
(check (gexp->derivation
"check-tarball"
(check (gexp->derivation "check-tarball"
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils)
@ -131,8 +130,7 @@ (define bin
#:locales? #f))
(tarball (self-contained-tarball "tar-pack" profile
#:localstatedir? #t))
(check (gexp->derivation
"check-tarball"
(check (gexp->derivation "check-tarball"
#~(let ((bin (string-append "." #$profile "/bin")))
(setenv "PATH"
(string-append #$%tar-bootstrap "/bin"))
@ -154,8 +152,7 @@ (define bin
("λ" regular (data "lambda")))))
(tarball (self-contained-tarball "tar-pack" tree
#:localstatedir? #t))
(check (gexp->derivation
"check-tarball"
(check (gexp->derivation "check-tarball"
(with-extensions (list guile-sqlite3 guile-gcrypt)
(with-imported-modules (source-module-closure
'((guix store database)))
@ -206,8 +203,7 @@ (define file
(tarball (docker-image "docker-pack" profile
#:symlinks '(("/bin/Guile" -> "bin/guile"))
#:localstatedir? #t))
(check (gexp->derivation
"check-tarball"
(check (gexp->derivation "check-tarball"
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils)
@ -247,8 +243,7 @@ (define bin
(image (squashfs-image "squashfs-pack" profile
#:symlinks '(("/bin" -> "bin"))
#:localstatedir? #t))
(check (gexp->derivation
"check-tarball"
(check (gexp->derivation "check-tarball"
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils)