2 USING: io.sockets sequences math tools.test namespaces accessors
3 kernel destructors calendar io.timeouts io.encodings.utf8 io
4 concurrency.promises threads io.streams.string ;
7 [ "1.2.3.4" T{ inet4 } inet-pton ] unit-test
10 [ B{ 1 2 3 4 } T{ inet4 } inet-ntop ] unit-test
13 [ B{ 255 255 255 255 } T{ inet4 } inet-ntop ] unit-test
15 [ B{ 255 255 255 255 } ]
16 [ "255.255.255.255" T{ inet4 } inet-pton ] unit-test
18 [ B{ 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 } ]
19 [ "1:2:3:4:5:6:7:8" T{ inet6 } inet-pton ] unit-test
22 [ B{ 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 } T{ inet6 } inet-ntop ] unit-test
24 [ B{ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } ]
25 [ "::" T{ inet6 } inet-pton ] unit-test
28 [ B{ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } T{ inet6 } inet-ntop ] unit-test
30 [ B{ 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } ]
31 [ "1::" T{ inet6 } inet-pton ] unit-test
33 [ B{ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } ]
34 [ "::1" T{ inet6 } inet-pton ] unit-test
36 [ B{ 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 2 } ]
37 [ "1::2" T{ inet6 } inet-pton ] unit-test
39 [ B{ 0 1 0 0 0 0 0 0 0 0 0 0 0 2 0 3 } ]
40 [ "1::2:3" T{ inet6 } inet-pton ] unit-test
42 [ B{ 0 1 0 2 0 0 0 0 0 0 0 0 0 3 0 4 } ]
43 [ "1:2::3:4" T{ inet6 } inet-pton ] unit-test
46 [ B{ 0 1 0 2 0 0 0 0 0 0 0 0 0 3 0 4 } T{ inet6 } inet-ntop ] unit-test
48 [ t ] [ "localhost" 80 <inet> resolve-host length 1 >= ] unit-test
51 [ ] [ "127.0.0.1" 0 <inet4> <datagram> "datagram1" set ] unit-test
52 [ ] [ "datagram1" get addr>> "addr1" set ] unit-test
53 [ f ] [ "addr1" get port>> 0 = ] unit-test
55 [ ] [ "127.0.0.1" 0 <inet4> <datagram> "datagram2" set ] unit-test
56 [ ] [ "datagram2" get addr>> "addr2" set ] unit-test
57 [ f ] [ "addr2" get port>> 0 = ] unit-test
59 [ ] [ B{ 1 2 3 4 } "addr2" get "datagram1" get send ] unit-test
60 [ B{ 1 2 3 4 } ] [ "datagram2" get receive "from" set ] unit-test
61 [ ] [ B{ 4 3 2 1 } "from" get "datagram2" get send ] unit-test
62 [ B{ 4 3 2 1 } t ] [ "datagram1" get receive "addr2" get = ] unit-test
64 [ ] [ "datagram1" get dispose ] unit-test
65 [ ] [ "datagram2" get dispose ] unit-test
68 [ ] [ "127.0.0.1" 0 <inet4> <datagram> "datagram3" set ] unit-test
70 [ ] [ 1 seconds "datagram3" get set-timeout ] unit-test
71 [ "datagram3" get receive ] must-fail
73 ! See what happens if other end is closed
74 [ ] [ <promise> "port" set ] unit-test
78 "127.0.0.1" 0 <inet4> utf8 <server>
79 dup addr>> "port" get fulfill
82 dup stream-readln drop
83 "hello" <string-reader> swap stream-copy
85 ] "Socket close test" spawn drop
89 "port" get ?promise utf8 [
90 "hi\n" write flush readln readln