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

probable fix to problems with this file (make sure find-relative-path's first argument is a directory)

Browse Source 
svn: r18187
This commit is contained in:
Robby Findler 2010-02-19 15:29:54 +00:00
parent 94880b4733
commit 47b5892c92
1 changed files with 2 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -25,29 +25,14 @@
(fprintf port "#lang plai/mutator\n")
(fprintf port "~s\n" `(allocator-setup ,(path->string
(find-relative-path
(normalize-path (simple-form-path tmpfile))
(let-values ([(base name dir?) (split-path tmpfile)])
(normalize-path (simple-form-path base)))
(normalize-path
(simple-form-path collector-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" collector-path)
(printf "simple-form collector: ~s\n" (simple-form-path collector-path))
(printf "normalized simple-form collector: ~s\n" (normalize-path (simple-form-path collector-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)])
(parameterize ([current-output-port sp])
(dynamic-require tmpfile #f))