(use lzma)

(define test-string (with-input-from-file "../lzma.so" (lambda () (read-string))))

(define test-blob (string->blob test-string))

(printf "Original size: ~A\n" (blob-size test-blob))

(define compressed (compress test-blob))

(printf "Compressed size: ~A\n" (blob-size compressed))

(define decompressed (decompress compressed))

(printf "Decompressed size: ~A\n" (blob-size decompressed))

(assert (string=? test-string (blob->string decompressed)))