test for existing behavior

diff --git a/tests/ls-2/tests b/tests/ls-2/tests
index 7e3713f087b416246e8e23df4e756c8fed221594..c7fa35215154238af75094b289999d0f18c39da2 100755 (executable)
--- a/tests/ls-2/tests
+++ b/tests/ls-2/tests
@@ -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};