tests/file: fix a tar-gzip
test and incorrect raco test
setup
Related to #2744
This commit is contained in:
parent
9dbf729cdd
commit
0801478e75
|
@ -93,7 +93,7 @@
|
|||
(define ch (make-channel))
|
||||
(thread (lambda ()
|
||||
(with-handlers [(exn:fail? (lambda (_exn) (channel-put ch 'success)))]
|
||||
(tar-gzip tgz-file long-path)
|
||||
(tar-gzip tgz-file long-path #:format 'ustar)
|
||||
(channel-put ch 'didnt-fail-in-tar-gzip))))
|
||||
(test (sync/timeout 10 ch) => 'success))
|
||||
|
||||
|
@ -115,9 +115,11 @@
|
|||
(gzip-through-ports in (open-output-bytes) "defalte-me.dat" (current-seconds)))))
|
||||
|
||||
(provide tests)
|
||||
(module+ main (tests))
|
||||
(define (tests) (test do (run-tests)))
|
||||
|
||||
(module+ main (tests))
|
||||
;; Use "main.rkt" with `raco test`, instead of this file
|
||||
|
||||
|
||||
#|
|
||||
|
||||
|
|
|
@ -1,8 +1,5 @@
|
|||
#lang racket/base
|
||||
|
||||
(module test racket/base
|
||||
(displayln "run as program for tests"))
|
||||
|
||||
(require tests/eli-tester
|
||||
(prefix-in gzip: "gzip.rkt")
|
||||
(prefix-in md5: "md5.rkt")
|
||||
|
@ -13,4 +10,8 @@
|
|||
do (md5:tests)
|
||||
do (unpackers:tests)))
|
||||
|
||||
(tests)
|
||||
(module+ main
|
||||
(tests))
|
||||
|
||||
(module+ test
|
||||
(tests))
|
||||
|
|
|
@ -4,6 +4,8 @@
|
|||
(provide tests)
|
||||
|
||||
(module+ main (tests))
|
||||
;; Use "main.rkt" with `raco test`, instead of this file
|
||||
|
||||
(define (tests)
|
||||
(test
|
||||
(md5 #"")
|
||||
|
|
|
@ -208,6 +208,8 @@
|
|||
(untgz (open-input-bytes bad-tar.gz) #:filter (lambda args #f))))))
|
||||
|
||||
(module+ main (tests))
|
||||
;; Use "main.rkt" with `raco test`, instead of this file
|
||||
|
||||
(define (tests)
|
||||
(test do (untar-tests)
|
||||
do (unzip-tests)
|
||||
|
|
Loading…
Reference in New Issue
Block a user