From dbaf9a88604310b00ef0f38ce5678e8b19383667 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 1 Apr 2020 16:46:47 -0400 Subject: [PATCH] Just try brute force for packers.rkt instead. --- pkgs/racket-test/tests/file/packers.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/pkgs/racket-test/tests/file/packers.rkt b/pkgs/racket-test/tests/file/packers.rkt index 84b9de1796..86240b112f 100644 --- a/pkgs/racket-test/tests/file/packers.rkt +++ b/pkgs/racket-test/tests/file/packers.rkt @@ -17,7 +17,6 @@ (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) @@ -32,10 +31,11 @@ #f)) (equal? (file-or-directory-permissions p1) (file-or-directory-permissions p2))))) - ;; sometimes seconds are off by 2 + ;; sometimes seconds are off by 4 (define (fuzzy-= a b) (or (= a b) - (= 2 (abs (- a b))))) + (= 2 (abs (- a b))) + (= 4 (abs (- a b))))) (define (round-date s) (if (eq? check-attributes? 'file) ;; granularity of ".zip" file dates is 2 seconds(!) @@ -73,7 +73,6 @@ #: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)) @@ -142,7 +141,8 @@ #:path-filter (lambda (p) (define-values (base name dir?) (split-path p)) (not (regexp-match? #rx"skip" name))))) - untar #t #:filter-path? #t)) + untar #t #:filter-path? #t) + ) (delete-directory/files work-dir)