afiw/chicken-rabbit
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Port to CHICKEN 6

Browse source
This commit is contained in:
cælōrum spectātrīx 2025-11-11 17:25:59 +01:00
parent 16608b0ee9
commit 7fca09fbf6
8 changed files with 69 additions and 127 deletions
Download patch file Download diff file Expand all files Collapse all files

41
tests/run.scm
View file

@ -1,20 +1,23 @@
(import scheme (chicken base) (chicken random) (chicken blob) rabbit test)
(test-group "rabbit 1000 random vectors"
(let loop ((n 1000))
(test-assert
(if (= n 0) #t
(if (let* (
(keylen (+ (pseudo-random-integer 10) 24))
(key (random-bytes (make-blob keylen)))
(datalen (pseudo-random-integer 100000))
(data (random-bytes (make-blob datalen)))
(ctx (make-context key))
)
(let ((res (not (equal? data (decode! ctx (encode! ctx data))))))
(destroy-context! ctx)
res))
#f
(loop (- n 1)))))))
(import
(scheme base)
(chicken base)
(chicken random)
(chicken bytevector)
(rabbit)
(test))
;; eof
(test-group "rabbit 1000 random vectors"
(let loop ((n 1000))
(test-assert
(if (= n 0)
#t
(if (let* ((keylen (+ (pseudo-random-integer 10) 24))
(key (random-bytes (make-bytevector keylen)))
(datalen (pseudo-random-integer 100000))
(data (random-bytes (make-bytevector datalen)))
(ctx (make-context key)))
(let ((res (not (equal? data (decode! ctx (encode! ctx data))))))
(destroy-context! ctx)
res))
#f
(loop (- n 1)))))))