[gnunet-scheme] 102/324: tests: config-parser: Don't generate inexact numbers.

[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 cea447cbdfac373620db8586d64006d61e80b1f7
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sun Mar 28 23:26:20 2021 +0200

    tests: config-parser: Don't generate inexact numbers.
    
    * tests/config-parser.scm: As the commit message says.
---
 tests/config-parser.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tests/config-parser.scm b/tests/config-parser.scm
index 7c11420..6279523 100644
--- a/tests/config-parser.scm
+++ b/tests/config-parser.scm
@@ -226,13 +226,14 @@ in-bounds for the string @var{line}."
        (#f (error "what madness is this?"))))
 
 (configure-quickcheck
+ ;; Increase this when testing.
  (stop? (lambda (success-count _)
-         (>= success-count 2048)))
+         (>= success-count #;16384 2048)))
  ;; Large inputs don't produce much additional value.
  (size (lambda (test-number)
         (if (zero? test-number)
             0
-            (1+ (floor/ (log test-number) (log 8)))))))
+            (1+ (inexact->exact (floor/ (log test-number) (log 8))))))))
 
 (test-assert "line position parser does not crash"
   (quickcheck

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