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