X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=tests%2Ftestsuite.at;h=a12477d97fb4519edd72371618458e613e9c9ea7;hb=7b68ef3d918603f3afb03e939ba72f5cad10edf4;hp=2fa53925c66b72d80b548baa8831413e6dd9a43d;hpb=dbbffde5835102b0cb1361c9f8dc716a38060d0d;p=chaz%2Ftar diff --git a/tests/testsuite.at b/tests/testsuite.at index 2fa5392..a12477d 100644 --- a/tests/testsuite.at +++ b/tests/testsuite.at @@ -1,7 +1,7 @@ # Process this file with autom4te to create testsuite. -*- Autotest -*- # Test suite for GNU tar. -# Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc. +# Copyright (C) 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -21,6 +21,7 @@ # We need a recent Autotest. m4_version_prereq([2.52g]) +m4_define([AT_TAR_CHECK_HOOK]) m4_define([AT_TAR_CHECK],[ AT_XFAIL_IF(test -f $[]XFAILFILE) m4_foreach([FMT], @@ -33,9 +34,20 @@ export TEST_TAR_FORMAT TAR_OPTIONS="-H FMT" export TAR_OPTIONS rm -rf * -$1)],$2,$3,$4,$5,$6)]) +$1)],$2,$3,$4,$5,$6) + AT_TAR_CHECK_HOOK]) ]) +m4_define([AT_TAR_WITH_HOOK],[ + m4_pushdef([AT_TAR_CHECK_HOOK],[$1]) + $2 + + m4_popdef([AT_TAR_CHECK_HOOK])]) + +m4_define([TAR_IGNREC_HOOK],[ + AT_CHECK([grep -v '^.*tar: Record size = ' stderr; exit 0]) +]) + m4_define([RE_CHECK],[ AT_DATA([$1.re],[$2]) awk '{print NR " " $[]0}' $1 > $[]$.1