From e50e1e5fdf6aca3bf964376469316813349660d6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 7 Nov 2018 13:49:51 +0100
Subject: examples: random: Produce derivations that sometimes fail.

* examples/random-jobs.scm (random-derivation): Fail randomly.
---
 examples/random-jobs.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'examples')

diff --git a/examples/random-jobs.scm b/examples/random-jobs.scm
index 6521734..d623b25 100644
--- a/examples/random-jobs.scm
+++ b/examples/random-jobs.scm
@@ -39,6 +39,8 @@
                                                 (cdr (gettimeofday))))
                                  (state (seed->random-state seed)))
                             (sleep (pk 'sleeping (random 10 state)))
+                            (when (zero? (random 4 state))
+                              (error "we're faillliiiiing!"))
                             #$nonce
                             (mkdir #$output))))))
 
-- 
cgit v1.2.3