source: project/release/3/lzma/trunk/tests/run.scm @ 13063

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

lzma version 1.0

File size: 476 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.