[groff] 09/27: [refer]: Regression-test Savannah #62391.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 0f0e4cfb3e4b878bfaacb3841c95f9533c25cbb9
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Mon May 2 08:04:05 2022 -0500

    [refer]: Regression-test Savannah #62391.
    
    * src/preproc/refer/tests/report-correct-line-numbers.sh: Add regression
      test for Savannah #62391.
    
    Test fails at this commit.
---
 ChangeLog                                              | 5 +++++
 src/preproc/refer/tests/report-correct-line-numbers.sh | 9 +++++++++
 2 files changed, 14 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 8b312a9d..060f2db5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2022-05-02  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * src/preproc/refer/tests/report-correct-line-numbers.sh: Add
+       regression test for Savannah #62391.
+
 2022-05-02  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * src/utils/tfmtodit/tfmtodit.cpp (usage): Tweak usage message.
diff --git a/src/preproc/refer/tests/report-correct-line-numbers.sh 
b/src/preproc/refer/tests/report-correct-line-numbers.sh
index a9065e0a..3d85aa0e 100755
--- a/src/preproc/refer/tests/report-correct-line-numbers.sh
+++ b/src/preproc/refer/tests/report-correct-line-numbers.sh
@@ -97,6 +97,15 @@ echo "$output" | grep -q "refer:.*:4:.*unknown command" || 
wail
 echo "checking detection of 2nd invalid refer(1) command in input file"
 echo "$output" | grep -q "refer:.*:9:.*unknown command" || wail
 
+# Regression-test Savannah #62391.
+
+output=$(printf '\0201\n' | "$refer" 2>&1 >/dev/null)
+
+echo "checking detection of invalid input character on first line of" \
+  "input file"
+echo "$output" | grep -q "refer:.*:1:.*invalid input character" \
+  || wail
+
 test -z "$fail" || exit 1
 
 # vim:set ai et sw=4 ts=4 tw=72: