From b773c328d2fe0ecda33ea00d13d88c8d3a26739d Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 4 Nov 2015 10:57:36 -0500 Subject: [PATCH] More drdr debugging of this file. --- net-test/tests/net/git-checkout.rkt | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/net-test/tests/net/git-checkout.rkt b/net-test/tests/net/git-checkout.rkt index 3970df210f..052c04c192 100644 --- a/net-test/tests/net/git-checkout.rkt +++ b/net-test/tests/net/git-checkout.rkt @@ -59,11 +59,16 @@ [else (error 'compare "no such file: ~s" a)])) +(require racket/pretty) (define-syntax-rule (** f args ...) (begin (printf "dir: ~a\n" (current-directory)) + (pretty-print (directory-list (current-directory))) (printf "~a ~a\n" f (list 'args ...)) - (f args ...))) + (flush-output) + (begin0 (f args ...) + (printf "completed ~a ~a\n" f (list 'args ...)) + (flush-output)))) (when git-exe (for ([link-mode '(rel up abs)]) @@ -84,7 +89,7 @@ (parameterize ([current-directory dir]) (make-directory "repo") - (parameterize ([current-directory "repo"]) + (parameterize ([current-directory (build-path dir "repo")]) (make-file "x" #"hello") (make-file "y" #"goodbye") (unless (eq? (system-type) 'windows)