[gnunet-scheme] 04/04: simulate-dht-service: Verify that the argument is in fact a condition.

[gnunet]

This is an automated email from the git hooks/post-receive script.

maxime-devos pushed a commit to branch master
in repository gnunet-scheme.

commit 5b37f53d6ab4d6e57803942e5a805461dee8e864
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Thu Jun 30 10:51:28 2022 +0000

    simulate-dht-service: Verify that the argument is in fact a condition.
---
 tests/distributed-hash-table.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tests/distributed-hash-table.scm b/tests/distributed-hash-table.scm
index 8b610dd..fd24aa7 100644
--- a/tests/distributed-hash-table.scm
+++ b/tests/distributed-hash-table.scm
@@ -443,6 +443,8 @@
   "Simulate a DHT service, remembering all insertions and ignoring expiration
 and replication.  Cancellation is ignored (TODO).  Only a single client is
 supported.  When @var{explode} is signalled, the connection is closed."
+  (unless (condition? explode) ; eliminate test failure cause
+    (error "explode must be a condition"))
   (define (slice->bv slice)
     (define bv (make-bytevector (slice-length slice)))
     (define bv/slice (bv-slice/read-write bv))

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.