diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-01-16 21:42:27 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-01-16 23:14:05 +0100 |
| commit | 3597c0396b9bd6440c02462107c743c6aeb29672 (patch) | |
| tree | 20274331d7f3a3100cb771b6c729322266b23d37 /tests | |
| parent | 584e46b1e03c18755ee4527164d751ddb20d8d18 (diff) | |
| download | guix-3597c0396b9bd6440c02462107c743c6aeb29672.tar guix-3597c0396b9bd6440c02462107c743c6aeb29672.tar.gz | |
lzlib: Define 'dictionary-size+match-length-limit'.
* guix/lzlib.scm (%compression-levels): Splice the rest of each element.
(dictionary-size+match-length-limit): New procedure.
(make-lzip-output-port, make-lzip-input-port/compressed): Use it.
* tests/lzlib.scm ("Bytevector of size relative to Lzip internal buffers (2 * dictionary)"):
Use 'dictionary-size+match-length-limit' instead of 'assoc-ref'.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/lzlib.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/lzlib.scm b/tests/lzlib.scm index d8d0e6edf8..63d1e15641 100644 --- a/tests/lzlib.scm +++ b/tests/lzlib.scm @@ -87,8 +87,7 @@ (test-assert* "Bytevector of size relative to Lzip internal buffers (2 * dictionary)" (compress-and-decompress (random-bytevector - (* 2 (car (car (assoc-ref (@@ (guix lzlib) %compression-levels) - (@@ (guix lzlib) %default-compression-level)))))))) + (* 2 (dictionary-size+match-length-limit %default-compression-level))))) (test-assert* "Bytevector of size relative to Lzip internal buffers (64KiB)" (compress-and-decompress (random-bytevector (* 64 1024)))) |