1 USING: io.files io.files.temp io.directories io.sockets io kernel threads
2 namespaces tools.test continuations strings byte-arrays
3 sequences prettyprint system io.encodings.binary io.encodings.ascii
4 io.streams.duplex destructors make io.launcher ;
5 IN: io.backend.unix.tests
7 ! Unix domain stream sockets
8 : socket-server "unix-domain-socket-test" temp-file ;
11 [ socket-server delete-file ] ignore-errors
16 "Hello world" print flush
17 readln "XYZ" = "FOO" "BAR" ? print flush
21 socket-server delete-file
26 [ { "Hello world" "FOO" } ] [
28 socket-server <local> ascii [
36 : datagram-server "unix-domain-datagram-test" temp-file ;
37 : datagram-client "unix-domain-datagram-test-2" temp-file ;
39 ! Unix domain datagram sockets
40 [ datagram-server delete-file ] ignore-errors
41 [ datagram-client delete-file ] ignore-errors
45 datagram-server <local> <datagram> "d" set
49 "d" get receive [ reverse ] dip
58 "d" get receive [ " world" append ] dip
69 datagram-server delete-file
75 [ datagram-client delete-file ] ignore-errors
77 datagram-client <local> <datagram>
82 datagram-server <local>
88 datagram-server <local> =
94 datagram-server <local>
100 datagram-server <local> =
104 [ ] [ "d" get dispose ] unit-test
106 ! Test error behavior
107 : another-datagram "unix-domain-datagram-test-3" temp-file ;
109 [ another-datagram delete-file ] ignore-errors
111 datagram-client delete-file
113 [ ] [ datagram-client <local> <datagram> "d" set ] unit-test
115 [ B{ 1 2 3 } another-datagram <local> "d" get send ] must-fail
117 [ ] [ "d" get dispose ] unit-test
119 ! See what happens on send/receive after close
121 [ "d" get receive ] must-fail
123 [ B{ 1 2 } datagram-server <local> "d" get send ] must-fail
125 ! Invalid parameter tests
128 image binary [ input-stream get accept ] with-file-reader
132 image binary [ input-stream get receive ] with-file-reader
137 B{ 1 2 } datagram-server <local>
138 input-stream get send
142 ! closing stdin caused some problems
148 "-e=USING: destructors namespaces io calendar threads ; input-stream get dispose 1 seconds sleep" ,
149 ] { } make try-process