diff options
| author | Danny Milosavljevic <dannym@scratchpost.org> | 2019-01-18 18:12:15 +0100 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2019-01-18 22:24:14 +0100 |
| commit | 69e47686c9a8a2b5c4ee33e5b14da657de3d7ca0 (patch) | |
| tree | a7c26f8360b694bfce0afc78c4ccf6a677c081a3 /gnu/tests | |
| parent | 64a1ddba7ad5727c13af639bf36b25d40810f7a2 (diff) | |
| download | patches-69e47686c9a8a2b5c4ee33e5b14da657de3d7ca0.tar patches-69e47686c9a8a2b5c4ee33e5b14da657de3d7ca0.tar.gz | |
tests: docker: Use "package" instead of "dummy-package".
* gnu/tests/docker.scm (build-tarball&run-docker-test): Use "package" instead
of "dummy-package".
Diffstat (limited to 'gnu/tests')
| -rw-r--r-- | gnu/tests/docker.scm | 30 |
1 files changed, 19 insertions, 11 deletions
diff --git a/gnu/tests/docker.scm b/gnu/tests/docker.scm index f69b2985e1..25e172efae 100644 --- a/gnu/tests/docker.scm +++ b/gnu/tests/docker.scm @@ -37,6 +37,7 @@ #:use-module (guix store) #:use-module (guix tests) #:use-module (guix build-system trivial) + #:use-module ((guix licenses) #:prefix license:) #:export (%test-docker)) (define %docker-os @@ -131,17 +132,24 @@ inside %DOCKER-OS." ((_ (set-grafting #f)) (guile (set-guile-for-build (default-guile))) (guest-script-package -> - (dummy-package "guest-script" - (build-system trivial-build-system) - (arguments - `(#:guile ,%bootstrap-guile - #:builder - (let ((out (assoc-ref %outputs "out"))) - (mkdir out) - (call-with-output-file (string-append out "/a.scm") - (lambda (port) - (display "(display \"hello world\n\")" port))) - #t))))) + (package + (name "guest-script") + (version "0") + (source #f) + (build-system trivial-build-system) + (arguments `(#:guile ,%bootstrap-guile + #:builder + (let ((out (assoc-ref %outputs "out"))) + (mkdir out) + (call-with-output-file (string-append out "/a.scm") + (lambda (port) + (display "(display \"hello world\n\")" port))) + #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 (list %bootstrap-guile guest-script-package)) |