me
/
guix
Archived
1
0
Fork 0
Code

tests: pack: Fix indentation. 

* tests/pack.scm: Fix indentation.
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 @@
-> "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 @@
#: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 @@
("λ" 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 @@
(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 @@
(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)