diff options
author | Eli Zaretskii <eliz@gnu.org> | 2014-07-03 21:05:49 +0300 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2014-07-03 21:05:49 +0300 |
commit | c53b5d891fb8369abcb7fb3f8d00e134ab7b2d9b (patch) | |
tree | fa71a2ccd5cd9de2212ef7b5298d62e0b0705429 | |
parent | 8c6b62e7d5bbc5bfe0c69110156a80539f97b978 (diff) | |
download | guile-c53b5d891fb8369abcb7fb3f8d00e134ab7b2d9b.tar.gz |
Remove trailing whitespace from ports.test.
-rw-r--r-- | test-suite/tests/ports.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test index 484b291ea..3791876ae 100644 --- a/test-suite/tests/ports.test +++ b/test-suite/tests/ports.test @@ -106,7 +106,7 @@ (equal? string in-string))) (close-port port)) (delete-file filename)) - + ;;; Write out a string, and read it back a character at a time. (let ((string "This is a test string\nwith no newline at the end") (filename (test-file))) @@ -663,10 +663,10 @@ (newline port))))) (pass-if "display text" (equal? in-string (string-append string "\n")))) - + ;; Write an s-expression to a string port. (let* ((sexpr '("more utterly random text" 1729 #(a vector) 3.1415926)) - (in-sexpr + (in-sexpr (call-with-input-string (call-with-output-string (lambda (port) (write sexpr port))) @@ -996,7 +996,7 @@ ;; Return a list of input ports that all return the same text. ;; We map tests over this list. (define (input-port-list text) - + ;; Create a text file some of the ports will use. (let ((out-port (open-output-file port-loop-temp))) (display text out-port) @@ -1396,10 +1396,10 @@ (with-test-prefix "read-delimited!" (let ((c (make-string 20 #\!))) - (call-with-input-string + (call-with-input-string "defdef\nghighi\n" (lambda (port) - + (read-delimited! "\n" c port 'concat) (pass-if "read-delimited! reads a first line" (string=? c "defdef\n!!!!!!!!!!!!!")) |