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

[factor.git] / basis / windows / winsock / winsock-tests.factor

diff --git a/basis/windows/winsock/winsock-tests.factor b/basis/windows/winsock/winsock-tests.factor
new file mode 100644 (file)
index 0000000..aff856c
--- /dev/null
+++ b/basis/windows/winsock/winsock-tests.factor
@@ -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