windows.winsock: fix the definition of SOCKET_ERROR and unit tests that
verifies its correctnessdb4
parent
a5397756fe
commit
4676ff921a
|
@ -0,0 +1,19 @@
|
|||
USING: kernel tools.test windows.winsock ;
|
||||
IN: windows.winsock.tests
|
||||
|
||||
: normal-socket ( -- socket )
|
||||
AF_INET SOCK_STREAM IPPROTO_TCP socket ;
|
||||
|
||||
{ t f } [
|
||||
98 97 96 socket normal-socket [ INVALID_SOCKET = ] bi@
|
||||
] unit-test
|
||||
|
||||
{ 0 } [ normal-socket closesocket ] unit-test
|
||||
|
||||
! Generate lots of socket errors
|
||||
{ t t t } [
|
||||
normal-socket 99 98 "bad bad!" 3 setsockopt
|
||||
f closesocket
|
||||
normal-socket "hello" 5 0 send
|
||||
[ SOCKET_ERROR = ] tri@
|
||||
] unit-test
|
|
@ -102,7 +102,7 @@ CONSTANT: INADDR_ANY 0
|
|||
|
||||
: INVALID_SOCKET ( -- n ) -1 <alien> ; inline
|
||||
|
||||
: SOCKET_ERROR ( -- n ) -1 <alien> ; inline
|
||||
: SOCKET_ERROR ( -- n ) -1 ; inline
|
||||
|
||||
CONSTANT: SD_RECV 0
|
||||
CONSTANT: SD_SEND 1
|
||||
|
|
Loading…
Reference in New Issue