2008-03-30 11:46:07 -04:00
|
|
|
IN: io.sockets.tests
|
2008-05-15 21:08:32 -04:00
|
|
|
USING: io.sockets sequences math tools.test namespaces accessors
|
|
|
|
|
kernel destructors ;
|
2008-03-30 11:46:07 -04:00
|
|
|
|
2008-05-13 19:24:46 -04:00
|
|
|
[ B{ 1 2 3 4 } ]
|
|
|
|
|
[ "1.2.3.4" T{ inet4 } inet-pton ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "1.2.3.4" ]
|
|
|
|
|
[ B{ 1 2 3 4 } T{ inet4 } inet-ntop ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "255.255.255.255" ]
|
|
|
|
|
[ B{ 255 255 255 255 } T{ inet4 } inet-ntop ] unit-test
|
|
|
|
|
|
|
|
|
|
[ B{ 255 255 255 255 } ]
|
|
|
|
|
[ "255.255.255.255" T{ inet4 } inet-pton ] unit-test
|
|
|
|
|
|
|
|
|
|
[ B{ 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 } ]
|
|
|
|
|
[ "1:2:3:4:5:6:7:8" T{ inet6 } inet-pton ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "1:2:3:4:5:6:7:8" ]
|
|
|
|
|
[ B{ 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 } T{ inet6 } inet-ntop ] unit-test
|
|
|
|
|
|
|
|
|
|
[ B{ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } ]
|
|
|
|
|
[ "::" T{ inet6 } inet-pton ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "0:0:0:0:0:0:0:0" ]
|
|
|
|
|
[ B{ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } T{ inet6 } inet-ntop ] unit-test
|
|
|
|
|
|
|
|
|
|
[ B{ 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } ]
|
|
|
|
|
[ "1::" T{ inet6 } inet-pton ] unit-test
|
|
|
|
|
|
|
|
|
|
[ B{ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } ]
|
|
|
|
|
[ "::1" T{ inet6 } inet-pton ] unit-test
|
|
|
|
|
|
|
|
|
|
[ B{ 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 2 } ]
|
|
|
|
|
[ "1::2" T{ inet6 } inet-pton ] unit-test
|
|
|
|
|
|
|
|
|
|
[ B{ 0 1 0 0 0 0 0 0 0 0 0 0 0 2 0 3 } ]
|
|
|
|
|
[ "1::2:3" T{ inet6 } inet-pton ] unit-test
|
|
|
|
|
|
|
|
|
|
[ B{ 0 1 0 2 0 0 0 0 0 0 0 0 0 3 0 4 } ]
|
|
|
|
|
[ "1:2::3:4" T{ inet6 } inet-pton ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "1:2:0:0:0:0:3:4" ]
|
|
|
|
|
[ B{ 0 1 0 2 0 0 0 0 0 0 0 0 0 3 0 4 } T{ inet6 } inet-ntop ] unit-test
|
|
|
|
|
|
2008-03-30 11:46:07 -04:00
|
|
|
[ t ] [ "localhost" 80 f resolve-host length 1 >= ] unit-test
|
2008-05-15 21:08:32 -04:00
|
|
|
|
|
|
|
|
! Smoke-test UDP
|
|
|
|
|
[ ] [ "127.0.0.1" 0 <inet4> <datagram> "datagram1" set ] unit-test
|
|
|
|
|
[ ] [ "datagram1" get addr>> "addr1" set ] unit-test
|
|
|
|
|
[ f ] [ "addr1" get port>> 0 = ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ "127.0.0.1" 0 <inet4> <datagram> "datagram2" set ] unit-test
|
|
|
|
|
[ ] [ "datagram2" get addr>> "addr2" set ] unit-test
|
|
|
|
|
[ f ] [ "addr2" get port>> 0 = ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ B{ 1 2 3 4 } "addr2" get "datagram1" get send ] unit-test
|
|
|
|
|
[ B{ 1 2 3 4 } ] [ "datagram2" get receive "from" set ] unit-test
|
|
|
|
|
[ ] [ B{ 4 3 2 1 } "from" get "datagram2" get send ] unit-test
|
|
|
|
|
[ B{ 4 3 2 1 } t ] [ "datagram1" get receive "addr2" get = ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ "datagram1" get dispose ] unit-test
|
|
|
|
|
[ ] [ "datagram2" get dispose ] unit-test
|
