steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.launcher.unix: tests don't hang on failure

Slava Pestov 2009-11-22 13:49:10 -06:00
parent 08b6ebc7fa
commit 6d396c51ab
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/io/launcher/unix/unix-tests.factor
View File

@ -3,7 +3,7 @@ USING: io.files io.files.temp io.directories io.pathnames
tools.test io.launcher arrays io namespaces continuations math tools.test io.launcher arrays io namespaces continuations math
io.encodings.binary io.encodings.ascii accessors kernel io.encodings.binary io.encodings.ascii accessors kernel
sequences io.encodings.utf8 destructors io.streams.duplex locals sequences io.encodings.utf8 destructors io.streams.duplex locals
concurrency.promises threads unix.process ; concurrency.promises threads unix.process calendar ;
[ ] [ [ ] [
[ "launcher-test-1" temp-file delete-file ] ignore-errors [ "launcher-test-1" temp-file delete-file ] ignore-errors
@ -128,12 +128,13 @@ concurrency.promises threads unix.process ;
[let [let
<promise> :> p <promise> :> p
<promise> :> s <promise> :> s
[ [
"sleep 1000" run-detached "sleep 1000" run-detached
[ p fulfill ] [ wait-for-process s fulfill ] bi [ p fulfill ] [ wait-for-process s fulfill ] bi
] in-thread ] in-thread
p ?promise handle>> 9 kill drop p 1 seconds ?promise-timeout handle>> 9 kill drop
s ?promise 0 = s ?promise 0 =
] ]
] unit-test ] unit-test