windows.winsock: fix the definition of SOCKET_ERROR and unit tests that

verifies its correctness
db4
Björn Lindqvist 2014-03-27 18:47:18 +01:00 committed by Doug Coleman
parent a5397756fe
commit 4676ff921a
2 changed files with 20 additions and 1 deletions

View File

@ -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

View File

@ -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