ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05: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")) -> "bin/guile"))
#:compressor %gzip-compressor #:compressor %gzip-compressor
#:archiver %tar-bootstrap)) #:archiver %tar-bootstrap))
(check (gexp->derivation (check (gexp->derivation "check-tarball"
"check-tarball"
(with-imported-modules '((guix build utils)) (with-imported-modules '((guix build utils))
#~(begin #~(begin
(use-modules (guix build utils) (use-modules (guix build utils)
@ -131,8 +130,7 @@ (define bin
#:locales? #f)) #:locales? #f))
(tarball (self-contained-tarball "tar-pack" profile (tarball (self-contained-tarball "tar-pack" profile
#:localstatedir? #t)) #:localstatedir? #t))
(check (gexp->derivation (check (gexp->derivation "check-tarball"
"check-tarball"
#~(let ((bin (string-append "." #$profile "/bin"))) #~(let ((bin (string-append "." #$profile "/bin")))
(setenv "PATH" (setenv "PATH"
(string-append #$%tar-bootstrap "/bin")) (string-append #$%tar-bootstrap "/bin"))
@ -154,8 +152,7 @@ (define bin
("λ" regular (data "lambda"))))) ("λ" regular (data "lambda")))))
(tarball (self-contained-tarball "tar-pack" tree (tarball (self-contained-tarball "tar-pack" tree
#:localstatedir? #t)) #:localstatedir? #t))
(check (gexp->derivation (check (gexp->derivation "check-tarball"
"check-tarball"
(with-extensions (list guile-sqlite3 guile-gcrypt) (with-extensions (list guile-sqlite3 guile-gcrypt)
(with-imported-modules (source-module-closure (with-imported-modules (source-module-closure
'((guix store database))) '((guix store database)))
@ -206,8 +203,7 @@ (define file
(tarball (docker-image "docker-pack" profile (tarball (docker-image "docker-pack" profile
#:symlinks '(("/bin/Guile" -> "bin/guile")) #:symlinks '(("/bin/Guile" -> "bin/guile"))
#:localstatedir? #t)) #:localstatedir? #t))
(check (gexp->derivation (check (gexp->derivation "check-tarball"
"check-tarball"
(with-imported-modules '((guix build utils)) (with-imported-modules '((guix build utils))
#~(begin #~(begin
(use-modules (guix build utils) (use-modules (guix build utils)
@ -247,8 +243,7 @@ (define bin
(image (squashfs-image "squashfs-pack" profile (image (squashfs-image "squashfs-pack" profile
#:symlinks '(("/bin" -> "bin")) #:symlinks '(("/bin" -> "bin"))
#:localstatedir? #t)) #:localstatedir? #t))
(check (gexp->derivation (check (gexp->derivation "check-tarball"
"check-tarball"
(with-imported-modules '((guix build utils)) (with-imported-modules '((guix build utils))
#~(begin #~(begin
(use-modules (guix build utils) (use-modules (guix build utils)