From: Jim Meyering <jim@meyering.net>
Date: Sat, 15 Aug 1998 21:52:09 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: FILEUTILS-3_16u~29
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4431579378da40e7cc957a2b5739f2f9ed7051c8;p=thirdparty%2Fcoreutils.git

*** empty log message ***
---

diff --git a/tests/ls-2/quoting b/tests/ls-2/quoting
index 0eb53f5a49..51545fbe6a 100755
--- a/tests/ls-2/quoting
+++ b/tests/ls-2/quoting
@@ -2,42 +2,13 @@
 require 5.003;
 use strict;
 
-my $program_name;
-($program_name = $0) =~ s|.*/||;
+(my $program_name = $0) =~ s|.*/||;
 
 # Make sure the tools use the expected locale.
 $ENV{LANGUAGE} = 'C';
 $ENV{LC_ALL} = 'C';
 $ENV{LANG} = 'C';
 
-# A file spec: a scalar or a reference to a single-keyed hash
-# ================
-# 'contents'               contents only (file name is derived from test name)
-# {filename => 'contents'} filename and contents
-# {filename => undef}      filename only -- $(srcdir)/filename must exist
-#                            (FIXME: note to self: get $srcdir from ENV)
-#
-# FIXME: If there is more than one input file, the you can't specify REDIRECT.
-# PIPE is still ok.
-#
-# I/O spec: a hash ref with the following properties
-# ================
-# - one key/value pair
-# - the key must be one of these strings: IN, OUT, ERR, EXIT
-# - the value must be a file spec
-# {OUT => 'data'}    put data in a temp file and compare it to stdout from cmd
-# {OUT => {'filename'=>undef}} compare contents of existing filename to
-#           stdout from cmd
-# Ditto for `ERR', but compare with stderr
-# {EXIT => N} expect exit status of cmd to be N
-#
-# There may be many input file specs.  File names from the input specs
-# are concatenated in order on the command line.
-# There may be at most one of the OUT-, ERR-, and EXIT-keyed specs.
-# If the OUT-(or ERR)-keyed hash ref is omitted, then expect no output
-#   on stdout (or stderr).
-# If the EXIT-keyed one is omitted, then expect the exit status to be zero.
-
 my $q_bell = {IN => {"q\a" => ''}};
 my @Tests =
     (