From 149d229e3cbe7ff3cb3cc45ec0df69825e494f39 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 29 Jan 2020 14:56:17 +0100 Subject: texinfo: Add '*line-width*' fluid to control line wrapping. * module/texinfo/plain-text.scm (*line-width*): New variable. (wrap*): Honor it. * doc/ref/texinfo.texi (texinfo plain-text): Document it. * test-suite/tests/texinfo.plain-text.test: New file. * test-suite/Makefile.am (SCM_TESTS): Add it. --- test-suite/Makefile.am | 1 + test-suite/tests/texinfo.plain-text.test | 34 ++++++++++++++++++++++++++++++++ 2 files changed, 35 insertions(+) create mode 100644 test-suite/tests/texinfo.plain-text.test (limited to 'test-suite') diff --git a/test-suite/Makefile.am b/test-suite/Makefile.am index e15b92aff..9c58bdff5 100644 --- a/test-suite/Makefile.am +++ b/test-suite/Makefile.am @@ -180,6 +180,7 @@ SCM_TESTS = tests/00-initial-env.test \ tests/texinfo.test \ tests/texinfo.docbook.test \ tests/texinfo.html.test \ + tests/texinfo.plain-text.test \ tests/texinfo.serialize.test \ tests/texinfo.string-utils.test \ tests/threads.test \ diff --git a/test-suite/tests/texinfo.plain-text.test b/test-suite/tests/texinfo.plain-text.test new file mode 100644 index 000000000..565da8c7d --- /dev/null +++ b/test-suite/tests/texinfo.plain-text.test @@ -0,0 +1,34 @@ +;;;; texinfo.plain-text.test -*- scheme -*- +;;;; +;;;; Copyright (C) 2020 Free Software Foundation, Inc. +;;;; +;;;; This program is free software; you can redistribute it and/or +;;;; modify it under the terms of the GNU General Public License as +;;;; published by the Free Software Foundation; either version 3 of the +;;;; License, or (at your option) any later version. +;;;; +;;;; This program 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 +;;;; General Public License for more details. +;;;; +;;;; You should have received a copy of the GNU 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-plain-text) + #:use-module (test-suite lib) + #:use-module (texinfo plain-text)) + +(with-test-prefix "stexi->plain-text" + (pass-if-equal "one paragraph, default line width" + "This is another sentence. That too.\n\n" + (stexi->plain-text + '(*fragment* (para "This is another sentence. That too.")))) + + (pass-if-equal "one paragraph, *line-width* set" + "This is another sentence.\nThat too.\n\n" + (with-fluids ((*line-width* 26)) + (stexi->plain-text + '(*fragment* (para "This is another sentence. That too.")))))) -- cgit v1.2.3