diff options
author | Jim Meyering <jim@meyering.net> | 1998-08-15 19:55:35 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 1998-08-15 19:55:35 +0000 |
commit | 363847ca746fbcbfaf71a94e07cab65836950b54 (patch) | |
tree | 73c87343b87901bb28794b72196836745a192b11 /tests | |
parent | d223f01b432dace09919ddb2cd5ed015da3a9989 (diff) | |
download | coreutils-363847ca746fbcbfaf71a94e07cab65836950b54.tar.xz |
*** empty log message ***
Diffstat (limited to 'tests')
-rw-r--r-- | tests/ls-2/T.pm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/tests/ls-2/T.pm b/tests/ls-2/T.pm index dbb16d4e1..a757cd519 100644 --- a/tests/ls-2/T.pm +++ b/tests/ls-2/T.pm @@ -103,7 +103,23 @@ sub run_tests ($$$$$) } my $file_spec = $val; - my ($filename, $contents) = each %$file_spec; + my ($filename, $contents); + if (!ref $io_spec) + { + ($filename, $contents) = (undef, $io_spec); + } + elsif (ref $io_spec eq 'HASH') + { + my $n = keys %$file_spec; + die "$program_name: $test_name: $type spec has $n elements --" + . " expected 1\n" + if $n != 1; + ($filename, $contents) = each %$file_spec; + } + else + { + die "$program_name: $test_name: invalid RHS in $type-spec\n" + } if ($type =~ /_FILE$/ || $type =~ /_DATA$/) { |