diff --git a/scsh/test/read-delimited-strings.scm b/scsh/test/read-delimited-strings.scm
index 564e69d..eeb1546 100644
--- a/scsh/test/read-delimited-strings.scm
+++ b/scsh/test/read-delimited-strings.scm
@@ -275,57 +275,6 @@
 				 (equal? #\y b))))))
      (make-string-input-port "zeile 1: nix\nzeile 2: xy\nzeile 3: wieder nix\n"))))
 
-;; ---------------------------------------------------------------------------------------------------
-
-(add-test! 'read-delimited-with-character-predicate-test 'reading-delimited-strings
-  (lambda ()
-    ((lambda (in-port)
-       (and (equal? "zeile a"
-		    (read-delimited char-digit? in-port))
-	    (equal? " nix\nzeile b1 x"
-		    (read-delimited char-digit? in-port))))
-     (make-string-input-port "zeile a1 nix\nzeile b1 x2\nzeile c1 wieder nix\n"))))
-
-(add-test! 'read-delimited-trim-with-character-predicate-test 'reading-delimited-strings
-  (lambda ()
-    ((lambda (in-port)
-       (and (equal? "zeile a"
-		    (read-delimited char-digit? in-port 'trim))
-	    (equal? " nix\nzeile b1 x"
-		    (read-delimited char-digit? in-port 'trim))))
-     (make-string-input-port "zeile a1 nix\nzeile b1 x2\nzeile c1 wieder nix\n"))))
-
-(add-test! 'read-delimited-peek-with-character-predicate-test 'reading-delimited-strings
-  (lambda ()
-    ((lambda (in-port)
-       (and (equal? "zeile a"
-		    (read-delimited char-digit? in-port 'peek))
-	    (equal? "1 nix\nzeile b1 x"
-		    (read-delimited char-digit? in-port 'peek))))
-     (make-string-input-port "zeile a1 nix\nzeile b1 x2\nzeile c1 wieder nix\n"))))
-
-(add-test! 'read-delimited-concat-with-character-predicate-test 'reading-delimited-strings
-  (lambda ()
-    ((lambda (in-port)
-       (and (equal? "zeile a1"
-		    (read-delimited char-digit? in-port 'concat))
-	    (equal? " nix\nzeile b1 x2"
-		    (read-delimited char-digit? in-port 'concat))))
-     (make-string-input-port "zeile a1 nix\nzeile b1 x2\nzeile c1 wieder nix\n"))))
-
-(add-test! 'read-delimited-split-with-character-predicate-test 'reading-delimited-strings
-  (lambda ()
-    ((lambda (in-port)
-       (and (call-with-values 
-		(lambda () (read-delimited char-digit? in-port 'split))
-	      (lambda (a b) (and (equal? "zeile a" a)
-				 (equal? #\1 b))))
-	    (call-with-values
-		(lambda () (read-delimited char-digit? in-port 'split))
-	      (lambda (a b) (and (equal? " nix\nzeile b1 x" a)
-				 (equal? #\2 b))))))
-     (make-string-input-port "zeile a1 nix\nzeile b1 x2\nzeile c1 wieder nix\n"))))
-
 ;; ===============================================================================================
 
 
@@ -362,9 +311,3 @@
     (= 6
        (skip-char-set #\a
 		      (make-string-input-port "aaaaaaxxx")))))
-
-(add-test! 'skip-char-set-with-character-predicate-test 'reading-delimited-strings
-  (lambda ()
-    (= 6
-       (skip-char-set char-digit?
-		      (make-string-input-port "123456xxx")))))