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

Fix read-line-split-test 

Fix typos
This commit is contained in:
mainzelm 2006-03-22 13:02:22 +00:00
parent 2ec9c3d879
commit 2e4f79161c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -54,7 +54,7 @@
(read-line in-port 'concat)))) (read-line in-port 'concat))))
(make-string-input-port "zeile 1\nzeile 2\nzeile 3\004")))) (make-string-input-port "zeile 1\nzeile 2\nzeile 3\004"))))
(add-test! 'read-line-split-test 'reading-delimited-strings ;; XXX warum #\newline und nicht "\n"??? (add-test! 'read-line-split-test 'reading-delimited-strings
(lambda () (lambda ()
((lambda (in-port) ((lambda (in-port)
(and (call-with-values (lambda () (read-line in-port 'split)) (and (call-with-values (lambda () (read-line in-port 'split))
@ -65,7 +65,7 @@
(equal? b #\newline)))) (equal? b #\newline))))
(call-with-values (lambda () (read-line in-port 'split)) (call-with-values (lambda () (read-line in-port 'split))
(lambda (a b) (and (equal? a "zeile 3") (lambda (a b) (and (equal? a "zeile 3")
(equal? b "\004")))))) ;; XXX geht nicht mit "\004" und nicht mit (ascii->char 4)! (eof-object? b))))))
(make-string-input-port "zeile 1\nzeile 2\nzeile 3\004")))) (make-string-input-port "zeile 1\nzeile 2\nzeile 3\004"))))
(add-test! 'read-paragraph-test 'reading-delimited-strings (add-test! 'read-paragraph-test 'reading-delimited-strings
@ -344,26 +344,26 @@
;; ==================================================================================================== ;; ====================================================================================================
(add-test! 'skip-char-set-wiht-charset-test 'read-delimited-strings (add-test! 'skip-char-set-with-charset-test 'read-delimited-strings
(lambda () (lambda ()
(= 6 (= 6
(skip-char-set (list->char-set (list #\a #\b #\c)) (skip-char-set (list->char-set (list #\a #\b #\c))
(make-string-input-port "abccbaxxx"))))) (make-string-input-port "abccbaxxx")))))
(add-test! 'skip-char-set-wiht-string-test 'read-delimited-strings (add-test! 'skip-char-set-with-string-test 'read-delimited-strings
(lambda () (lambda ()
(= 6 (= 6
(skip-char-set "abc" (skip-char-set "abc"
(make-string-input-port "abccbaxxx"))))) (make-string-input-port "abccbaxxx")))))
(add-test! 'skip-char-set-wiht-character-test 'read-delimited-strings (add-test! 'skip-char-set-with-character-test 'read-delimited-strings
(lambda () (lambda ()
(= 6 (= 6
(skip-char-set #\a (skip-char-set #\a
(make-string-input-port "aaaaaaxxx"))))) (make-string-input-port "aaaaaaxxx")))))
(add-test! 'skip-char-set-wiht-character-predicate-test 'read-delimited-strings (add-test! 'skip-char-set-with-character-predicate-test 'read-delimited-strings
(lambda () (lambda ()
(= 6 (= 6
(skip-char-set char-digit? (skip-char-set char-digit?