diff options
| author | Jim Meyering <meyering@redhat.com> | 2007-12-06 14:21:51 +0100 |
|---|---|---|
| committer | Jim Meyering <meyering@redhat.com> | 2008-02-09 10:30:33 +0100 |
| commit | 5282e54c08883cf4ab7ddb3b1874344ff32e5df7 (patch) | |
| tree | befa40555cfbe06ea5a2962605c8edf28798a0e2 /tests/ls/nameless-uid | |
| parent | 72565ddffe0b249fc23bd8253564aaf3311f833c (diff) | |
| download | coreutils-5282e54c08883cf4ab7ddb3b1874344ff32e5df7.tar.xz | |
tests: factor out the perl-requiring code in many test scripts
* tests/require-perl: New file.
* tests/Makefile.am (EXTRA_DIST): Add require-perl.
* tests/dd/skip-seek: Use it, and remove manual tests.
* tests/du/files0-from: Likewise.
* tests/ls/nameless-uid: Likewise.
* tests/misc/base64: Likewise.
* tests/misc/basename: Likewise.
* tests/misc/cut: Likewise.
* tests/misc/date: Likewise.
* tests/misc/dircolors: Likewise.
* tests/misc/dirname: Likewise.
* tests/misc/expand: Likewise.
* tests/misc/expr: Likewise.
* tests/misc/factor: Likewise.
* tests/misc/fmt: Likewise.
* tests/misc/fold: Likewise.
* tests/misc/head-elide-tail: Likewise.
* tests/misc/ls-misc: Likewise.
* tests/misc/md5sum: Likewise.
* tests/misc/md5sum-newline: Likewise.
* tests/misc/mktemp: Likewise.
* tests/misc/od: Likewise.
* tests/misc/paste-no-nl: Likewise.
* tests/misc/pr: Likewise.
* tests/misc/pwd-long: Likewise.
* tests/misc/seq: Likewise.
* tests/misc/sha1sum: Likewise.
* tests/misc/sha1sum-vec: Likewise.
* tests/misc/sha224sum: Likewise.
* tests/misc/sha256sum: Likewise.
* tests/misc/sha384sum: Likewise.
* tests/misc/sha512sum: Likewise.
* tests/misc/sort-merge: Likewise.
* tests/misc/stat-printf: Likewise.
* tests/misc/sum: Likewise.
* tests/misc/sum-sysv: Likewise.
* tests/misc/test-diag: Likewise.
* tests/misc/tsort: Likewise.
* tests/misc/tty-eof: Likewise.
* tests/misc/unexpand: Likewise.
* tests/misc/wc-files0-from: Likewise.
* tests/misc/xstrtol: Likewise.
* tests/mv/i-1: Likewise.
* tests/rm/empty-name: Likewise.
* tests/rm/fail-eperm: Likewise.
* tests/rm/unreadable: Likewise.
(EXTRA_DIST): *do* require require-perl as a stand-alone, 'source'able script.
Diffstat (limited to 'tests/ls/nameless-uid')
| -rwxr-xr-x | tests/ls/nameless-uid | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/tests/ls/nameless-uid b/tests/ls/nameless-uid index a78846ca4..a72438863 100755 --- a/tests/ls/nameless-uid +++ b/tests/ls/nameless-uid @@ -21,16 +21,13 @@ if test "$VERBOSE" = yes; then ls --version fi +: ${srcdir=.} +. $srcdir/../require-perl + . $srcdir/../lang-default PRIV_CHECK_ARG=require-root . $srcdir/../priv-check . $srcdir/../test-lib.sh -$PERL -e 1 > /dev/null 2>&1 || { - echo 1>&2 "$0: configure didn't find a usable version of Perl," \ - "so can't run this test" - (exit 77); exit 77 -} - nameless_uid=`$PERL -e 'foreach my $i (1000..16*1024) { getpwuid $i or (print "$i\n"), exit }'` if test x$nameless_uid = x; then |