~ chicken-core (master) c476fc1fa9b86ccfeb640783e7e9b9c7d10ba7fd

commit c476fc1fa9b86ccfeb640783e7e9b9c7d10ba7fd
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Sep 25 19:09:45 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Sep 25 19:09:45 2026 +0200

    repair port tests

diff --git a/tests/port-tests.scm b/tests/port-tests.scm
index 1c637a4b..3d195432 100644
--- a/tests/port-tests.scm
+++ b/tests/port-tests.scm
@@ -117,9 +117,6 @@ EOF
        (p (make-input-port (constantly #\a)
 			   (constantly #t)
 			   (lambda () (set! n (add1 n))))))
-  (close-output-port p)
-  (assert (input-port-open? p))
-  (assert (= n 0))
   (close-input-port p)
   (assert (not (input-port-open? p)))
   (assert (= n 1))
@@ -130,9 +127,6 @@ EOF
 (let* ((n 0)
        (p (make-output-port (lambda () (display #\a))
 			    (lambda () (set! n (add1 n))))))
-  (close-input-port p)
-  (assert (output-port-open? p))
-  (assert (= n 0))
   (close-output-port p)
   (assert (not (output-port-open? p)))
   (assert (= n 1))
@@ -512,7 +506,7 @@ EOF
 (assert (= (read-u8 p1) 2))
 (assert (equal? (read-bytevector 4 p1) '#u8(3 4 5)))
 (assert (eof-object? (read-u8 p1)))
-(close-output-port p1)
+(close-input-port p1)
 
 (set! count 1)
 (define p2 (make-binary-input-port rdb brdy? cls peek-u8: pkb read-bytevector: rbv))
@@ -523,7 +517,7 @@ EOF
 (assert (= (read-u8 p2) 2))
 (assert (equal? (read-bytevector 4 p2) '#u8(3 4 5)))
 (assert (eof-object? (read-u8 p2)))
-(close-output-port p2)
+(close-input-port p2)
 
 (define p3 (make-binary-output-port wrb cls))
 (write-u8 99 p3)