[gnunet-scheme] 04/12: bv-slice: Test capabilities of bv-slice/...

[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 2bbca2fc19892eac1bab23be74479030d2a7ffdf
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sun Sep 11 18:24:54 2022 +0200

    bv-slice: Test capabilities of bv-slice/...
    
    * tests/bv-slice.scm
    ("return value of bv-slice/read-only is read-only")
    ("return value of bv-slice/write-only is write-only")
    ("return value of bv-slice/read-write is read-write"): New tests.
---
 tests/bv-slice.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/tests/bv-slice.scm b/tests/bv-slice.scm
index e4a7f84..2deaefc 100644
--- a/tests/bv-slice.scm
+++ b/tests/bv-slice.scm
@@ -359,6 +359,20 @@
                (assert (not (slice-independent? y x)))))))))
     #true))
 
+
+;; Additional bv-slice/read-only, bv-slice/write-only, bv-slice/read-write
+;; tests.
+
+(test-assert "return value of bv-slice/read-only is read-only"
+  (let ((slice (bv-slice/read-only (make-bytevector 9))))
+    (and (slice-readable? slice) (not (slice-writable? slice)))))
+(test-assert "return value of bv-slice/write-only is write-only"
+  (let ((slice (bv-slice/write-only (make-bytevector 9))))
+    (and (not (slice-readable? slice)) (slice-writable? slice))))
+(test-assert "return value of bv-slice/read-write is read-write"
+  (let ((slice (bv-slice/read-write (make-bytevector 9))))
+    (and (slice-readable? slice) (slice-writable? slice))))
+
 (test-end "bv-slice")
 
 ;; ^ TODO: test other procedures

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