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

more debugging information printed

Browse Source 
svn: r18148
This commit is contained in:
Robby Findler 2010-02-18 13:54:39 +00:00
parent 3ec0cb2731
commit b51f3e0940
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/tests/plai/test-random-mutator.ss
View File

@ -11,6 +11,8 @@
;; random mutator generation tests
;;
(define-runtime-path no-compact-cheat-path "gc/good-collectors/no-compact-cheat.ss")
(define-runtime-path here ".")
;; test-code : exp -> boolean
@ -23,15 +25,27 @@
(fprintf port "#lang plai/mutator\n")
(fprintf port "~s\n" `(allocator-setup ,(path->string
(find-relative-path
(simple-form-path tmpfile)
(build-path (simple-form-path here)
"gc" "good-collectors"
"no-compact-cheat.ss")))
(normalize-path (simple-form-path tmpfile))
(normalize-path
(simple-form-path no-compact-cheat-path))))
100))
(for-each (λ (exp) (pretty-print exp port)) exps))
#:exists 'truncate)
(printf "tmpfile: ~s\n" tmpfile)
(printf "simple-form tmpfile ~s\n" (simple-form-path tmpfile))
(printf "normalized tmpfile ~s\n" (normalize-path (simple-form-path tmpfile)))
(newline)
(printf "collector ~s\n" no-compact-cheat-path)
(printf "simple-form collector: ~s\n" (simple-form-path no-compact-cheat-path))
(printf "normalized simple-form collector: ~s\n" (normalize-path (simple-form-path no-compact-cheat-path)))
(newline)
(printf "here ~s\n" here)
(printf "simple-form here: ~s\n" (simple-form-path here))
(printf "normalized simple-form here: ~s\n" (normalize-path (simple-form-path here)))
(newline)
(printf "tmpfile contents:\n")
(call-with-input-file tmpfile (λ (p) (copy-port p (current-output-port))))
(let ([sp (open-output-string)])