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

fix `subprocess' test

Browse Source 
Merge to v5.3
This commit is contained in:
Matthew Flatt 2012-07-23 21:09:29 -05:00
parent 8e889cfdb1
commit 22960b9c75
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/tests/racket/mzlib-tests.rktl
View File

@ -32,5 +32,6 @@
(load-in-sandbox "macrolib.rktl") (load-in-sandbox "macrolib.rktl")
(load-in-sandbox "resource.rktl") (load-in-sandbox "resource.rktl")
(load-in-sandbox "syntaxlibs.rktl") (load-in-sandbox "syntaxlibs.rktl")
(load-in-sandbox "subprocess.rktl")
(report-errs) (report-errs)

2
collects/tests/racket/subprocess.rktl
View File

@ -342,7 +342,7 @@
(let ([no-nuls (lambda (thunk) (let ([no-nuls (lambda (thunk)
(err/rt-test (thunk) (lambda (exn) (err/rt-test (thunk) (lambda (exn)
(regexp-match? #rx"without nuls" (exn-message exn)))))]) (regexp-match? #rx"bytes-no-nuls[?]" (exn-message exn)))))])
(no-nuls (lambda () (subprocess #f #f #f cat "\0"))) (no-nuls (lambda () (subprocess #f #f #f cat "\0")))
(no-nuls (lambda () (subprocess #f #f #f cat #"\0"))) (no-nuls (lambda () (subprocess #f #f #f cat #"\0")))
(no-nuls (lambda () (process "\0"))) (no-nuls (lambda () (process "\0")))