From 9c92189c829015004c4216ff3c936bd04a701d8e Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 1 Apr 2020 16:43:34 -0400 Subject: [PATCH] Add output to help debug packers.rkt intermittent failure. --- pkgs/racket-test/tests/file/packers.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/pkgs/racket-test/tests/file/packers.rkt b/pkgs/racket-test/tests/file/packers.rkt index 5e9520daaf..84b9de1796 100644 --- a/pkgs/racket-test/tests/file/packers.rkt +++ b/pkgs/racket-test/tests/file/packers.rkt @@ -17,6 +17,7 @@ (if (regexp-match? (car p) permissions) (bitwise-ior n (cadr p)) n)))) (define (diff src dest check-attributes?) + (printf "src: ~s dest: ~s\n" src dest) (define (compare-attributes p1 p2) (or (not check-attributes?) (and (or (and (eq? check-attributes? 'file) @@ -72,6 +73,7 @@ #:file-name [f2 "f2"] #:links? [links? #f] #:filter-path? [filter-path? #f]) + (printf "running zip-tests: ~s ~s ~s\n" zip unzip timestamps?) (make-directory* ex1) (make-file (build-path ex1 "f1")) (make-file (build-path ex1 f2))