suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed old (unused) gzip tests

Browse Source 
svn: r14148
This commit is contained in:
Eli Barzilay 2009-03-17 15:01:17 +00:00
parent c69045008d
commit 9d0175ac2d
2 changed files with 102 additions and 93 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
collects/tests/file/gzip.ss
View File

@ -35,3 +35,105 @@
(provide tests)
(define (tests) (test do (run-tests)))
#|
;; ELI: These are the old tests; I think that the only thing that
;; should be added from this to the above is trying the file-related
;; functionality (check that the filename is kept etc).
(require mzlib/deflate
mzlib/inflate)
(for-each (lambda (f)
(when (file-exists? f)
(printf "trying ~a~n" f)
(let ([str
(call-with-input-file f
(lambda (p)
(let-values ([(in out) (make-pipe 4096)]
[(out2) (open-output-bytes)])
(thread
(lambda ()
(gzip-through-ports p out "x" 0)
(close-output-port out)))
(thread-wait
(thread
(lambda ()
(gunzip-through-ports in out2)
(close-output-port out2))))
(get-output-bytes out2))))])
(let ([orig-str (call-with-input-file f
(lambda (p)
(read-bytes (file-size f) p)))])
(unless (bytes=? str orig-str)
(printf "not the same for ~a" f))))))
(directory-list))
#|
;; Uses (unix) `gzip' program from your path.
;; Run this in a directory with lots of files to use as tests
(require mzlib/deflate
mzlib/process)
(define (check-file/fastest p in)
(let ([s1 (make-string 5000)]
[s2 (make-string 5000)])
(let loop ([leftover 0][startpos 0][pos 0])
(let* ([n1 (if (zero? leftover)
(read-string-avail! s1 p)
leftover)]
[n2 (read-string-avail! s2 in 0 (if (eof-object? n1)
1
n1))])
(unless (if (or (eof-object? n1)
(eof-object? n2))
(and (eof-object? n1)
(eof-object? n2))
(if (= n2 n1 5000)
(string=? s1 s2)
(string=? (substring s1 startpos (+ startpos n2))
(substring s2 0 n2))))
(error 'check "failed at ~a (~a@~a ~a)" pos n1 startpos n2))
(unless (eof-object? n1)
(loop (- n1 n2)
(if (= n1 n2)
0
(+ startpos n2))
(+ pos n2)))))))
(define gzip (find-executable-path "gzip" #f))
(unless gzip
(error "cannot find gzip"))
(for-each
(lambda (f)
(when (file-exists? f)
(printf "trying ~a~n" f)
(let-values ([(zo zi zn ze zf)
(apply values (process* gzip "-c" f))]
[(mi mo) (make-pipe 4096)])
(close-output-port zi)
(close-input-port ze)
(thread
(lambda ()
(let ([p (open-input-file f)]
[gz (lambda (p mo)
(gzip-through-ports p mo
(let-values ([(base name dir?) (split-path f)])
name)
(file-or-directory-modify-seconds f)))])
(gz p mo)
(close-output-port mo))))
;; Compare output
(check-file/fastest mi zo)
(close-input-port zo))))
(directory-list))
|#
|#

93
collects/tests/mzscheme/gzip.ss
View File

@ -1,93 +0,0 @@
(require mzlib/deflate
mzlib/inflate)
(for-each (lambda (f)
(when (file-exists? f)
(printf "trying ~a~n" f)
(let ([str
(call-with-input-file f
(lambda (p)
(let-values ([(in out) (make-pipe 4096)]
[(out2) (open-output-bytes)])
(thread
(lambda ()
(gzip-through-ports p out "x" 0)
(close-output-port out)))
(thread-wait
(thread
(lambda ()
(gunzip-through-ports in out2)
(close-output-port out2))))
(get-output-bytes out2))))])
(let ([orig-str (call-with-input-file f
(lambda (p)
(read-bytes (file-size f) p)))])
(unless (bytes=? str orig-str)
(printf "not the same for ~a" f))))))
(directory-list))
#|
;; Uses (unix) `gzip' program from your path.
;; Run this in a directory with lots of files to use as tests
(require mzlib/deflate
mzlib/process)
(define (check-file/fastest p in)
(let ([s1 (make-string 5000)]
[s2 (make-string 5000)])
(let loop ([leftover 0][startpos 0][pos 0])
(let* ([n1 (if (zero? leftover)
(read-string-avail! s1 p)
leftover)]
[n2 (read-string-avail! s2 in 0 (if (eof-object? n1)
1
n1))])
(unless (if (or (eof-object? n1)
(eof-object? n2))
(and (eof-object? n1)
(eof-object? n2))
(if (= n2 n1 5000)
(string=? s1 s2)
(string=? (substring s1 startpos (+ startpos n2))
(substring s2 0 n2))))
(error 'check "failed at ~a (~a@~a ~a)" pos n1 startpos n2))
(unless (eof-object? n1)
(loop (- n1 n2)
(if (= n1 n2)
0
(+ startpos n2))
(+ pos n2)))))))
(define gzip (find-executable-path "gzip" #f))
(unless gzip
(error "cannot find gzip"))
(for-each
(lambda (f)
(when (file-exists? f)
(printf "trying ~a~n" f)
(let-values ([(zo zi zn ze zf)
(apply values (process* gzip "-c" f))]
[(mi mo) (make-pipe 4096)])
(close-output-port zi)
(close-input-port ze)
(thread
(lambda ()
(let ([p (open-input-file f)]
[gz (lambda (p mo)
(gzip-through-ports p mo
(let-values ([(base name dir?) (split-path f)])
name)
(file-or-directory-modify-seconds f)))])
(gz p mo)
(close-output-port mo))))
;; Compare output
(check-file/fastest mi zo)
(close-input-port zo))))
(directory-list))
|#