diff options
Diffstat (limited to 'tests/misc/fmt')
| -rwxr-xr-x | tests/misc/fmt | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/tests/misc/fmt b/tests/misc/fmt index b10c6c018..4925926e0 100755 --- a/tests/misc/fmt +++ b/tests/misc/fmt @@ -1,5 +1,4 @@ -#!/bin/sh -# -*- perl -*- +#!/usr/bin/perl # Basic tests for "fmt". # Copyright (C) 2001, 2002, 2003, 2004, 2005-2008 Free Software @@ -18,18 +17,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 - -# Export this to avoid hassles when run in a UTF-8 locale, -# since we use 8-bit characters below, and those values are -# interpolated into strings (to perform substitution) in Coreutils.pm. -LC_ALL=C -export LC_ALL - -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|.*/||; @@ -76,4 +63,3 @@ my $verbose = $ENV{VERBOSE}; my $prog = 'fmt'; my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose); exit $fail; -EOF |