[groff] 06/26: [refer]: Add more regression tests.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 70805f8c7b1c10527171046d3a271d76137163d4
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Wed May 4 19:02:55 2022 -0500

    [refer]: Add more regression tests.
    
    The fix for Savannah #62391 exposed another lurking off-by-one error in
    line numbers reported by diagnostics.
    
    Test fails at this commit.
---
 ChangeLog                                            |  5 +++++
 .../refer/tests/report-correct-line-numbers.sh       | 20 ++++++++++++++++++++
 2 files changed, 25 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 309ff1fe..266ae722 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2022-05-04  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * src/preproc/refer/tests/report-correct-line-numbers.sh: Add
+       more regression tests.
+
 2022-05-04  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        [refer]: Trivially refactor: boolify.
diff --git a/src/preproc/refer/tests/report-correct-line-numbers.sh 
b/src/preproc/refer/tests/report-correct-line-numbers.sh
index b952fc54..c5ff7a08 100755
--- a/src/preproc/refer/tests/report-correct-line-numbers.sh
+++ b/src/preproc/refer/tests/report-correct-line-numbers.sh
@@ -111,6 +111,26 @@ echo "checking line number of invalid input character on 
input line 1"
 echo "$output" | grep -q "refer:.*:1:.*invalid input character" \
   || wail
 
+output=$(printf '.R1\nbogus \0200\n.R2\n' | "$refer" 2>&1 >/dev/null)
+
+echo "checking line number of invalid input character after refer(1)" \
+  "command on input line 2"
+echo "$output" | grep -q "refer:.*:2:.*invalid input character" \
+  || wail
+
+output=$(printf '.R1\ndatabase nonexistent.bib\n.R2\n' | "$refer" 2>&1 \
+  >/dev/null)
+
+echo "checking line number of attempt to load nonexistent database"
+echo "$output" | grep -q "refer:.*:2:.*can't open 'nonexistent\.bib':" \
+  || wail
+
+output=$(printf '.R1\ninclude nonexistent.ref\n.R2\n' | "$refer" 2>&1 \
+  >/dev/null)
+
+echo "checking line number of attempt to load nonexistent inclusion"
+echo "$output" | grep -q "refer:.*:2:.*can't open 'nonexistent\.ref':" \
+  || wail
 test -z "$fail" || exit 1
 
 # vim:set ai et sw=4 ts=4 tw=72: