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

fix test problems

Browse Source 
svn: r18221
This commit is contained in:
Matthew Flatt 2010-02-20 12:23:01 +00:00
parent 190af1efe9
commit d2bdc2eca8
4 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/future/future.ss
View File

@ -1,4 +1,4 @@
(load-relative "loadtest.ss")
(load-relative "../mzscheme/loadtest.ss")
(Section 'future)
(require scheme/future)

11
collects/tests/future/random-future.ss
View File

@ -186,8 +186,9 @@ Errors/exceptions and other kinds of control?
(define-namespace-anchor ns-here)
(let loop ([n 100])
(printf ".") (flush-output)
(let ([p (gen-prog)])
(pretty-print p)
(eval p (namespace-anchor->namespace ns-here)))
(loop (- n 1)))
(unless (zero? n)
(printf ".") (flush-output)
(let ([p (gen-prog)])
(pretty-print p)
(eval p (namespace-anchor->namespace ns-here)))
(loop (- n 1))))

1
collects/tests/info.ss
View File

@ -8,6 +8,7 @@
'("2htdp"
"aligned-pasteboard"
"deinprogramm"
"future"
"honu"
"match"
"macro-debugger"

16
collects/tests/mzscheme/filelib.ss
View File

@ -80,9 +80,9 @@
(bytes<? (path->bytes a) (path->bytes b)))))])
(test #t equal? (sort rel) (sort rel2))
(when (eq? (system-type) 'unix)
(system "ln -s filelib.ss filelib-link.ss")
(system "ln -s . loop-link")
(unless (eq? (system-type) 'windows)
(make-file-or-directory-link "filelib.ss" "filelib-link")
(make-file-or-directory-link "." "loop-link")
(test (+ 2 (length rel2))
fold-files
@ -92,7 +92,7 @@
[(file-exists? name) 'file]
[(directory-exists? name) 'dir]
[else '???]))
(when (member name '("filelib-link.ss" "loop-link"))
(when (member name '("filelib-link" "loop-link"))
(test kind name 'link))
(add1 accum))
0
@ -107,14 +107,14 @@
[(file-exists? name) 'file]
[(directory-exists? name) 'dir]
[else '???]))
(when (member name '("filelib-link.ss" "loop-link"))
(when (member name '("filelib-link" "loop-link"))
(test kind name 'link))
(values (add1 accum) #t))
0
#f
#f)
(system "rm loop-link")
(delete-file "loop-link")
(test (+ 1 (length rel2))
fold-files
@ -122,14 +122,14 @@
(test kind values (cond
[(file-exists? name) 'file]
[else 'dir]))
(when (member name '("filelib-link.ss"))
(when (member name '("filelib-link"))
(test kind name 'file))
(add1 accum))
0
#f
#t)
(system "rm filelib-link.ss")
(delete-file "filelib-link")
'done))))