source: project/release/4/lzma/trunk/tests/run.scm @ 15236

Last change on this file since 15236 was 15236, checked in by Alaric Snell-Pym, 11 years ago

Egg 3 brought up

File size: 480 bytes
Line 
1(load "../lzma")
2
3(define test-string (with-input-from-file "../lzma.so" (lambda () (read-string))))
4
5(define test-blob (string->blob test-string))
6
7(printf "Original size: ~A\n" (blob-size test-blob))
8
9(define compressed (lzma:compress test-blob))
10
11(printf "Compressed size: ~A\n" (blob-size compressed))
12
13(define decompressed (lzma:decompress compressed))
14
15(printf "Decompressed size: ~A\n" (blob-size decompressed))
16
17(assert (string=? test-string (blob->string decompressed)))
Note: See TracBrowser for help on using the repository browser.