diff options
| author | Jim Meyering <meyering@redhat.com> | 2011-09-01 23:59:02 +0200 |
|---|---|---|
| committer | Jim Meyering <meyering@redhat.com> | 2011-09-02 14:08:40 +0200 |
| commit | 7490145dd0a0f016cfe893650e517d2bd2dc66d1 (patch) | |
| tree | 0b75d5e545baddd48984c5f7c213bbe941420945 /tests/misc | |
| parent | d8945c8d8f7f4505e9beb61a1005b1ece09e2790 (diff) | |
| download | coreutils-7490145dd0a0f016cfe893650e517d2bd2dc66d1.tar.xz | |
tests: remove require-perl script; use function instead
* tests/require-perl: Remove file.
* tests/Makefile.am (EXTRA_DIST): Remove it from this list.
* tests/init.cfg (require_perl_): New function.
* tests/misc/pwd-long: Use the new function, not the file.
* tests/ls/nameless-uid: Likewise.
* tests/misc/sum-sysv: Likewise.
Diffstat (limited to 'tests/misc')
| -rwxr-xr-x | tests/misc/pwd-long | 4 | ||||
| -rwxr-xr-x | tests/misc/sum-sysv | 5 |
2 files changed, 3 insertions, 6 deletions
diff --git a/tests/misc/pwd-long b/tests/misc/pwd-long index e31845796..bf088fb38 100755 --- a/tests/misc/pwd-long +++ b/tests/misc/pwd-long @@ -17,13 +17,11 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -: ${srcdir=.} -. $srcdir/require-perl - . "${srcdir=.}/init.sh"; path_prepend_ ../src print_ver_ pwd require_readable_root_ +require_perl_ ARGV_0=$0 export ARGV_0 diff --git a/tests/misc/sum-sysv b/tests/misc/sum-sysv index 0e35ad319..f4d6a18ed 100755 --- a/tests/misc/sum-sysv +++ b/tests/misc/sum-sysv @@ -16,9 +16,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -: ${srcdir=.} -. $srcdir/require-perl - # Avoid a problem when run in a UTF-8 locale. # Otherwise, Perl would try to (and fail to) interpret # each string below as a sequence of multi-byte characters. @@ -28,6 +25,8 @@ export LC_ALL . "${srcdir=.}/init.sh"; path_prepend_ ../src print_ver_ sum +require_perl_ + # FYI, 16843009 is floor (2^32 / 255). # aka: perl -e 'print chr(255) x 16843009' |