diff options
Diffstat (limited to 'tests/du')
-rwxr-xr-x | tests/du/files0-from | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/tests/du/files0-from b/tests/du/files0-from index 000a1113f..26a749961 100755 --- a/tests/du/files0-from +++ b/tests/du/files0-from @@ -1,5 +1,4 @@ -#!/bin/sh -# -*- perl -*- +#!/usr/bin/perl # Exercise du's --files0-from option. # Copyright (C) 2004, 2005, 2007-2008 Free Software Foundation, Inc. @@ -17,13 +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=.} -. $top_srcdir/tests/require-perl - -me=`echo $0|sed 's,.*/,,'` -exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF -#/ -require 5.003; use strict; (my $program_name = $0) =~ s|.*/||; @@ -47,8 +39,8 @@ my @Tests = {ERR => "du: cannot open `missing' for reading: " . "No such file or directory\n"}], - # empty input - ['empty', '--files0-from=-'], + # empty input, regular file + ['empty', '--files0-from=@AUX@', {AUX=>''}], # empty input, from non-regular file ['empty-nonreg', '--files0-from=/dev/null'], @@ -95,4 +87,3 @@ my $verbose = $ENV{VERBOSE}; my $prog = $ENV{PROG} || die "$0: \$PROG not specified in environment\n"; my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose); exit $fail; -EOF |