ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: lzlib: Do not fail if lzlib in not available.

Browse source 
* tests/lzlib.scm: Use test-assert* for all test cases, so that there are no
failures if lzlib is unavailable.
This commit is contained in:
Mathieu Othacehe 2019-11-26 08:31:43 +01:00
parent fcc4c6ae60
commit 2c5dd47cef
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tests/lzlib.scm
View file

@ -108,7 +108,7 @@ (define (compress-and-decompress data)
(test-assert* "Bytevector of size relative to Lzip internal buffers (1MiB+1)" (test-assert* "Bytevector of size relative to Lzip internal buffers (1MiB+1)"
(compress-and-decompress (random-bytevector (1+ (* 1024 1024))))) (compress-and-decompress (random-bytevector (1+ (* 1024 1024)))))
(test-assert "make-lzip-input-port/compressed" (test-assert* "make-lzip-input-port/compressed"
(let* ((len (pk 'len (+ 10 (random 4000 %seed)))) (let* ((len (pk 'len (+ 10 (random 4000 %seed))))
(data (random-bytevector len)) (data (random-bytevector len))
(compressed (make-lzip-input-port/compressed (compressed (make-lzip-input-port/compressed