~ chicken-core (chicken-5) 2c380be9e24eb8f6dda148647435d8c1e421fe68

commit 2c380be9e24eb8f6dda148647435d8c1e421fe68
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Aug 26 23:47:09 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Aug 26 23:47:09 2011 +0200

    disable part of port-tests that does process-fork for windows

diff --git a/tests/port-tests.scm b/tests/port-tests.scm
index ee562c20..1c445a03 100644
--- a/tests/port-tests.scm
+++ b/tests/port-tests.scm
@@ -115,21 +115,27 @@ EOF
                           (printf "FAIL [ ~S ]\n" output)))
                ((exn i/o file) (printf "OK\n") okay))))))))
 
-(define proc (process-fork (lambda () (tcp-accept (tcp-listen 8080)))))
+(cond-expand
+  ((not windows)
 
-(on-exit (lambda () (handle-exceptions exn #f (process-signal proc))))
+   (define proc (process-fork (lambda () (tcp-accept (tcp-listen 8080)))))
 
-(print "\n\nProcedures check on TCP ports being closed\n")
+   (on-exit (lambda () (handle-exceptions exn #f (process-signal proc))))
 
-(receive (in out)
-  (let lp ()
-    (condition-case (tcp-connect "localhost" 8080)
-      ((exn i/o net) (lp))))
-  (close-output-port out)
-  (close-input-port in)
-  (check (tcp-addresses in))
-  (check (tcp-port-numbers in))
-  (check (tcp-abandon-port in)))        ; Not sure about abandon-port
+   (print "\n\nProcedures check on TCP ports being closed\n")
+
+   (receive (in out)
+       (let lp ()
+	 (condition-case (tcp-connect "localhost" 8080)
+	   ((exn i/o net) (lp))))
+     (close-output-port out)
+     (close-input-port in)
+     (check (tcp-addresses in))
+     (check (tcp-port-numbers in))
+     (check (tcp-abandon-port in)))	; Not sure about abandon-port
+
+   )
+  (else))
 
 (print "\n\nProcedures check on output ports being closed\n")
 
diff --git a/tests/runtests.sh b/tests/runtests.sh
index e50ba52b..1403ef61 100644
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -262,10 +262,8 @@ $interpret -bnq ec.so ec-tests.scm
 echo "======================================== hash-table tests ..."
 $interpret -s hash-table-tests.scm
 
-if test -z "$MSYSTEM"; then
 echo "======================================== port tests ..."
-    $interpret -s port-tests.scm
-fi
+$interpret -s port-tests.scm
 
 echo "======================================== fixnum tests ..."
 $compile fixnum-tests.scm