source: project/release/4/z3/tests/run.scm @ 15109

Last change on this file since 15109 was 15109, checked in by felix winkelmann, 11 years ago

removed test-script

File size: 2.0 KB
RevLine 
[15108]1(use posix z3 testeez utils)
2
3(system "cp ../BSD-LICENCE .")
4(define BSD-LICENCE (read-all "BSD-LICENCE"))
5(system* "gzip -c BSD-LICENCE >BSD-LICENCE.gz")
6
7(testeez
8 "z3"
9
10 (test-eval "compressing empty buffer" (z3:encode-buffer ""))
11 (test-eval "compressing single char buffer" (z3:encode-buffer "0"))
12
13 (test-define "opening file" fd (file-open "BSD-LICENCE.gz" (+ open/trunc open/wronly)))
14 (test-define "init" z3 (z3:encode-file fd level: 8))
15 (test-eval "writing" (z3:write-encoded z3 (substring BSD-LICENCE 0 100)))
16 (test-eval "writing (2)" (z3:write-encoded z3 (substring BSD-LICENCE 100)))
17 (test-eval "writing (3)" (z3:write-encoded z3 #f))
18 (test-eval "closing" (file-close fd))
19 (test/equal "testing result" (system "gunzip -c BSD-LICENCE.gz >tmp && cmp tmp BSD-LICENCE") 0)
20
21 (test-define "opening file" fd (file-open "BSD-LICENCE.gz" open/read))
22 (test-define "init" z3 (z3:decode-file fd))
23 (test/equal "reading" (string=? (let loop () 
24                         (let ((x (z3:read-decoded z3)))
25                           (if (eof-object? x)
26                               ""
27                               (string-append x (loop)) ) ) )
28                                 BSD-LICENCE)
29             #t)
30 (test-eval "closing file" (file-close fd)) 
31 
32 (test-define "compression destination" dest (open-output-string))
33 (test-define "definining compression receiver" r (lambda (x) (display x dest)))
34 (test-define "prepare compression" ze (z3:encode-init))
35 (test-eval "compressing ..." (let loop ((c BSD-LICENCE))
36                                (let ((t (z3:encode ze r c)))
37                                  (when t
38                                    (print* ".")
39                                    (loop (substring c t)) ) ) ) )
40 (test-define "compressed" compressed (get-output-string dest))
41 (test-eval "compressed size" (conc (string-length BSD-LICENCE) " -> " (string-length compressed)))
42
43 (test-define "prepare decompression" z (z3:decode-init))
44 (test-eval "decomp. destination" (set! dest (open-output-string)))
45 (test-eval "decompressing..." (let loop ((c compressed))
46                                 (let ((t (z3:decode z r c)))
47                                   (when t
48                                     (print* "(" (string-length c) ")")
49                                     (loop (substring c t)) ) ) ) )
50 (test/equal "comparing results" (string=? BSD-LICENCE (get-output-string dest)) #t)
51
52)
Note: See TracBrowser for help on using the repository browser.