From 156084826533bf149db7dfd2b9466ab116b4ca4b Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Thu, 28 Apr 2011 11:12:01 +0200 Subject: tests: write skip explanation from perl scripts also to outer stderr * tests/CuSkip.pm (skip): New file/module/function, to help the perl test scripts "skip" a test consistently, emitting a diagnostic both into the log file and into the outermost stderr stream that is more likely to be seen by a human. * tests/check.mk (TESTS_ENVIRONMENT): Add -MCuSkip. * tests/misc/date-next-dow: Use CuSkip::skip in place of warn+exit-77. * tests/misc/tty-eof: Likewise. * tests/misc/uniq: Likewise. * tests/rm/fail-eperm: Likewise. * tests/misc/md5sum-newline: Likewise. Also, s/program_name/ME/. * tests/misc/ls-misc (setuid_setup, main): Likewise. * tests/misc/pwd-long: Likewise, and add -I"$abs_srcdir" -MCuSkip to the $PERL invocation command. Inspired by a request from Bruno Haible regarding misc/tty-eof: http://debbugs.gnu.org/8570 --- tests/misc/date-next-dow | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests/misc/date-next-dow') diff --git a/tests/misc/date-next-dow b/tests/misc/date-next-dow index e61d405ad..fda213bd6 100755 --- a/tests/misc/date-next-dow +++ b/tests/misc/date-next-dow @@ -73,6 +73,6 @@ my $fail = run_tests ($ME, $prog, \@Tests, $save_temps, $verbose); # Skip the test if the starting and stopping day numbers differ. my @d_post = localtime (time); $d_post[7] == $d[7] - or (warn "$ME: test straddled a day boundary; skipped"), exit 77; + or CuSkip::skip "$ME: test straddled a day boundary; skipped"; exit $fail; -- cgit v1.2.3-70-g09d2