From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:37489) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jLvYl-0004fz-Vs for guix-patches@gnu.org; Tue, 07 Apr 2020 17:15:04 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1jLvYk-00077c-VR for guix-patches@gnu.org; Tue, 07 Apr 2020 17:15:03 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:39559) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1jLvYk-00077S-Sg for guix-patches@gnu.org; Tue, 07 Apr 2020 17:15:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jLvYk-00051E-Lc for guix-patches@gnu.org; Tue, 07 Apr 2020 17:15:02 -0400 Subject: [bug#40497] [PATCH] reconfigure: Don't call build-derivations for upgrade-services test Resent-Message-ID: Received: from eggs.gnu.org ([2001:470:142:3::10]:37379) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jLvYM-0004d9-JP for guix-patches@gnu.org; Tue, 07 Apr 2020 17:14:39 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1jLvYL-0006tj-Hz for guix-patches@gnu.org; Tue, 07 Apr 2020 17:14:38 -0400 Received: from mira.cbaines.net ([212.71.252.8]:42158) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1jLvYL-0006tV-CU for guix-patches@gnu.org; Tue, 07 Apr 2020 17:14:37 -0400 Received: from localhost (unknown [46.237.163.68]) by mira.cbaines.net (Postfix) with ESMTPSA id 4825E27BBE1 for ; Tue, 7 Apr 2020 22:14:36 +0100 (BST) Received: from localhost (localhost [local]) by localhost (OpenSMTPD) with ESMTPA id 63d6f719 for ; Tue, 7 Apr 2020 21:14:33 +0000 (UTC) From: Christopher Baines Date: Tue, 7 Apr 2020 22:14:33 +0100 Message-Id: <20200407211433.1620-1-mail@cbaines.net> MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 40497@debbugs.gnu.org This commit adjusts the upgrade-services system test to not build anythin= g when computing the derivation for the system test. I came across this wh= en looking at issues computing the system test derivations to store in the G= uix Data Service. * gnu/tests/reconfigure.scm (run-upgrade-services-test): Remove the use o= f, and definition for ensure-service-file. --- gnu/tests/reconfigure.scm | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) diff --git a/gnu/tests/reconfigure.scm b/gnu/tests/reconfigure.scm index 8b85920979..928a210a94 100644 --- a/gnu/tests/reconfigure.scm +++ b/gnu/tests/reconfigure.scm @@ -136,14 +136,6 @@ Shepherd (PID 1) by unloading obsolete services and = loading new services." (stop #~(const #t)) (respawn? #f))) =20 - ;; Return the Shepherd service file for SERVICE, after ensuring that i= t - ;; exists in the store. - (define (ensure-service-file service) - (let ((file (shepherd-service-file service))) - (mlet* %store-monad ((store-object (lower-object file)) - (_ (built-derivations (list store-object)))) - (return file)))) - (define (test enable-dummy disable-dummy) (with-imported-modules '((gnu build marionette)) #~(begin @@ -187,10 +179,12 @@ Shepherd (PID 1) by unloading obsolete services and= loading new services." (test-end) (exit (=3D (test-runner-fail-count (test-runner-current)) 0)))= )) =20 - (mlet* %store-monad ((file (ensure-service-file dummy-service))) - (let ((enable (upgrade-services-program (list file) '(dummy) '() '()= )) + (gexp->derivation + "upgrade-services" + (let* ((file (shepherd-service-file dummy-service)) + (enable (upgrade-services-program (list file) '(dummy) '() '()= )) (disable (upgrade-services-program '() '() '(dummy) '()))) - (gexp->derivation "upgrade-services" (test enable disable))))) + (test enable disable)))) =20 (define* (run-install-bootloader-test) "Run a test of an OS running INSTALL-BOOTLOADER-PROGRAM, which install= s a --=20 2.26.0