fix-gnulib: Fix pattern for variable mangling.

[dxcommon.git] / tests / scripts.at

diff --git a/tests/scripts.at b/tests/scripts.at
index b349e7ffb807d10cd56981a3791df63ff50cb08b..fdc0240ad25ee54e1b4d1f6a2c1383a56ea430a8 100644 (file)
--- a/tests/scripts.at
+++ b/tests/scripts.at
@@ -578,3 +578,24 @@ AT_CHECK([echo wat | $JOIN -v1 - /dev/null], [0],
 ]])
 
 AT_CLEANUP
+
+m4_divert_push([PREPARE_TESTS])dnl
+test_fix_gnulib () {
+  $PERL -e 'my $x = 42; exit $x;'; test $? = 42 || exit 77
+  $PERL -f "$srcdir/scripts/fix-gnulib.pl" "$@"
+}
+test_gnulib_mk () {
+  echo; sed -n -f - "$srcdir/tests/data/gnulib.mk" <<EOF
+/^## begin gnulib module $1/,/^## end   gnulib module $1/p
+EOF
+}
+m4_divert_pop([PREPARE_TESTS])
+
+AT_SETUP([fix-gnulib.pl SED_HEADER variables])
+
+test_gnulib_mk gen-header >test.mk.in
+AT_CHECK([grep SED_HEADER test.mk.in >expout || exit 99])
+AT_CHECK([test_fix_gnulib -i test.mk.in -o test.mk || exit
+grep SED_HEADER test.mk], [0], [expout])
+
+AT_CLEANUP