GNU bug report logs - #76646
[PATCH Cuirass] tests: store: Fix non-reproducible test.

Previous Next

Full log

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Romain GARBAGE <romain.garbage <at> inria.fr>
To: guix-patches <at> gnu.org
Cc: ludovic.courtes <at> inria.fr, Romain GARBAGE <romain.garbage <at> inria.fr>
Subject: [PATCH Cuirass] tests: store: Fix non-reproducible test.
Date: Fri, 28 Feb 2025 16:22:29 +0100

* tests/store.scm ("build-derivations&, non-fiber"): Fix non-reproducible test.
---
 tests/store.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/tests/store.scm b/tests/store.scm
index f959338..ea1c242 100644
--- a/tests/store.scm
+++ b/tests/store.scm
@@ -17,6 +17,8 @@
 ;;; along with Cuirass.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (tests store)
+  #:autoload   (guix derivations) (build-derivations
+                                   derivation-path->output-paths)
   #:use-module (guix store)
   #:use-module (guix gexp)
   #:use-module ((gnu packages bootstrap) #:select (%bootstrap-guile))
@@ -74,6 +76,10 @@
   '(build-succeeded build-started)
   (with-store store
     (set-build-options store #:print-build-trace #t)
+    ;; This makes sure that the dependencies needed to build drv below are
+    ;; already present: this test fails when they are missing, thus depending
+    ;; on the state of the underlying store, which is not reproducible.
+    (build-derivations store (list (trivial-derivation store)))
     (let* ((drv (trivial-derivation store))
            (port finish (build-derivations& store (list drv)))
            (events (process-build-log port

base-commit: 520b2fdbd96e953fc2d4b56e78e52a81fc11e2b7
-- 
2.48.1

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.