X-Git-Url: http://git.draconx.ca/gitweb/dxcommon.git/blobdiff_plain/c3b7ff6af1fa247b4df631d924f8b79fc6f6fc90..c3f53b697f5dd5ecd5a5f74e94ec0fd55b0f2764:/tests/scripts.at diff --git a/tests/scripts.at b/tests/scripts.at index c03a83f..7a873a9 100644 --- a/tests/scripts.at +++ b/tests/scripts.at @@ -6,10 +6,45 @@ dnl There is NO WARRANTY, to the extent permitted by law. AT_BANNER([Script tests]) -AT_SETUP([gen-options.awk]) -AT_KEYWORDS([gen-options awk script scripts]) +AT_SETUP([bake-config.awk]) +AT_KEYWORDS([bake-config awk script scripts]) + +AT_DATA([cfg.h], +[[#define hello world +/* #undef HAVE_STUFF */ +#define HAVE_OTHER_STUFF 1 +/* #undef HAVE_CRAZY_STUFF */ +]]) -AT_DATA([options.def], +AT_DATA([lib.h], +[[#if HAVE_STUFF +# define foo hello__ +#elif HAVE_CRAZY_STUFF +# define foo hello +#elif HAVE_OTHER_STUFF +# define foo __hello +#endif +]]) + +AT_CHECK([$AWK -f "$srcdir/scripts/bake-config.awk" cfg.h lib.h], [0], +[[#if 0 /* HAVE_STUFF */ +# define foo hello__ +#elif 0 /* HAVE_CRAZY_STUFF */ +# define foo world /* hello */ +#elif 1 /* HAVE_OTHER_STUFF */ +# define foo __hello +#endif +]]) + +AT_CLEANUP + +m4_define([TEST_GEN_OPTIONS], +[AT_KEYWORDS([gen-options awk script scripts])dnl +AT_DATA([m4_default([$2], [options.def])], [$1]) +AT_CHECK([$AWK -f "$srcdir/scripts/gen-options.awk" dnl +options.h])]) + +m4_define([TEST_GEN_OPTIONS_SAMPLE], [[--option-only --option-with-val (5) --option-with-flagval (&x, 5) @@ -37,7 +72,8 @@ do stuff with ARG --flagval ]]) -AT_CHECK([$AWK -f "$builddir/scripts/gen-options.awk" options.h]) +AT_SETUP([gen-options.awk]) +TEST_GEN_OPTIONS([TEST_GEN_OPTIONS_SAMPLE]) AT_DATA([context.h], [[struct option { const char *name; int has_arg; int *flag; int val; }; @@ -158,6 +194,11 @@ $AWK -f soptstr.awk options.def >expout AT_CHECK([$CC -o test2$EXEEXT test2.c && ./test2$EXEEXT], [0], [expout], [ignore]) +AT_CLEANUP + +AT_SETUP([gen-options.awk xgettext annotation]) +TEST_GEN_OPTIONS([TEST_GEN_OPTIONS_SAMPLE]) + # Check that all help strings are translatable AT_DATA([messages.awk], [[BEGIN { lines = -1; } @@ -205,8 +246,13 @@ function output(i) } ]]) +dnl Antique versions of xgettext which predate the pgettext/msgctx feature +dnl will produce an output po file with no msgctx lines. So try to spot +dnl that and skip the test with such versions. AT_CHECK([xgettext --keyword=PN_:1c,2 options.h - test -f messages.po || exit 77]) + test -f messages.po || exit 77 + grep msgid messages.po >/dev/null && + { grep msgctx messages.po >/dev/null || exit 77; }]) $AWK -f messages.awk options.def | LC_ALL=C sort >expout AT_CHECK([sed -n '/^msgctxt/{ @@ -225,7 +271,6 @@ p AT_CLEANUP AT_SETUP([gen-options.awk packed format]) -AT_KEYWORDS([gen-options awk script scripts]) AT_DATA([test.c], [[#include struct option { const char *name; int has_arg; int *flag; int val; }; @@ -265,22 +310,18 @@ int main(void) } ]]) -AT_DATA([single.dat], -[[--single-option -]]) -AT_CHECK([$AWK -f "$builddir/scripts/gen-options.awk" options.h]) +TEST_GEN_OPTIONS([[--single-option +]], [single.dat]) AT_CHECK([$CC -o single$EXEEXT test.c && ./single$EXEEXT], [0], [[0 --single-option, 0, 0 ]]) -AT_DATA([16bit.dat], -[[-a, --the-first-option +TEST_GEN_OPTIONS([[-a, --the-first-option -b, --the-second-option=ARG -c, --the-third-option[=ARG] -d, --the-fourth-option -]]) -AT_CHECK([$AWK -f "$builddir/scripts/gen-options.awk" <16bit.dat >options.h]) +]], [16bit.dat]) AT_CHECK([$CC -o 16bit$EXEEXT test.c && ./16bit$EXEEXT], [0], [[2 --the-first-option, 0, 'a' @@ -315,28 +356,26 @@ newline\ \ leading whitespace &j oneline # with a comment +&k with nontrivial whitespace ]]) -AT_CHECK([$AWK -f "$builddir/scripts/gen-strtab.awk" test.h]) +AT_CHECK([$AWK -f "$srcdir/scripts/gen-strtab.awk" test.h]) sed -n 's/^[[&]]\([[^ ]]*\).*/\1/p' test.def >identifiers # test 0: sanity test -AT_DATA([test0.c], -[[#include "test.h" +{ cat <<'EOF' +#include "test.h" #include int main(void) { printf("---\n"); -]]) -exec 3>test0.c -while read ident <&3; do - AS_ECHO([' printf("%s\n---\n", '"strtab+$ident);"]) >&4 -done -AS_ECHO([' return 0;']) >&4 -AS_ECHO(['}']) >&4 -exec 3<&- 4>&- +EOF +while read id; do AS_ECHO([' printf("%s\n---\n", strtab+'"$id"');']); done +AS_ECHO([' return 0;']) +AS_ECHO(['}']) +} test0.c AT_CHECK([$CC -o test0$EXEEXT test0.c && ./test0$EXEEXT], [0], [--- world @@ -369,6 +408,8 @@ nonewline --- oneline --- +with nontrivial whitespace +--- ], [ignore]) AT_CLEANUP @@ -379,13 +420,13 @@ AT_KEYWORDS([gen-strtab awk script scripts]) AT_DATA([test0.def], [[&hello hello ]]) -AT_CHECK([$AWK -f "$builddir/scripts/gen-strtab.awk" test0.h]) +AT_CHECK([$AWK -f "$srcdir/scripts/gen-strtab.awk" test0.h]) AT_DATA([test1.def], [[@nozero &hello hello ]]) -AT_CHECK([$AWK -f "$builddir/scripts/gen-strtab.awk" test1.h]) +AT_CHECK([$AWK -f "$srcdir/scripts/gen-strtab.awk" test1.h]) AT_DATA([test.c], [[#include @@ -401,6 +442,37 @@ AT_CHECK([$CC -DHEADER='"test1.h"' -o test1$EXEEXT test.c && ./test1$EXEEXT], AT_CLEANUP +AT_SETUP([gen-strtab.awk @macro option]) +AT_KEYWORDS([gen-strtab awk script scripts]) + +AT_DATA([test0.def], +[[@macro +&foo foobar +&bar bar +&baz baz +]]) +AT_CHECK([$AWK -f "$srcdir/scripts/gen-strtab.awk" test0.h]) + +AT_DATA([test0.c], +[[#include +extern const char strtab[]; +#include "test0.h" + +int main(void) +{ + static const char mystrtab[] = STRTAB_INITIALIZER; + printf("%s\n%s\n%s\n", mystrtab+foo, mystrtab+bar, mystrtab+baz); + return 0; +} +]]) +AT_CHECK([$CC -o test0$EXEEXT test0.c && ./test0$EXEEXT], [0], +[[foobar +bar +baz +]]) + +AT_CLEANUP + AT_SETUP([gen-strtab.awk l10n options]) AT_KEYWORDS([gen-strtab awk script scripts]) @@ -414,7 +486,7 @@ AT_DATA([test0.def], &b world &c goodbye ]]) -AT_CHECK([$AWK -f "$builddir/scripts/gen-strtab.awk" test0.h]) +AT_CHECK([$AWK -f "$srcdir/scripts/gen-strtab.awk" test0.h]) AT_CHECK([sed -n -f l10n.sed test0.h | LC_ALL=C sort], [0], [["goodbye" "hello world" @@ -426,7 +498,7 @@ AT_DATA([test1.def], &&b world &&c goodbye ]]) -AT_CHECK([$AWK -f "$builddir/scripts/gen-strtab.awk" test1.h]) +AT_CHECK([$AWK -f "$srcdir/scripts/gen-strtab.awk" test1.h]) AT_CHECK([sed -n -f l10n.sed test1.h], [0], [["hello world" ]]) @@ -481,7 +553,7 @@ ROOT1 # comment ]]) -AT_CHECK([$AWK -f "$builddir/scripts/gen-tree.awk" tree.h]) +AT_CHECK([$AWK -f "$srcdir/scripts/gen-tree.awk" tree.h]) AT_DATA([test0.c], [[#include "tree.h" @@ -539,7 +611,7 @@ ROOT e 1 f 2 ]]) -AT_CHECK([$AWK -f "$builddir/scripts/gen-tree.awk" tree.h]) +AT_CHECK([$AWK -f "$srcdir/scripts/gen-tree.awk" tree.h]) AT_DATA([test0.c], [[float tree_strtab = 0; @@ -582,7 +654,7 @@ AT_DATA([flat.def], c 3 @nostrtab ]]) -AT_CHECK([$AWK -f "$builddir/scripts/gen-tree.awk" flat.h]) +AT_CHECK([$AWK -f "$srcdir/scripts/gen-tree.awk" flat.h]) sed -e 's/tree\.h/flat.h/' -e 's/ROOT/FLAT/' test0.c >test1.c AT_CHECK([$CC -o test1$EXEEXT test1.c && ./test1$EXEEXT], [0], @@ -597,7 +669,7 @@ AT_CLEANUP AT_SETUP([join.awk]) AT_KEYWORDS([join awk script scripts]) -JOIN="$AWK -f $builddir/scripts/join.awk --" +JOIN="$AWK -f $srcdir/scripts/join.awk --" AT_DATA([a], [[1 a @@ -811,24 +883,25 @@ AT_CLEANUP m4_divert_push([PREPARE_TESTS])dnl test_fix_ltdl () { $PERL -e 'my $x = 42; exit $x;'; test $? = 42 || exit 77 - $PERL -f "$srcdir/scripts/fix-ltdl.pl" "$@" + $PERL "$srcdir/scripts/fix-ltdl.pl" "$@" } test_fix_gnulib () { $PERL -e 'my $x = 42; exit $x;'; test $? = 42 || exit 77 - $PERL -f "$srcdir/scripts/fix-gnulib.pl" "$@" + $PERL "$srcdir/scripts/fix-gnulib.pl" "$@" } test_gnulib_mk () { echo; for arg do - sed -n -f - "$srcdir/tests/data/gnulib.mk" <test.mk.in AT_CHECK([grep SED_HEADER test.mk.in >expout || exit 99]) @@ -838,21 +911,29 @@ grep SED_HEADER test.mk], [0], [expout]) AT_CLEANUP AT_SETUP([fix-gnulib.pl %reldir% substitution]) +AT_KEYWORDS([fix-gnulib perl script scripts]) test_gnulib_mk sys_types >test.mk.in AT_CHECK([grep '%reldir%' test.mk.in >/dev/null || exit 99]) -sed -n -f - test.mk.in >expout <<'EOF' -${G;p;b} +sed -n expout ' +$G +$p +$b /^## begin gnulib/,/^## end gnulib/!b -/^#/{p;b} +/^#/{ +p +b +} s|(srcdir)|(top_srcdir)| s|%reldir%|lib| s|BUILT_SOURCES|gnulib_core_headers| s|sys[[/_]]|lib/&|g -/^MOSTLYCLEANFILES/{h;b} -p -EOF +/^MOSTLYCLEANFILES/{ +h +b +} +p' AT_CHECK([test_fix_gnulib -i test.mk.in -o test.mk || exit sed -n -e '/^## begin gnulib/,/^## end gnulib/p' \ @@ -862,6 +943,7 @@ sed -n -e '/^## begin gnulib/,/^## end gnulib/p' \ AT_CLEANUP AT_SETUP([fix-gnulib.pl warning removal]) +AT_KEYWORDS([fix-gnulib perl script scripts]) AT_DATA([test.mk.in], [[ ## test begin @@ -881,6 +963,7 @@ EXTRA_LIBRARIES += libgnu.a AT_CLEANUP AT_SETUP([fix-gnulib.pl header directory creation]) +AT_KEYWORDS([fix-gnulib perl script scripts]) AT_DATA([extract.sed], [[/AM_V_GEN/b ok @@ -988,6 +1071,7 @@ helloworld ])]) AT_SETUP([fix-ltdl.pl LIBOBJ mangling (=automake-1.16)]) +AT_KEYWORDS([fix-ltdl perl script scripts]) TEST_FIND_AUTOMAKE([default 1.16 1.17 1.18 1.19], [AS_VERSION_COMPARE(["$amver"], [1.16], [continue])])