gbranden pushed a commit to branch master
in repository groff.
commit 843aba55b26ae7b4de0ef30f1c516bf16066ff83
Author: G. Branden Robinson <[email protected]>
AuthorDate: Sat Feb 24 16:39:26 2024 -0600
[mdoc,tests]: Add cases to `Lk`, `Mt`, `Xr` tests.
Verify correct operation with use of `Pf` macro.
* tmac/tests/doc_Lk-works.sh:
* tmac/tests/doc_Mt-works.sh:
* tmac/tests/doc_Xr-works.sh: Do it.
---
tmac/tests/doc_Lk-works.sh | 20 +++++++++++++++-----
tmac/tests/doc_Mt-works.sh | 22 ++++++++++++++--------
tmac/tests/doc_Xr-works.sh | 14 ++++++++++----
3 files changed, 39 insertions(+), 17 deletions(-)
diff --git a/tmac/tests/doc_Lk-works.sh b/tmac/tests/doc_Lk-works.sh
index c59eee064..7ad621be3 100755
--- a/tmac/tests/doc_Lk-works.sh
+++ b/tmac/tests/doc_Lk-works.sh
@@ -28,7 +28,7 @@ wail() {
# Ensure .Lk renders correctly.
-input='.Dd 2024-01-28
+input='.Dd 2024-02-22
.Dt foo 1
.Os groff test suite
.Sh Name
@@ -38,14 +38,19 @@ input='.Dd 2024-01-28
Sometimes you
.Em click Lk http://example.com one link
and you get
-.Lk http://another.example.com .'
+.Lk http://another.example.com .
+.Pp
+Follow instructions
+.Pf ( Lk http://\:hidden\:.example\:.com elsewhere ) .'
+
+output=$(echo "$input" | "$groff" -mdoc -Tascii -P-cbou)
+echo "$output"
# Expected:
# Sometimes you click one link: http://example.com and you
get
# http://another.example.com.
-
-output=$(echo "$input" | "$groff" -Tascii -P-cbou -mdoc)
-echo "$output"
+#
+# Follow instructions (elsewhere: http://hidden.example.com).
echo "checking that conventional Lk macro call works" >&2
echo "$output" \
@@ -55,6 +60,11 @@ echo "checking that inline Lk macro call works" >&2
echo "$output" \
| grep -Eq 'one +link: +http://example\.com' || wail
+echo "checking that prefixed Lk macro call works" >&2
+echo "$output" \
+ | grep -Fq 'instructions (elsewhere: http://hidden.example.com).' \
+ || wail
+
test -z "$fail"
# vim:set ai et sw=4 ts=4 tw=72:
diff --git a/tmac/tests/doc_Mt-works.sh b/tmac/tests/doc_Mt-works.sh
index 8a4a78251..4a6b9fbb7 100755
--- a/tmac/tests/doc_Mt-works.sh
+++ b/tmac/tests/doc_Mt-works.sh
@@ -41,23 +41,29 @@ input='.Dd 2021-02-10
The
.Nm mandoc
utility was written by
-.An Kristaps Dzonsons Aq Mt [email protected]
-and is maintained by
+.An Kristaps Dzonsons ,
+reachable at
+.Mt [email protected] ,
+and maintained by
.An Ingo Schwarze Aq Mt [email protected] .
-Certainly
-.Mt [email protected]
-had nothing to do with it.'
+Certainly that scoundrel Bob Bogus
+.Pf ( Mt [email protected] )
+played no role.'
-output=$(echo "$input" | "$groff" -Tascii -P-cbou -mdoc)
+output=$(echo "$input" | "$groff" -mdoc -Tascii -P-cbou)
echo "$output"
echo "checking that conventional Mt macro call works" >&2
echo "$output" \
- | grep -Eq '^ +bogus@example\.com' || wail
+ | grep -Eq '^ +kristaps@bsd\.lv,' || wail
echo "checking that inline Mt macro call works" >&2
echo "$output" \
- | grep -Fq 'written by Kristaps Dzonsons <[email protected]>' || wail
+ | grep -Eq 'Schwarze +<schwarze@openbsd\.org>' || wail
+
+echo "checking that prefixed Mt macro call works" >&2
+echo "$output" \
+ | grep -Fq 'Bogus ([email protected]) played' || wail
test -z "$fail"
diff --git a/tmac/tests/doc_Xr-works.sh b/tmac/tests/doc_Xr-works.sh
index 5706431cf..26520cf42 100755
--- a/tmac/tests/doc_Xr-works.sh
+++ b/tmac/tests/doc_Xr-works.sh
@@ -46,6 +46,8 @@ Read the man page
.Xr groff 1 ,
reflect,
and find enlightenment.
+.Pf ( Xr groff_font 5
+is also worth a look.)
.Pp
The
.Xr groff ,
@@ -54,8 +56,8 @@ and
.Xr roff
pages in section 7 are also illuminating.'
-output=$(echo "$input" | "$groff" -Tascii -P-cbou -mdoc 2>/dev/null)
-error=$(echo "$input" | "$groff" -Tascii -P-cbou -mdoc 2>&1 >/dev/null)
+output=$(echo "$input" | "$groff" -mdoc -Tascii -P-cbou 2>/dev/null)
+error=$(echo "$input" | "$groff" -mdoc -Tascii -P-cbou 2>&1 >/dev/null)
echo "$output"
echo "$error"
@@ -67,14 +69,18 @@ echo "$output" \
| grep -Fq 'Read the groff(1) man page.' || wail
echo "checking two-argument Xr call with partial reference and" \
- "trailing punctuation" >&2
+ "trailing punctuation" >&2
echo "$output" \
- | grep -Fq 'Read the man page groff(1), reflect,' || wail
+ | grep -Eq 'Read +the +man +page +groff\(1\), +reflect,' || wail
echo "checking a series of partial references, some punctuated" >&2
echo "$output" \
| grep -Fq 'The groff, groff_diff, and roff pages' || wail
+echo "checking that prefixed Xr macro call works" >&2
+echo "$output" \
+ | grep -Fq '(groff_font(5) is also worth a look.)' || wail
+
test -z "$fail"
# vim:set ai et sw=4 ts=4 tw=72:
_______________________________________________
Groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
