[pkgsrc/trunk]: pkgsrc/regress/infra-unittests regress/infra-unittests: add e...

[rillig <rillig%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/5221056b8e05
branches:  trunk
changeset: 414520:5221056b8e05
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Mon Mar 30 06:40:53 2020 +0000

description:
regress/infra-unittests: add example tests for mk/help/help.awk

There are many more scenarios that need test cases, but this is a start.

diffstat:

 regress/infra-unittests/help.sh |  94 +++++++++++++++++++++++++++++++++++++++++
 1 files changed, 94 insertions(+), 0 deletions(-)

diffs (98 lines):

diff -r 88af041acde2 -r 5221056b8e05 regress/infra-unittests/help.sh
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/regress/infra-unittests/help.sh   Mon Mar 30 06:40:53 2020 +0000
@@ -0,0 +1,94 @@
+#! /bin/sh
+# $NetBSD: help.sh,v 1.1 2020/03/30 06:40:53 rillig Exp $
+#
+# Test cases for "bmake help", mainly implemented in mk/help/help.awk.
+#
+
+set -eu
+
+. "./test.subr"
+
+test_case_set_up() {
+       cd "$tmpdir"
+}
+
+
+if test_case_begin "help topic at the top of a file, with debugging"; then
+
+       # The first line of a file does not count since it usually contains
+       # the CVS Id. Therefore this topic is considered too small.
+
+       create_file_lines "test.help" \
+               "# topic" \
+               "#" \
+               "# Explanation of the topic."
+
+       HELP_DEBUG="yes" TOPIC=":all" awk -f "$pkgsrcdir/mk/help/help.awk" \
+               "test.help" >"out"
+
+       assert_that "out" --file-is-lines \
+               'test.help:1: Adding keyword "topic"' \
+               'test.help:1: Ignoring section because of too small comment.' \
+               'test.help:3: "Explanation" is no keyword because it is mixed case' \
+               'test.help:3: Ignoring section because of missing keywords.' \
+               'No help found for :all.'
+
+       test_case_end
+fi
+
+
+if test_case_begin "short help topic with debugging"; then
+
+       # The topic starts in the paragraph in line 3 and has only 3 lines.
+       # It still has enough explanation to be considered valuable.
+       # This form is often used in mk/help/undefined-reference.help.
+
+       create_file_lines "test.help" \
+               "# $""NetBSD: ...$" \
+               "" \
+               "# topic" \
+               "#" \
+               "# Explanation of the topic."
+
+       HELP_DEBUG="yes" TOPIC=":all" awk -f "$pkgsrcdir/mk/help/help.awk" \
+               "test.help" >"out"
+
+       assert_that "out" --file-is-lines \
+               'test.help:1: "$NetBSD:" is no keyword because it is mixed case' \
+               'test.help:1: Ignoring section because of missing keywords.' \
+               'test.help:2: Ignoring section because of missing keywords.' \
+               'test.help:3: Adding keyword "topic"' \
+               'test.help:5: "Explanation" is no keyword because it is mixed case' \
+               '===> test.help (keywords: topic):' \
+               '# topic' \
+               '#' \
+               '# Explanation of the topic.' \
+
+       test_case_end
+fi
+
+
+if test_case_begin "short help topic"; then
+
+       # The topic starts in the paragraph in line 3 and has only 3 lines.
+       # It still has enough explanation to be considered valuable.
+       # This form is often used in mk/help/undefined-reference.help.
+
+       create_file_lines "test.help" \
+               "# $""NetBSD: ...$" \
+               "" \
+               "# topic" \
+               "#" \
+               "# Explanation of the topic."
+
+       TOPIC="topic" awk -f "$pkgsrcdir/mk/help/help.awk" \
+               "test.help" >"out"
+
+       assert_that "out" --file-is-lines \
+               '===> test.help (keywords: topic):' \
+               '# topic' \
+               '#' \
+               '# Explanation of the topic.' \
+
+       test_case_end
+fi