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

Add some output to try to debug this test on DrDr.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2015-11-03 08:45:55 -05:00
parent 3385eeb32f
commit fb9a6a0484
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -59,7 +59,12 @@
[else [else
(error 'compare "no such file: ~s" a)])) (error 'compare "no such file: ~s" a)]))
(when git (define (** f . args)
(printf "dir: ~a\n" (current-directory))
(printf "~a ~a\n" f args)
(apply f args))
(when git-exe
(for ([link-mode '(rel up abs)]) (for ([link-mode '(rel up abs)])
(define dir (make-temporary-file "~a-git-test" 'directory)) (define dir (make-temporary-file "~a-git-test" 'directory))
(define http-custodian (make-custodian)) (define http-custodian (make-custodian))
@ -96,15 +101,15 @@
(make-file-or-directory-link "../x" "abs-x")] (make-file-or-directory-link "../x" "abs-x")]
[else [else
(make-file-or-directory-link "x" "also-x")])) (make-file-or-directory-link "x" "also-x")]))
(git "init") (** git "init")
(git "add" ".") (** git "add" ".")
(git "commit" "-m" "initial commit") (** git "commit" "-m" "initial commit")
(git "update-server-info")) (** git "update-server-info"))
(git-checkout "localhost" #:port 8950 #:transport 'http (** git-checkout "localhost" #:port 8950 #:transport 'http
"repo/.git" "repo/.git"
#:dest-dir "also-repo") #:dest-dir "also-repo")
(compare "repo" "also-repo") (** compare "repo" "also-repo")
(with-handlers ([exn:fail? (with-handlers ([exn:fail?
(lambda (exn) (lambda (exn)
@ -114,14 +119,14 @@
(printf "correct failure\n") (printf "correct failure\n")
(raise exn))] (raise exn))]
[else (raise exn)]))]) [else (raise exn)]))])
(git-checkout "localhost" #:port 8950 #:transport 'http (** git-checkout "localhost" #:port 8950 #:transport 'http
"repo/.git" "repo/.git"
#:dest-dir "safe-repo" #:dest-dir "safe-repo"
#:strict-links? #t) #:strict-links? #t)
(case link-mode (case link-mode
[(abs up) (unless (eq? 'windows (system-type)) [(abs up) (unless (eq? 'windows (system-type))
(error "should not have worked"))]) (error "should not have worked"))])
(compare "repo" "safe-repo")) (** compare "repo" "safe-repo"))
(void))) (void)))
(lambda () (lambda ()