From: Jim Meyering Date: Sat, 15 Aug 1998 21:39:17 +0000 (+0000) Subject: *** empty log message *** X-Git-Tag: FILEUTILS-3_16u~33 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=49d59ad66bf7ca9b071d6a32b8d5616a1cb31b5c;p=thirdparty%2Fcoreutils.git *** empty log message *** --- diff --git a/tests/ls-2/T.pm b/tests/ls-2/T.pm index 6c8fa0d08f..b54d2b4e2b 100644 --- a/tests/ls-2/T.pm +++ b/tests/ls-2/T.pm @@ -15,6 +15,34 @@ my @Types = qw (IN OUT ERR EXIT); my %Types = map {$_ => 1} @Types; my %Zero_one_type = map {$_ => 1} qw (OUT ERR EXIT); +# 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 $Global_count = 1; sub _create_file ($$$$$)