[groff] 13/15: [tmac]: Regression-test Savannah #65469.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 6ffa91c24fa37ceaec2c9ae4ee14a7d515907342
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Sat Mar 16 20:31:58 2024 -0500

    [tmac]: Regression-test Savannah #65469.
    
    * tmac/tests/an_inner-footer-abbreviation-works.sh: Add regression test
      case for Savannah #65469.
    
    Test fails at this commit.
---
 ChangeLog                                        | 5 +++++
 tmac/tests/an_inner-footer-abbreviation-works.sh | 9 +++++++++
 2 files changed, 14 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 9750fd181..1f388a73f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-03-16  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * tmac/tests/an_inner-footer-abbreviation-works.sh: Add
+       regression test case for Savannah #65469.
+
 2024-03-16  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * tmac/mdoc/doc-common (LP, PP, pp, SH): Use new `doc-warn`
diff --git a/tmac/tests/an_inner-footer-abbreviation-works.sh 
b/tmac/tests/an_inner-footer-abbreviation-works.sh
index 5f118ee56..b0f007ab5 100755
--- a/tmac/tests/an_inner-footer-abbreviation-works.sh
+++ b/tmac/tests/an_inner-footer-abbreviation-works.sh
@@ -58,6 +58,15 @@ error=$(echo "$input" | "$groff" -Tascii -P-cbou -man -ww -z 
2>&1)
 echo "$error"
 test -z "$error" || wail
 
+# Regression-test Savannah #65469.
+#
+# Don't spew diagnostics if the argument being abbreviated contains '@'.
+echo 'testing for graceful treatment of argument containing "@"' >&2
+input='.TH tic 1M 2023-12-30 "ncurses @NCURSES_MAJOR@.@NCURSES_MINOR@"'
+error=$(echo "$input" | "$groff" -Tascii -P-cbou -man -ww -z 2>&1)
+echo "$error"
+test -z "$error" || wail
+
 test -z "$fail"
 
 # vim:set ai et sw=4 ts=4 tw=72: