diff options
Diffstat (limited to 'src/roff/groff/tests/device-control-special-character-handling.sh')
-rwxr-xr-x | src/roff/groff/tests/device-control-special-character-handling.sh | 77 |
1 files changed, 77 insertions, 0 deletions
diff --git a/src/roff/groff/tests/device-control-special-character-handling.sh b/src/roff/groff/tests/device-control-special-character-handling.sh new file mode 100755 index 000000000..5ad3713d7 --- /dev/null +++ b/src/roff/groff/tests/device-control-special-character-handling.sh @@ -0,0 +1,77 @@ +#!/bin/sh +# +# Copyright (C) 2024 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 +} + +input='.nf +\X#bogus1: esc \%man-beast\[u1F63C]\\[u1F00] -\[aq]\[dq]\[ga]\[ha]\[rs]\[ti]# +.device bogus1: req \%man-beast\[u1F63C]\\[u1F00] -\[aq]\[dq]\[ga]\[ha]\[rs]\[ti] +.ec @ +@X#bogus2: esc @%man-beast@[u1F63C]@@[u1F00] -@[aq]@[dq]@[ga]@[ha]@[rs]@[ti]# +.device bogus2: req @%man-beast@[u1F63C]@@[u1F00] -@[aq]@[dq]@[ga]@[ha]@[rs]@[ti]' + +output=$(printf '%s\n' "$input" | "$groff" -T ps -Z 2> /dev/null \ + | grep '^x X') +error=$(printf '%s\n' "$input" | "$groff" -T ps -Z 2>&1 > /dev/null) + +echo "$output" + +echo "checking X escape sequence, default escape character" >&2 +# x X bogus1: esc man-beast\[u1F00] -'"`^\~ +echo "$output" \ + | grep -qx 'x X bogus1: esc man-beast\\\[u1F00\] -'"'"'"`^\\~' \ + || wail + +echo "checking device request, default escape character" >&2 +# x X bogus1: req man-beast\[u1F00] -'"`^\~ +echo "$output" \ + | grep -qx 'x X bogus1: req man-beast\\\[u1F00\] -'"'"'"`^\\~' \ + || wail + +echo "checking X escape sequence, alternate escape character" >&2 +# x X bogus2: esc man-beast\[u1F00] -'"`^\~ +echo "$output" \ + | grep -qx 'x X bogus2: esc man-beast\\\[u1F00\] -'"'"'"`^\\~' \ + || wail + +echo "checking device request, alternate escape character" >&2 +# x X bogus2: req man-beast\[u1F00] -'"`^\~ +echo "$output" \ + | grep -qx 'x X bogus2: req man-beast\\\[u1F00\] -'"'"'"`^\\~' \ + || wail + +echo "checking for errors on unsupported special character escapes" >&2 +for lineno in 2 3 5 6 +do + echo "$error" \ + | grep -q 'troff:.*:'$lineno':.* invalid.*device control command' \ + || wail +done + +test -z "$fail" + +# vim:set autoindent expandtab shiftwidth=2 tabstop=2 textwidth=72: |