Changeset 15238 in project


Ignore:
Timestamp:
07/18/09 13:22:42 (10 years ago)
Author:
Alaric Snell-Pym
Message:

C-Keen's second patch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/lzma/trunk/tests/run.scm

    r15236 r15238  
    1 (load "../lzma")
     1(use lzma)
    22
    33(define test-string (with-input-from-file "../lzma.so" (lambda () (read-string))))
     
    77(printf "Original size: ~A\n" (blob-size test-blob))
    88
    9 (define compressed (lzma:compress test-blob))
     9(define compressed (compress test-blob))
    1010
    1111(printf "Compressed size: ~A\n" (blob-size compressed))
    1212
    13 (define decompressed (lzma:decompress compressed))
     13(define decompressed (decompress compressed))
    1414
    1515(printf "Decompressed size: ~A\n" (blob-size decompressed))
Note: See TracChangeset for help on using the changeset viewer.