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

Fixing Unix I/O tests

db4
Daniel Ehrenberg 2008-02-25 14:24:44 -06:00
parent 08a3d0ba12
commit 63e04a9b17
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
extra/io/unix/unix-tests.factor
View File

@ -6,10 +6,10 @@ IN: temporary
! Unix domain stream sockets
[
[
"unix-domain-socket-test" resource-path delete-file
"unix-domain-socket-test" temp-file delete-file
] ignore-errors
"unix-domain-socket-test" resource-path <local>
"unix-domain-socket-test" temp-file <local>
ascii <server> [
accept [
"Hello world" print flush
@ -17,14 +17,14 @@ IN: temporary
] with-stream
] with-disposal
"unix-domain-socket-test" resource-path delete-file
"unix-domain-socket-test" temp-file delete-file
] "Test" spawn drop
yield
[ { "Hello world" "FOO" } ] [
[
"unix-domain-socket-test" resource-path <local>
"unix-domain-socket-test" temp-file <local>
ascii <client> [
readln ,
"XYZ" print flush
@ -35,7 +35,7 @@ yield
! Unix domain datagram sockets
[
"unix-domain-datagram-test" resource-path delete-file
"unix-domain-datagram-test" temp-file delete-file
] ignore-errors
: server-addr "unix-domain-datagram-test" temp-file <local> ;
@ -67,17 +67,18 @@ yield
"Done" print
"unix-domain-datagram-test" resource-path delete-file
"unix-domain-datagram-test" temp-file delete-file
] with-scope
] "Test" spawn drop
yield
[
"unix-domain-datagram-test-2" resource-path delete-file
"unix-domain-datagram-test-2" temp-file delete-file
] ignore-errors
client-addr <datagram>
"Four" print
"d" set
[ ] [
@ -109,7 +110,7 @@ client-addr <datagram>
! Test error behavior
[
"unix-domain-datagram-test-3" resource-path delete-file
"unix-domain-datagram-test-3" temp-file delete-file
] ignore-errors
"unix-domain-datagram-test-2" temp-file delete-file