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

Add output to help debug packers.rkt intermittent failure.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2020-04-01 16:43:34 -04:00
parent b822c25751
commit 9c92189c82
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/racket-test/tests/file/packers.rkt
View File

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