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

add some debugging to try to figure out why the

Browse Source 
drdr run of these files are going wrong
This commit is contained in:
Robby Findler 2013-08-10 05:23:32 -05:00
parent 8caaf89e56
commit 577bae6769
3 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/gui-pkgs/gui-test/framework/tests/test-suite-utils.rkt
View File

@ -99,7 +99,9 @@
racket-bin
(path->string
(collection-file-path "framework-test-engine.rkt" "framework" "tests")))
(eprintf "starting gracket failed; used path ~s\n" racket-bin))))
(eprintf "starting gracket failed; used path ~s; (find-system-path 'exec-file) = ~s\n"
racket-bin
(find-system-path 'exec-file)))))
(debug-printf mz-tcp "accepting listener\n")
(let-values ([(in out) (tcp-accept listener)])
(set! in-port in)

9
pkgs/racket-pkgs/racket-test/tests/racket/contract/all.rkt
View File

@ -177,14 +177,21 @@
(dynamic-require (build-path (this-dir) (car file)) #f)))))]))
(define (replay-io file-to-run io)
(flush-output (current-output-port))
(flush-output (current-error-port))
(printf "FINISHED ~a\n" (car file-to-run))
(for ([pr (in-list io)])
(display (cdr pr)
((case (car pr)
[(out) current-output-port]
[(err) current-error-port])))))
[(err) current-error-port]))))
(flush-output (current-output-port))
(flush-output (current-error-port)))
(main)
(flush-output (current-output-port))
(flush-output (current-error-port))
(fprintf (if (zero? failures)
(current-output-port)
(current-error-port))

4
pkgs/racket-pkgs/racket-test/tests/racket/contract/contract-out.rkt
View File

@ -660,7 +660,9 @@
(λ (x)
(define m
(regexp-match #rx"contract-out[.]rkt[^ ]*.30" (exn-message x)))
(and m (car m)))))
(if m
(car m)
(list 'regexp-match-failed (exn-message x))))))
(contract-eval '(require 'provide/contract-35/n)))))
;; test that provide/contract by itself in a module doesn't signal an error