[gnunet-scheme] 04/04: tests/cadet: Test read-writability.

[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 b643d2a169e762a200e7d69fd593aa03546b8296
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Mar 1 10:00:21 2022 +0000

    tests/cadet: Test read-writability.
    
    * tests/cadet.scm (test-roundtrip): Verify that 'constructed' is a
      read-write slice.
---
 tests/cadet.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/cadet.scm b/tests/cadet.scm
index d8295f2..9eaae2c 100644
--- a/tests/cadet.scm
+++ b/tests/cadet.scm
@@ -136,7 +136,9 @@
                      (! constructed (construct name ...))
                      (<-- analysed (analyse constructed))
                      (! analysed (normalise analysed)))
-                    (equal? expected analysed))))))
+                    (and (slice-readable? constructed)
+                         (slice-writable? constructed)
+                         (equal? expected analysed)))))))
 
 (test-roundtrip "analyse + construct round-trips (local-channel-create)"
                analyse-local-channel-create construct-local-channel-create

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