diff options
author | Andy Wingo <wingo@pobox.com> | 2010-01-03 13:35:35 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-01-03 13:35:35 +0100 |
commit | 87a6a23669dc534df5d3de146e77efd3a2bafb22 (patch) | |
tree | e765638fda7a37a475c89bbfded2327d968ed719 /test-suite/tests/print.test | |
parent | 09834e439b685ca3bb4404e40e046b11772fe50d (diff) | |
download | guile-87a6a23669dc534df5d3de146e77efd3a2bafb22.tar.gz |
add truncated-print tests
* doc/ref/misc-modules.texi (Pretty Printing): Fix an error in
truncated-print example.
* test-suite/Makefile.am:
* test-suite/tests/print.test: Add truncated-print tests.
Diffstat (limited to 'test-suite/tests/print.test')
-rw-r--r-- | test-suite/tests/print.test | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/test-suite/tests/print.test b/test-suite/tests/print.test new file mode 100644 index 000000000..730de0da5 --- /dev/null +++ b/test-suite/tests/print.test @@ -0,0 +1,46 @@ +;;;; -*- scheme -*- +;;;; +;;;; Copyright (C) 2010 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 + +(define-module (test-suite test-print) + #:use-module (ice-9 pretty-print) + #:use-module (test-suite lib)) + +(with-test-prefix "truncated-print" + (define exp '(a b #(c d e) f . g)) + (define (tprint x width) + (with-output-to-string + (lambda () + (truncated-print x #:width width)))) + + (pass-if (equal? (tprint exp 10) + "(a b . #)")) + + (pass-if (equal? (tprint exp 15) + "(a b # f . g)")) + + (pass-if (equal? (tprint exp 18) + "(a b #(c ...) . #)")) + + (pass-if (equal? (tprint exp 20) + "(a b #(c d e) f . g)")) + + (pass-if (equal? (tprint "The quick brown fox" 20) + "\"The quick brown...\"")) + + (pass-if (equal? (tprint (current-module) 20) + "#<directory (tes...>"))) |