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

More drdr debugging of this file.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2015-11-04 10:57:36 -05:00
parent 8e7fa0f706
commit b773c328d2
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
net-test/tests/net/git-checkout.rkt
View File

@ -59,11 +59,16 @@
[else [else
(error 'compare "no such file: ~s" a)])) (error 'compare "no such file: ~s" a)]))
(require racket/pretty)
(define-syntax-rule (** f args ...) (define-syntax-rule (** f args ...)
(begin (begin
(printf "dir: ~a\n" (current-directory)) (printf "dir: ~a\n" (current-directory))
(pretty-print (directory-list (current-directory)))
(printf "~a ~a\n" f (list 'args ...)) (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 (when git-exe
(for ([link-mode '(rel up abs)]) (for ([link-mode '(rel up abs)])
@ -84,7 +89,7 @@
(parameterize ([current-directory dir]) (parameterize ([current-directory dir])
(make-directory "repo") (make-directory "repo")
(parameterize ([current-directory "repo"]) (parameterize ([current-directory (build-path dir "repo")])
(make-file "x" #"hello") (make-file "x" #"hello")
(make-file "y" #"goodbye") (make-file "y" #"goodbye")
(unless (eq? (system-type) 'windows) (unless (eq? (system-type) 'windows)