Changeset 15238 in project
- Timestamp:
- 07/18/09 13:22:42 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/lzma/trunk/tests/run.scm
r15236 r15238 1 ( load "../lzma")1 (use lzma) 2 2 3 3 (define test-string (with-input-from-file "../lzma.so" (lambda () (read-string)))) … … 7 7 (printf "Original size: ~A\n" (blob-size test-blob)) 8 8 9 (define compressed ( lzma:compress test-blob))9 (define compressed (compress test-blob)) 10 10 11 11 (printf "Compressed size: ~A\n" (blob-size compressed)) 12 12 13 (define decompressed ( lzma:decompress compressed))13 (define decompressed (decompress compressed)) 14 14 15 15 (printf "Decompressed size: ~A\n" (blob-size decompressed))
Note: See TracChangeset
for help on using the changeset viewer.