buf: compression tests.

* buf.c (buf_compress): Let's use the level value of -1
if not specified, so Zlib defaults it to 6, or whatever.

* tests/012/buf.tl: New tests.

* txr.1: Note that -1 is a valid level value and that
is the default.

1 files changed, 18 insertions, 0 deletions

diff --git a/tests/012/buf.tl b/tests/012/buf.tl
index 8f494264..01a510ab 100644
--- a/tests/012/buf.tl
+++ b/tests/012/buf.tl
@@ -8,3 +8,21 @@
   (buf-str "\xDCE6\xDCBC") #b'E6BC'
   (str-buf #b'E6') "\xDCE6"
   (buf-str "\xDCE6") #b'E6')
+
+(when (fboundp 'usr:buf-compress)
+  (mtest
+    (< (len (buf-compress (make-buf 1024))) 100) t
+    (buf-compress (make-buf 1024) -2) :error
+    (buf-compress (make-buf 1024) 10) :error)
+
+  (each ((i 0..65535))
+    (let* ((buf (ffi-put i (ffi uint16)))
+           (zbuf (buf-compress buf)))
+      (vtest (buf-decompress zbuf) buf)))
+
+  (let ((buf (random-buf 65536)))
+    (vtest (buf-decompress (buf-compress buf)) buf))
+
+  (mtest
+    (buf-decompress (make-buf 1024)) :error
+    (buf-decompress (make-buf 1024 255)) :error))