[groff] 28/32: [tbl]: Regression-test Savannah #61909.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit f403592717e07dbf3a7886396d32618ddf73f74a
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Tue Nov 29 09:53:12 2022 -0600

    [tbl]: Regression-test Savannah #61909.
    
    * src/preproc/tbl/tests/save-and-restore-inter-sentence-space.sh: Do it.
    * src/preproc/tbl/tbl.am (tbl_TESTS): Run test.
    
    Test fails at this commit.
---
 ChangeLog                                          |  8 +++
 src/preproc/tbl/tbl.am                             |  1 +
 .../tests/save-and-restore-inter-sentence-space.sh | 79 ++++++++++++++++++++++
 3 files changed, 88 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 24cbb64a2..d7fbf8976 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2022-11-29  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       [tbl]: Regression-test Savannah #61909.
+
+       * src/preproc/tbl/tests/\
+       save-and-restore-inter-sentence-space.sh: Do it.
+       * src/preproc/tbl/tbl.am (tbl_TESTS): Run test.
+
 2022-11-29  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        [tbl]: Suppress line numbering when formatting tables, and
diff --git a/src/preproc/tbl/tbl.am b/src/preproc/tbl/tbl.am
index ed092ad4a..705d44b0a 100644
--- a/src/preproc/tbl/tbl.am
+++ b/src/preproc/tbl/tbl.am
@@ -35,6 +35,7 @@ tbl_TESTS = \
   src/preproc/tbl/tests/do-not-segv-when-backslash-R-in-text-block.sh \
   src/preproc/tbl/tests/format-time-diagnostics-work.sh \
   src/preproc/tbl/tests/save-and-restore-hyphenation-parameters.sh \
+  src/preproc/tbl/tests/save-and-restore-inter-sentence-space.sh \
   src/preproc/tbl/tests/save-and-restore-line-numbering.sh \
   src/preproc/tbl/tests/save-and-restore-tab-stops.sh \
   src/preproc/tbl/tests/table-lacks-spurious-top-border.sh
diff --git a/src/preproc/tbl/tests/save-and-restore-inter-sentence-space.sh 
b/src/preproc/tbl/tests/save-and-restore-inter-sentence-space.sh
new file mode 100755
index 000000000..e9a06d83b
--- /dev/null
+++ b/src/preproc/tbl/tests/save-and-restore-inter-sentence-space.sh
@@ -0,0 +1,79 @@
+#!/bin/sh
+#
+# Copyright (C) 2022 Free Software Foundation, Inc.
+#
+# This file is part of groff.
+#
+# groff 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.
+#
+# groff 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 program. If not, see <http://www.gnu.org/licenses/>.
+#
+
+groff="${abs_top_builddir:-.}/test-groff"
+
+fail=
+
+wail () {
+    echo ...FAILED >&2
+    fail=YES
+}
+
+# Regression-test Savannah #61909.
+#
+# Inter-sentence space should not be applied to the content of ordinary
+# table entries.  They are set "rigidly" (tbl(1)), also without filling,
+# adjustment, hyphenation or breaking.  If you want those things, use a
+# text block.
+
+input='.ss 12 120
+Before one.
+Before two.
+.TS
+L.
+.\" two spaces
+Foo.  Bar.
+.\" four spaces
+Baz.    Qux.
+.\" two spaces
+T{
+Ack.  Nak.
+T}
+.TE
+After one.
+After two.
+'
+
+output=$(printf "%s\n" "$input" | "$groff" -Tascii -P-cbou -t)
+echo "$output"
+
+echo "checking that inter-sentence space is altered too early"
+echo "$output" \
+    | grep -Fqx 'Before one.           Before two.' || wail # 11 spaces
+
+echo "checking that inter-sentence space is not applied to ordinary" \
+    "table entries (1)"
+echo "$output" | grep -Fqx 'Foo.  Bar.' || wail # 2 spaces
+
+echo "checking that inter-sentence space is not applied to ordinary" \
+    "table entries (2)"
+echo "$output" | grep -Fqx 'Baz.    Qux.' || wail # 4 spaces
+
+echo "checking that inter-sentence space is applied to text blocks"
+echo "$output" | grep -Fqx 'Ack.           Nak.' || wail # 11 spaces
+
+echo "checking that inter-sentence space is restored after table"
+echo "$output" \
+    | grep -Fqx 'After one.           After two.' || wail # 11 spaces
+
+test -z "$fail"
+
+# vim:set ai et sw=4 ts=4 tw=72: