tests/file: fix a tar-gzip test and incorrect raco test setup

Related to #2744
This commit is contained in:
Matthew Flatt 2019-07-17 08:38:15 -06:00
parent 9dbf729cdd
commit 0801478e75
4 changed files with 13 additions and 6 deletions

View File

@ -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
#|

View 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))

View File

@ -4,6 +4,8 @@
(provide tests)
(module+ main (tests))
;; Use "main.rkt" with `raco test`, instead of this file
(define (tests)
(test
(md5 #"")

View File

@ -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)