scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove test cases assuming SKIP-CHAR-SET is accepting a character 

predicate - it does no longer.
This commit is contained in:
mainzelm 2006-03-23 10:04:34 +00:00
parent bfbb3e31ea
commit bbcf682f5b
1 changed files with 0 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
scsh/test/read-delimited-strings.scm
View File

@ -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")))))