From mboxrd@z Thu Jan  1 00:00:00 1970
From: Mark H Weaver <mhw@netris.org>
Subject: Re: 01/01: tests: docker: Run a guest guile inside the docker
	container.
Date: Thu, 17 Jan 2019 17:20:00 -0500
Message-ID: <87h8e72afo.fsf@netris.org>
References: <20190115111739.3607.13533@vcs0.savannah.gnu.org>
	<20190115111740.4E2CA20537@vcs0.savannah.gnu.org>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([209.51.188.92]:53729)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <mhw@netris.org>) id 1gkG2E-0000uT-Jo
	for guix-devel@gnu.org; Thu, 17 Jan 2019 17:21:15 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <mhw@netris.org>) id 1gkG2B-0000jn-Cs
	for guix-devel@gnu.org; Thu, 17 Jan 2019 17:21:12 -0500
Received: from world.peace.net ([64.112.178.59]:41268)
	by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32)
	(Exim 4.71) (envelope-from <mhw@netris.org>) id 1gkG26-0000XQ-9d
	for guix-devel@gnu.org; Thu, 17 Jan 2019 17:21:07 -0500
In-Reply-To: <20190115111740.4E2CA20537@vcs0.savannah.gnu.org> (guix-commits's
	message of "Tue, 15 Jan 2019 06:17:40 -0500 (EST)")
List-Id: "Development of GNU Guix and the GNU System distribution."
	<guix-devel.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guix-devel>,
	<mailto:guix-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/guix-devel/>
List-Post: <mailto:guix-devel@gnu.org>
List-Help: <mailto:guix-devel-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guix-devel>,
	<mailto:guix-devel-request@gnu.org?subject=subscribe>
Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org
Sender: "Guix-devel" <guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org>
To: Danny Milosavljevic <dannym@scratchpost.org>
Cc: guix-devel@gnu.org

Hi Danny,

guix-commits@gnu.org writes:

> dannym pushed a commit to branch master
> in repository guix.
>
> commit 49ec5d88c5770ae49b45849cb691c8921ecf4ca7
> Author: Danny Milosavljevic <dannym@scratchpost.org>
> Date:   Mon Jan 14 15:44:16 2019 +0100
>
>     tests: docker: Run a guest guile inside the docker container.
>     
>     * gnu/tests/docker.scm (run-docker-test): Add parameters.  Load and run
>     docker container.  Check response of guest guile.
>     (build-tarball&run-docker-test): New procedure.
>     (%test-docker): Use it.
>     [description]: Modify.

[...]

> +(define (build-tarball&run-docker-test)
> +  (mlet* %store-monad
> +      ((_ (set-grafting #f))
> +       (guile (set-guile-for-build (default-guile)))
> +       (guest-script-package ->
> +        (dummy-package "guest-script"
> +                       (build-system trivial-build-system)

This introduces a duplicate field initializer in the expanded 'package'
object, because the 'dummy-package' macro introduces its own
'build-system' field initializer.  From (guix tests):

  (define-syntax-rule (dummy-package name* extra-fields ...)
    "Return a \"dummy\" package called NAME*, with all its compulsory fields
  initialized with default values, and with EXTRA-FIELDS set as specified."
    (package extra-fields ...
             (name name*) (version "0") (source #f)
             (build-system gnu-build-system)
             (synopsis #f) (description #f)
             (home-page #f) (license #f)))

If you need to use trivial-build-system, then I think you can't use the
'dummy-package' macro as it's currently implemented.

      Regards,
        Mark