ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: docker: Use "package" instead of "dummy-package".

Browse source 
* gnu/tests/docker.scm (build-tarball&run-docker-test): Use "package" instead
of "dummy-package".
This commit is contained in:
Danny Milosavljevic 2019-01-18 18:12:15 +01:00
parent 64a1ddba7a
commit 69e47686c9
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 19 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
gnu/tests/docker.scm
View file

@ -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))