125 lines
4.8 KiB
Scheme
125 lines
4.8 KiB
Scheme
|
;;; Test for the function in section 7 of the scsh-manual "Reading Dlimited strings"
|
||
|
|
;;; Author: Christoph Hetz
|
||
|
|
|
||
|
|
;; for testing: (certainly the path will be an other on other systems...)
|
||
|
|
|
||
|
|
;; ,open define-record-types handle
|
||
|
|
;; ,config ,load C:/cygwin/home/mephisto/cvs-scsh/scsh/scsh/test/test-packages.scm
|
||
|
|
;; ,load C:/cygwin/home/mephisto/cvs-scsh/scsh/scsh/test/test-base.scm
|
||
|
|
;; load this file
|
||
|
|
;; (test-all)
|
||
|
|
|
||
|
|
|
||
|
|
(add-test! 'read-line-test 'reading-delimited-strings
|
||
|
|
(lambda ()
|
||
|
|
((lambda (in-port)
|
||
|
|
(and (equal? "zeile 1"
|
||
|
|
(read-line in-port))
|
||
|
|
(equal? "zeile 2"
|
||
|
|
(read-line in-port))
|
||
|
|
(equal? "zeile 3"
|
||
|
|
(read-line in-port))))
|
||
|
|
(make-string-input-port "zeile 1\nzeile 2\nzeile 3"))))
|
||
|
|
|
||
|
|
(add-test! 'read-line-trim-test 'reading-delimited-strings ;; same as without trim
|
||
|
|
(lambda ()
|
||
|
|
((lambda (in-port)
|
||
|
|
(and (equal? "zeile 1"
|
||
|
|
(read-line in-port 'trim))
|
||
|
|
(equal? "zeile 2"
|
||
|
|
(read-line in-port 'trim))
|
||
|
|
(equal? "zeile 3"
|
||
|
|
(read-line in-port 'trim))))
|
||
|
|
(make-string-input-port "zeile 1\nzeile 2\nzeile 3"))))
|
||
|
|
|
||
|
|
(add-test! 'read-line-peek-test 'reading-delimited-strings
|
||
|
|
(lambda ()
|
||
|
|
((lambda (in-port)
|
||
|
|
(and (equal? "zeile 1"
|
||
|
|
(read-line in-port 'peek))
|
||
|
|
(equal? ""
|
||
|
|
(read-line in-port 'peek))
|
||
|
|
(equal? ""
|
||
|
|
(read-line in-port 'peek))))
|
||
|
|
(make-string-input-port "zeile 1\nzeile 2\nzeile 3"))))
|
||
|
|
|
||
|
|
(add-test! 'read-line-concat-test 'reading-delimited-strings
|
||
|
|
(lambda ()
|
||
|
|
((lambda (in-port)
|
||
|
|
(and (equal? "zeile 1\n"
|
||
|
|
(read-line in-port 'concat))
|
||
|
|
(equal? "zeile 2\n"
|
||
|
|
(read-line in-port 'concat))
|
||
|
|
(equal? "zeile 3\n"
|
||
|
|
(read-line in-port 'concat))))
|
||
|
|
(make-string-input-port "zeile 1\nzeile 2\nzeile 3\n")))) ;; XXX klappt mit dem eof irgendwie nicht
|
||
|
|
|
||
|
|
(add-test! 'read-line-split-test 'reading-delimited-strings
|
||
|
|
(lambda ()
|
||
|
|
((lambda (in-port)
|
||
|
|
(and (call-with-values (lambda () (read-line in-port 'split))
|
||
|
|
(lambda (a b) (and (equal? a "zeile 1")
|
||
|
|
(equal? b #\newline))))
|
||
|
|
(call-with-values (lambda () (read-line in-port 'split))
|
||
|
|
(lambda (a b) (and (equal? a "zeile 2")
|
||
|
|
(equal? b #\newline))))
|
||
|
|
(call-with-values (lambda () (read-line in-port 'split))
|
||
|
|
(lambda (a b) (and (equal? a "zeile 3")
|
||
|
|
(equal? b #\newline))))))
|
||
|
|
(make-string-input-port "zeile 1\nzeile 2\nzeile 3\n")))) ;; XXX vorhin ging's hier noch - jetzt nicht mehr (\#eof)
|
||
|
|
|
||
|
|
(add-test! 'read-paragraph-test 'reading-delimited-strings
|
||
|
|
(lambda ()
|
||
|
|
((lambda (in-port)
|
||
|
|
(and (equal? "zeile 1\nzeile 2\nparagraph 1\n"
|
||
|
|
(read-paragraph in-port))
|
||
|
|
(equal? "zeile 1\nparagraph 2\n"
|
||
|
|
(read-paragraph in-port))
|
||
|
|
(equal? "zeile 1\nparagraph 3\n"
|
||
|
|
(read-paragraph in-port))))
|
||
|
|
(make-string-input-port "zeile 1\nzeile 2\nparagraph 1\n\nzeile 1\nparagraph 2\n \t\nzeile 1\nparagraph 3\n\n"))))
|
||
|
|
|
||
|
|
(add-test! 'read-paragraph-trim-test 'reading-delimited-strings ;; same as without trim
|
||
|
|
(lambda ()
|
||
|
|
((lambda (in-port)
|
||
|
|
(and (equal? "zeile 1\nzeile 2\nparagraph 1\n"
|
||
|
|
(read-paragraph in-port 'trim))
|
||
|
|
(equal? "zeile 1\nparagraph 2\n"
|
||
|
|
(read-paragraph in-port 'trim))
|
||
|
|
(equal? "zeile 1\nparagraph 3\n"
|
||
|
|
(read-paragraph in-port 'trim))))
|
||
|
|
(make-string-input-port "zeile 1\nzeile 2\nparagraph 1\n\nzeile 1\nparagraph 2\n \t\nzeile 1\nparagraph 3\n\n"))))
|
||
|
|
|
||
|
|
(add-test! 'read-paragraph-concat-test 'reading-delimited-strings
|
||
|
|
(lambda ()
|
||
|
|
((lambda (in-port)
|
||
|
|
(and (equal? "zeile 1\nzeile 2\nparagraph 1\n\n"
|
||
|
|
(read-paragraph in-port 'concat))
|
||
|
|
(equal? "zeile 1\nparagraph 2\n \t\n"
|
||
|
|
(read-paragraph in-port 'concat))
|
||
|
|
(equal? "zeile 1\nparagraph 3\n\n"
|
||
|
|
(read-paragraph in-port 'concat))))
|
||
|
|
(make-string-input-port "zeile 1\nzeile 2\nparagraph 1\n\nzeile 1\nparagraph 2\n \t\nzeile 1\nparagraph 3\n\n"))))
|
||
|
|
|
||
|
|
(add-test! 'read-paragraph-split-test 'reading-delimited-strings
|
||
|
|
(lambda ()
|
||
|
|
((lambda (in-port)
|
||
|
|
(and (call-with-values (lambda () (read-paragraph in-port 'split))
|
||
|
|
(lambda (a b)
|
||
|
|
; (display "a1: ")(display a)
|
||
|
|
; (display "b1: ")(display b)
|
||
|
|
(and (equal? a "zeile 1\nzeile 2\nparagraph 1\n")
|
||
|
|
(equal? b "\n"))))
|
||
|
|
(call-with-values (lambda () (read-paragraph in-port 'split))
|
||
|
|
(lambda (a b)
|
||
|
|
; (display "a2: ")(display a)
|
||
|
|
; (display "b2: ")(display b)
|
||
|
|
(and (equal? a "zeile 1\nparagraph 2\n")
|
||
|
|
(equal? b " \t\n"))))
|
||
|
|
(call-with-values (lambda () (read-paragraph in-port 'split))
|
||
|
|
(lambda (a b)
|
||
|
|
; (display "a3: ")(display a)
|
||
|
|
; (display "b3: ")(display b)
|
||
|
|
(and (equal? a "zeile 1\nparagraph 3\n")
|
||
|
|
(equal? b "\n"))))))
|
||
|
|
(make-string-input-port "zeile 1\nzeile 2\nparagraph 1\n\nzeile 1\nparagraph 2\n \t\nzeile 1\nparagraph 3\n\n"))))
|