diff options
| author | Jim Meyering <meyering@redhat.com> | 2011-04-28 11:12:01 +0200 |
|---|---|---|
| committer | Jim Meyering <meyering@redhat.com> | 2011-04-28 22:43:56 +0200 |
| commit | 156084826533bf149db7dfd2b9466ab116b4ca4b (patch) | |
| tree | 058d552d9d98129eadcb8cf830551e647a13c689 /tests/misc/date-next-dow | |
| parent | e3f814a773cf683309271b866d69dbfa968b104a (diff) | |
| download | coreutils-156084826533bf149db7dfd2b9466ab116b4ca4b.tar.xz | |
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
Diffstat (limited to 'tests/misc/date-next-dow')
| -rwxr-xr-x | tests/misc/date-next-dow | 2 |
1 files changed, 1 insertions, 1 deletions
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; |