test for existing behavior

This commit is contained in:
Jim Meyering 2001-02-20 23:00:33 +00:00
parent 6f1ffe444c
commit 4fda5e9381

View File

@ -49,6 +49,11 @@ my @Tests =
# test `ls -R .' ............................................
['R-dot', '--ignore="[a-ce-zA-Z]*" -R .', {OUT => ".:\nd\n\n\./d:\n"},
$mkdir, $rmdir],
# FIXME: change the trailing `/' to be a `@'.
['slink-dir', '-Fd d', {OUT => "d/\n"},
{PRE => sub {symlink '/', 'd' or die "d: $!\n"}},
{POST => sub {unlink 'd' or die "d: $!\n"}} ],
);
my $save_temps = $ENV{SAVE_TEMPS};