From bbab41ade42baa8818c962b9abdea7b72d762655 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Wed, 12 Nov 2014 20:48:33 +0100 Subject: [PATCH] io.sockets.windows.tests: plugs the socket leaks (#1104) --- basis/io/sockets/windows/windows-tests.factor | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/basis/io/sockets/windows/windows-tests.factor b/basis/io/sockets/windows/windows-tests.factor index 562585b8e4..1a010508f3 100644 --- a/basis/io/sockets/windows/windows-tests.factor +++ b/basis/io/sockets/windows/windows-tests.factor @@ -1,5 +1,5 @@ -USING: accessors continuations io.sockets io.sockets.windows kernel sequences tools.test -urls windows.winsock ; +USING: accessors continuations destructors io.sockets io.sockets.windows +kernel sequences tools.test urls windows.winsock ; IN: io.sockets.windows.tests : google-socket ( -- socket ) @@ -7,14 +7,17 @@ IN: io.sockets.windows.tests SOCK_STREAM open-socket ; { } [ - google-socket { FIONBIO FIONREAD } [ - google-socket swap execute( -- x ) - [ 1 set-ioctl-socket ] [ 0 set-ioctl-socket ] 2bi - ] each drop + google-socket [ + swap execute( -- x ) + [ 1 set-ioctl-socket ] [ 0 set-ioctl-socket ] 2bi + ] with-disposal + ] each ] unit-test { t } [ - [ google-socket 1337 -8 set-ioctl-socket ] - [ [ winsock-exception? ] [ n>> 10045 = ] bi and ] recover + google-socket [ + [ 1337 -8 set-ioctl-socket ] + [ [ winsock-exception? ] [ n>> 10045 = ] bi and ] recover + ] with-disposal ] unit-test