tests: docker: Use "package" instead of "dummy-package".
* gnu/tests/docker.scm (build-tarball&run-docker-test): Use "package" instead of "dummy-package".
This commit is contained in:
parent
64a1ddba7a
commit
69e47686c9
|
@ -37,6 +37,7 @@ (define-module (gnu tests docker)
|
||||||
#:use-module (guix store)
|
#:use-module (guix store)
|
||||||
#:use-module (guix tests)
|
#:use-module (guix tests)
|
||||||
#:use-module (guix build-system trivial)
|
#:use-module (guix build-system trivial)
|
||||||
|
#:use-module ((guix licenses) #:prefix license:)
|
||||||
#:export (%test-docker))
|
#:export (%test-docker))
|
||||||
|
|
||||||
(define %docker-os
|
(define %docker-os
|
||||||
|
@ -131,17 +132,24 @@ (define (build-tarball&run-docker-test)
|
||||||
((_ (set-grafting #f))
|
((_ (set-grafting #f))
|
||||||
(guile (set-guile-for-build (default-guile)))
|
(guile (set-guile-for-build (default-guile)))
|
||||||
(guest-script-package ->
|
(guest-script-package ->
|
||||||
(dummy-package "guest-script"
|
(package
|
||||||
|
(name "guest-script")
|
||||||
|
(version "0")
|
||||||
|
(source #f)
|
||||||
(build-system trivial-build-system)
|
(build-system trivial-build-system)
|
||||||
(arguments
|
(arguments `(#:guile ,%bootstrap-guile
|
||||||
`(#:guile ,%bootstrap-guile
|
|
||||||
#:builder
|
#:builder
|
||||||
(let ((out (assoc-ref %outputs "out")))
|
(let ((out (assoc-ref %outputs "out")))
|
||||||
(mkdir out)
|
(mkdir out)
|
||||||
(call-with-output-file (string-append out "/a.scm")
|
(call-with-output-file (string-append out "/a.scm")
|
||||||
(lambda (port)
|
(lambda (port)
|
||||||
(display "(display \"hello world\n\")" port)))
|
(display "(display \"hello world\n\")" port)))
|
||||||
#t)))))
|
#t)))
|
||||||
|
(synopsis "Display hello world using Guile")
|
||||||
|
(description "This package displays the text \"hello world\" on the
|
||||||
|
standard output device and then enters a new line.")
|
||||||
|
(home-page #f)
|
||||||
|
(license license:public-domain)))
|
||||||
(profile (profile-derivation (packages->manifest
|
(profile (profile-derivation (packages->manifest
|
||||||
(list %bootstrap-guile
|
(list %bootstrap-guile
|
||||||
guest-script-package))
|
guest-script-package))
|
||||||
|
|
Loading…
Reference in a new issue