basis/windows/winsock/winsock-tests.factor

   1 USING: kernel tools.test windows.winsock ;
   2 IN: windows.winsock.tests
   3
   4 : normal-socket ( -- socket )
   5     AF_INET SOCK_STREAM IPPROTO_TCP socket ;
   6
   7 { t f } [
   8     98 97 96 socket normal-socket [ INVALID_SOCKET = ] bi@
   9 ] unit-test
  10
  11 { 0 } [ normal-socket closesocket ] unit-test
  12
  13 ! Generate lots of socket errors
  14 { t t t } [
  15     normal-socket 99 98 "bad bad!" 3 setsockopt
  16     f closesocket
  17     normal-socket "hello" 5 0 send
  18     [ SOCKET_ERROR = ] tri@
  19 ] unit-test