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

fix multi-core variant of the racket contract tests

Browse Source
This commit is contained in:
Robby Findler 2019-07-18 03:13:21 -05:00
parent 4d361187a2
commit cec813fef6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/racket-test/tests/racket/contract/all.rkt
View File

@ -177,7 +177,7 @@
(for ([pc (in-list free)]) (for ([pc (in-list free)])
(place-channel-put pc 'get-counts-and-stop) (place-channel-put pc 'get-counts-and-stop)
(define-values (tests failures) (apply values (place-channel-get pc))) (define-values (tests failures) (apply values (place-channel-get pc)))
(for ([i (in-range tests)]) (new-test-case)) (for ([i (in-range tests)]) (new-test-case 'unknown-name))
(for ([i (in-range failures)]) (new-failure)))] (for ([i (in-range failures)]) (new-failure)))]
[else [else
(apply sync (apply sync