diff options
Diffstat (limited to 'tests/utils.scm')
| -rw-r--r-- | tests/utils.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index 462e43e2b1..ec6dbe6209 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -212,6 +212,8 @@ skip these tests." get-bytevector-all)))) ((result) (get-bytevector-all decompressed))) + (pk decompressed pids) +; (holy punting shit) (close-port decompressed) (pk 'len method (if (bytevector? result) @@ -220,7 +222,7 @@ skip these tests." (bytevector-length data)) (and (every (compose zero? cdr waitpid) (pk 'pids method pids)) - (equal? result data))))))))) + (equal? (pk result) data))))))))) (false-if-exception (delete-file temp-file)) (unless (run?) (test-skip 1)) |