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

Make file-list-queue% use new error format.

Browse Source 
Closes PR 15013.
This commit is contained in:
Eric Dobson 2015-04-26 22:04:35 -07:00 committed by Matthew Flatt
parent aef101fd84
commit 06634b74d5
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-test/tests/setup/parallel-build.rkt
View File

@ -1,8 +1,13 @@
#lang racket/base #lang racket/base
(require (require
racket/file
rackunit rackunit
setup/parallel-build) setup/parallel-build)
(check-exn exn:fail:contract? (λ () (parallel-compile "."))) (check-exn exn:fail:contract? (λ () (parallel-compile ".")))
(check-exn exn:fail:contract? (λ () (parallel-compile-files (list) #:worker-count 2.5))) (check-exn exn:fail:contract? (λ () (parallel-compile-files (list) #:worker-count 2.5)))
(check-exn exn:fail:contract? (λ () (parallel-compile-files (list) #:handler 5))) (check-exn exn:fail:contract? (λ () (parallel-compile-files (list) #:handler 5)))
(define temporary-directory (make-temporary-file "parallel-build~a" 'directory))
(check-false (parallel-compile-files (list temporary-directory)))
(delete-directory/files temporary-directory)

7
racket/collects/setup/parallel-build.rkt
View File

@ -223,9 +223,10 @@
(match result-type (match result-type
[(list 'LOCK fn) (lm/lock lock-mgr fn wrkr) #f] [(list 'LOCK fn) (lm/lock lock-mgr fn wrkr) #f]
[(list 'UNLOCK fn) (lm/unlock lock-mgr fn) #f] [(list 'UNLOCK fn) (lm/unlock lock-mgr fn) #f]
[(list 'ERROR msg) (handler id 'error work msg out err) [(list 'ERROR long-msg short-msg)
(set! results #f) (handler id 'error work long-msg out err)
#t] (set! results #f)
#t]
[(list 'LOG level msg data) [(list 'LOG level msg data)
(when (log-level? pb-logger level) (when (log-level? pb-logger level)
(log-message pb-logger level msg (parallel-compile-event id data))) (log-message pb-logger level msg (parallel-compile-event id data)))