diff --git a/examples/random-manifest.scm b/examples/random-manifest.scm index ed96e90..446b16a 100644 --- a/examples/random-manifest.scm +++ b/examples/random-manifest.scm @@ -1,5 +1,5 @@ ;;; random-manifest.scm -- Return a manifest of random entries. -;;; Copyright © 2018, 2023 Ludovic Courtès +;;; Copyright © 2018, 2023-2024 Ludovic Courtès ;;; Copyright © 2018 Clément Lassieur ;;; ;;; This file is part of Cuirass. @@ -80,10 +80,16 @@ (if (>= i 20) (reverse lst) (let* ((multiple-outputs? (zero? (modulo i 5))) - (dependency (and (= 0 (modulo i 3)) - (> i 0) - (list-ref lst - (random (length lst) %state)))) + (dependency (cond ((and (zero? (modulo i 3)) + (> i 0)) + (list-ref lst + (random (length lst) %state))) + ((zero? (modulo i 4)) + (make-job + "entropy" + (random-computed-file + "entropy-derivation-without-a-job"))) + (else #f))) (suffix (string-append (if multiple-outputs? "multiple-outputs"