From 69e47686c9a8a2b5c4ee33e5b14da657de3d7ca0 Mon Sep 17 00:00:00 2001
From: Danny Milosavljevic <dannym@scratchpost.org>
Date: Fri, 18 Jan 2019 18:12:15 +0100
Subject: tests: docker: Use "package" instead of "dummy-package".

* gnu/tests/docker.scm (build-tarball&run-docker-test): Use "package" instead
of "dummy-package".
---
 gnu/tests/docker.scm | 30 +++++++++++++++++++-----------
 1 file changed, 19 insertions(+), 11 deletions(-)

(limited to 'gnu')

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 @@ (define-module (gnu tests docker)
   #: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 @@ (define (build-tarball&run-docker-test)
       ((_ (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))
-- 
cgit v1.2.3