summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@scratchpost.org>2019-01-18 18:12:15 +0100
committerDanny Milosavljevic <dannym@scratchpost.org>2019-01-18 22:24:14 +0100
commit69e47686c9a8a2b5c4ee33e5b14da657de3d7ca0 (patch)
treea7c26f8360b694bfce0afc78c4ccf6a677c081a3
parent64a1ddba7ad5727c13af639bf36b25d40810f7a2 (diff)
downloadpatches-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".
-rw-r--r--gnu/tests/docker.scm30
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))