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

clean up temporary files

Browse Source 
svn: r17970
This commit is contained in:
Robby Findler 2010-02-04 20:31:51 +00:00
parent 0a6f85a49c
commit 1b39d29640
1 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/tests/drscheme/repl-test.ss
View File

@ -1074,8 +1074,20 @@ This produces an ACK message
(normalize-path (normalize-path
(collection-path "tests" "drscheme")))) (collection-path "tests" "drscheme"))))
(define tmp-load-short-filename "repl-test-tmp.ss")
(define tmp-load-filename (build-path tmp-load-directory tmp-load-short-filename))
(define tmp-load3-short-filename "repl-test-tmp3.ss")
(define tmp-load3-filename (build-path tmp-load-directory tmp-load3-short-filename))
tmp-load-filename
(define (cleanup-tmp-files)
(when (file-exists? tmp-load-filename) (delete-file tmp-load-filename))
(when (file-exists? tmp-load3-filename) (delete-file tmp-load3-filename)))
(define (run-test) (define (run-test)
(define drscheme-frame (wait-for-drscheme-frame)) (define drscheme-frame (wait-for-drscheme-frame))
(define interactions-text (send drscheme-frame get-interactions-text)) (define interactions-text (send drscheme-frame get-interactions-text))
@ -1087,11 +1099,6 @@ This produces an ACK message
(define wait-for-execute (lambda () (wait-for-button execute-button))) (define wait-for-execute (lambda () (wait-for-button execute-button)))
(define get-int-pos (lambda () (get-text-pos interactions-text))) (define get-int-pos (lambda () (get-text-pos interactions-text)))
(define tmp-load-short-filename "repl-test-tmp.ss")
(define tmp-load-filename (build-path tmp-load-directory tmp-load-short-filename))
(define tmp-load3-short-filename "repl-test-tmp3.ss")
(define tmp-load3-filename (build-path tmp-load-directory tmp-load3-short-filename))
(define short-tmp-load-filename (define short-tmp-load-filename
(let-values ([(base name dir?) (split-path tmp-load-filename)]) (let-values ([(base name dir?) (split-path tmp-load-filename)])
@ -1510,5 +1517,11 @@ This produces an ACK message
(let () (let ()
(fire-up-drscheme) (fire-up-drscheme)
(wait-for-drscheme-frame) ;; after this point, it is safe to set the exit handler
(exit-handler
(let ([eh (exit-handler)])
(λ (val)
(cleanup-tmp-files)
(eh val))))
(thread (λ () (run-test) (exit))) (thread (λ () (run-test) (exit)))
(yield (make-semaphore 0))) (yield (make-semaphore 0)))