[gnunet-scheme] 02/03: data-string: Test it.

[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 b2deac7cc71d4f81d5543ca99fd30ddb7d26f183
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Thu Jul 28 18:56:25 2022 +0200

    data-string: Test it.
    
    * tests/data-string.scm: New test file.
    * Makefile.am (SCM_TESTS): Register new test file.
---
 Makefile.am           |  1 +
 tests/data-string.scm | 31 +++++++++++++++++++++++++++++++
 2 files changed, 32 insertions(+)

diff --git a/Makefile.am b/Makefile.am
index 2346ed3..34a4c0a 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -181,6 +181,7 @@ SCM_LOG_DRIVER = \
     $(top_srcdir)/build-aux/test-driver.scm
 
 SCM_TESTS = \
+  tests/data-string.scm \
   tests/envelope.scm \
   tests/error-reporting.scm \
   tests/message-handler.scm \
diff --git a/tests/data-string.scm b/tests/data-string.scm
new file mode 100644
index 0000000..e7b6439
--- /dev/null
+++ b/tests/data-string.scm
@@ -0,0 +1,31 @@
+;;   This file is part of scheme-GNUnet, a partial Scheme port of GNUnet.
+;;   Copyright (C) 2022 GNUnet e.V.
+;;
+;;   scheme-GNUnet is free software: you can redistribute it and/or modify it
+;;   under the terms of the GNU Affero General Public License as published
+;;   by the Free Software Foundation, either version 3 of the License,
+;;   or (at your option) any later version.
+;;
+;;   scheme-GNUnet is distributed in the hope that it will be useful, but
+;;   WITHOUT ANY WARRANTY; without even the implied warranty of
+;;   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;   Affero General Public License for more details.
+;;
+;;   You should have received a copy of the GNU Affero General Public License
+;;   along with this program.  If not, see <http://www.gnu.org/licenses/>.
+;;
+;;   SPDX-License-Identifier: AGPL-3.0-or-later
+
+(import (gnu gnunet data-string)
+       (quickcheck arbitrary)
+       (quickcheck property)
+       (quickcheck)
+       (rnrs bytevectors)
+       (srfi srfi-64))
+
+;; TODO: test errors
+(test-assert
+ "data->string + string->data round-trips"
+ (quickcheck
+  (property ((data $bytevector))
+           (equal? data (string->data (data->string data) (bytevector-length 
data))))))

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