(and (> (socket-file-descriptor s) 1) t))
t)
-(deftest* (make-inet-socket-wrong :fails-on :win32)
+(deftest* (make-inet-socket-wrong)
;; fail to make a socket: check correct error return. There's no nice
;; way to check the condition stuff on its own, which is a shame
(handler-case
(:no-error nil))
t)
-(deftest* (make-inet-socket-keyword-wrong :fails-on :win32)
+(deftest* (make-inet-socket-keyword-wrong)
;; same again with keywords
(handler-case
(make-instance 'inet-socket :type :stream :protocol :udp)
t)
-(deftest* (non-block-socket :fails-on :win32)
+(deftest* (non-block-socket)
(let ((s (make-instance 'inet-socket :type :stream :protocol :tcp)))
(setf (non-blocking-mode s) t)
(non-blocking-mode s))
t)
-(defun do-gc-portably ()
- ;; cmucl on linux has generational gc with a keyword argument,
- ;; sbcl GC function takes same arguments no matter what collector is in
- ;; use
- #+(or sbcl gencgc) (SB-EXT:gc :full t)
- ;; other platforms have full gc or nothing
- #-(or sbcl gencgc) (sb-ext:gc))
-
(deftest inet-socket-bind
- (let ((s (make-instance 'inet-socket :type :stream :protocol (get-protocol-by-name "tcp"))))
- ;; Given the functions we've got so far, if you can think of a
- ;; better way to make sure the bind succeeded than trying it
- ;; twice, let me know
- ;; 1974 has no special significance, unless you're the same age as me
- (do-gc-portably) ;gc should clear out any old sockets bound to this port
- (socket-bind s (make-inet-address "127.0.0.1") 1974)
- (handler-case
- (let ((s2 (make-instance 'inet-socket :type :stream :protocol (get-protocol-by-name "tcp"))))
- (socket-bind s2 (make-inet-address "127.0.0.1") 1974)
- nil)
- (address-in-use-error () t)))
+ (let* ((tcp (get-protocol-by-name "tcp"))
+ (address (make-inet-address "127.0.0.1"))
+ (s1 (make-instance 'inet-socket :type :stream :protocol tcp))
+ (s2 (make-instance 'inet-socket :type :stream :protocol tcp)))
+ (unwind-protect
+ ;; Given the functions we've got so far, if you can think of a
+ ;; better way to make sure the bind succeeded than trying it
+ ;; twice, let me know
+ (progn
+ (socket-bind s1 address 0)
+ (handler-case
+ (let ((port (nth-value 1 (socket-name s1))))
+ (socket-bind s2 address port)
+ nil)
+ (address-in-use-error () t)))
+ (socket-close s1)
+ (socket-close s2)))
t)
-(deftest* (simple-sockopt-test :fails-on :win32)
+(deftest* (simple-sockopt-test)
;; test we can set SO_REUSEADDR on a socket and retrieve it, and in
;; the process that all the weird macros in sockopt happened right.
(let ((s (make-instance 'inet-socket :type :stream :protocol (get-protocol-by-name "tcp"))))