123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101 |
- ;;;; srfi-6.test --- test suite for SRFI-6 -*- scheme -*-
- ;;;;
- ;;;; Copyright (C) 2003, 2006, 2012 Free Software Foundation, Inc.
- ;;;;
- ;;;; This library is free software; you can redistribute it and/or
- ;;;; modify it under the terms of the GNU Lesser General Public
- ;;;; License as published by the Free Software Foundation; either
- ;;;; version 3 of the License, or (at your option) any later version.
- ;;;;
- ;;;; This library is distributed in the hope that it will be useful,
- ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
- ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- ;;;; Lesser General Public License for more details.
- ;;;;
- ;;;; You should have received a copy of the GNU Lesser General Public
- ;;;; License along with this library; if not, write to the Free Software
- ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
- (use-modules (test-suite lib))
- ;; use #:select to see that the bindings we expect are indeed exported
- (use-modules ((srfi srfi-6)
- #:select ((open-input-string . open-input-string)
- (open-output-string . open-output-string)
- (get-output-string . get-output-string))))
- (with-test-prefix "open-input-string"
-
- (pass-if "eof on empty"
- (let ((port (open-input-string "")))
- (eof-object? (read-char port))))
-
- (pass-if "read-char"
- (let ((port (open-input-string "xyz")))
- (and (char=? #\x (read-char port))
- (char=? #\y (read-char port))
- (char=? #\z (read-char port))
- (eof-object? (read-char port)))))
- (pass-if "read-char, Unicode"
- ;; String ports should always be Unicode-capable.
- ;; See <http://bugs.gnu.org/11197>.
- (with-fluids ((%default-port-encoding "ISO-8859-1"))
- (let ((port (open-input-string "λμ")))
- (and (char=? #\λ (read-char port))
- (char=? #\μ (read-char port))))))
- (with-test-prefix "unread-char"
-
- (pass-if "one char"
- (let ((port (open-input-string "")))
- (unread-char #\x port)
- (and (char=? #\x (read-char port))
- (eof-object? (read-char port)))))
-
- (pass-if "after eof"
- (let ((port (open-input-string "")))
- (and (eof-object? (read-char port))
- (begin
- (unread-char #\x port)
- (and (char=? #\x (read-char port))
- (eof-object? (read-char port)))))))
-
- (pass-if "order"
- (let ((port (open-input-string "")))
- (unread-char #\x port)
- (unread-char #\y port)
- (unread-char #\z port)
- (and (char=? #\z (read-char port))
- (char=? #\y (read-char port))
- (char=? #\x (read-char port))
- (eof-object? (read-char port)))))))
- (with-test-prefix "open-output-string"
- (pass-if "empty"
- (let ((port (open-output-string)))
- (string=? "" (get-output-string port))))
-
- (pass-if "xyz"
- (let ((port (open-output-string)))
- (display "xyz" port)
- (string=? "xyz" (get-output-string port))))
- (pass-if "λ"
- ;; Writing to an output string should always work.
- ;; See <http://bugs.gnu.org/11197>.
- (with-fluids ((%default-port-encoding "ISO-8859-1"))
- (let ((port (open-output-string)))
- (display "λ" port)
- (string=? "λ" (get-output-string port)))))
- (pass-if "seek"
- (let ((port (open-output-string)))
- (display "abcdef" port)
- (seek port 2 SEEK_SET)
- (display "--" port)
- (string=? "ab--ef" (get-output-string port)))))
|