From 4431579378da40e7cc957a2b5739f2f9ed7051c8 Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Sat, 15 Aug 1998 21:52:09 +0000 Subject: *** empty log message *** --- tests/ls-2/quoting | 31 +------------------------------ 1 file changed, 1 insertion(+), 30 deletions(-) (limited to 'tests') diff --git a/tests/ls-2/quoting b/tests/ls-2/quoting index 0eb53f5a4..51545fbe6 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 = ( -- cgit v1.2.3-70-g09d2