parent
d0b7858968
commit
933051281f
|
@ -88,7 +88,8 @@ (define rpm-for-tests
|
||||||
-> "bin/guile"))
|
-> "bin/guile"))
|
||||||
#:compressor %gzip-compressor
|
#:compressor %gzip-compressor
|
||||||
#:archiver %tar-bootstrap))
|
#:archiver %tar-bootstrap))
|
||||||
(check (gexp->derivation "check-tarball"
|
(check (gexp->derivation
|
||||||
|
"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)
|
||||||
|
@ -144,7 +145,8 @@ (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-tarball"
|
(check (gexp->derivation
|
||||||
|
"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"))
|
||||||
|
@ -166,7 +168,8 @@ (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-tarball"
|
(check (gexp->derivation
|
||||||
|
"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)))
|
||||||
|
@ -217,7 +220,8 @@ (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-tarball"
|
(check (gexp->derivation
|
||||||
|
"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)
|
||||||
|
@ -257,7 +261,8 @@ (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-tarball"
|
(check (gexp->derivation
|
||||||
|
"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)
|
||||||
|
|
Loading…
Reference in a new issue