mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 16:30:19 +02:00
Code Activity

* tests/ports.test: Group the string port tests under a new

Browse source 
test name prefix.
* tests/ports.test ("line counter"): Check the final column, too.
This commit is contained in:
Jim Blandy 1999-06-15 08:39:11 +00:00
parent cbe50a7301
commit 73cb0a9704
1 changed files with 29 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

52
test-suite/tests/ports.test
View file

@ -104,26 +104,28 @@
;;;; String ports.
;;; Write text to a string port.
(catch-test-errors
(let* ((string "Howdy there, partner!")
(in-string (call-with-output-string
(lambda (port)
(display string port)
(newline port)))))
(pass-if "output string: display text"
(equal? in-string (string-append string "\n")))))
(with-test-prefix "string ports"
;;; Write an s-expression to a string port.
(catch-test-errors
(let* ((sexpr '("more utterly random text" 1729 #(a vector) 3.1415926))
(in-sexpr
(call-with-input-string (call-with-output-string
(lambda (port)
(write sexpr port)))
read)))
(pass-if "input and output string: write/read sexpr"
(equal? in-sexpr sexpr))))
;; Write text to a string port.
(catch-test-errors
(let* ((string "Howdy there, partner!")
(in-string (call-with-output-string
(lambda (port)
(display string port)
(newline port)))))
(pass-if "display text"
(equal? in-string (string-append string "\n")))))
;; Write an s-expression to a string port.
(catch-test-errors
(let* ((sexpr '("more utterly random text" 1729 #(a vector) 3.1415926))
(in-sexpr
(call-with-input-string (call-with-output-string
(lambda (port)
(write sexpr port)))
read)))
(pass-if "write/read sexpr"
(equal? in-sexpr sexpr)))))
;;;; Soft ports. No tests implemented yet.
@ -151,7 +153,7 @@
(define port-list-names '("file" "pipe" "string"))
;; Test the line counter.
(define (test-line-counter text second-line)
(define (test-line-counter text second-line final-column)
(with-test-prefix "line counter"
(let ((ports (input-port-list text)))
(for-each
@ -178,7 +180,9 @@
((> i 20) #f)
(else (loop (+ i 1))))))
(pass-if "line count is 5 at EOF"
(= (port-line port) 5))))
(= (port-line port) 5))
(pass-if "column is correct at EOF"
(= (port-column port) final-column))))
ports port-list-names)
(for-each close-port ports)
(delete-file port-loop-temp))))
@ -191,7 +195,8 @@
"himself without lessening mine; as he who lights his\n"
"taper at mine, receives light without darkening me.\n"
" --- Thomas Jefferson\n")
"He who receives an idea from me, receives instruction")))
"He who receives an idea from me, receives instruction"
0)))
(catch-test-errors
(with-test-prefix "no newline"
@ -202,4 +207,5 @@
"taper at mine, receives light without darkening me.\n"
" --- Thomas Jefferson\n"
"no newline here")
"He who receives an idea from me, receives instruction"))))
"He who receives an idea from me, receives instruction"
15))))