summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorJim Meyering <jim@meyering.net>2001-02-21 10:49:58 +0000
committerJim Meyering <jim@meyering.net>2001-02-21 10:49:58 +0000
commit2a08e10112a8545ef59633064e0d6e5fd369d9b7 (patch)
tree98766a87dec3d5afd8fe8ddd2d7bc1c73a9b8de0 /tests
parentd0159862214400572e0bbda9b6680f3db0094f3d (diff)
downloadcoreutils-2a08e10112a8545ef59633064e0d6e5fd369d9b7.tar.xz
Add two tests of existing behavior -- both will
have to be changed (soon after release), once ls is fixed.
Diffstat (limited to 'tests')
-rwxr-xr-xtests/ls-2/tests10
1 files changed, 7 insertions, 3 deletions
diff --git a/tests/ls-2/tests b/tests/ls-2/tests
index c7fa35215..d611e7238 100755
--- a/tests/ls-2/tests
+++ b/tests/ls-2/tests
@@ -22,6 +22,9 @@ use strict;
my $mkdir = {PRE => sub {mkdir 'd',0755 or die "d: $!\n"}};
my $rmdir = {POST => sub {rmdir 'd' or die "d: $!\n"}};
+my $slink_d = {PRE => sub {symlink '/', 'd' or die "d: $!\n"}};
+my $unlink_d = {POST => sub {unlink 'd' or die "d: $!\n"}};
+
my $q_bell = {IN => {"q\a" => ''}};
my @Tests =
(
@@ -51,9 +54,10 @@ my @Tests =
$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"}} ],
+ ['slink-dir', '-Fd d', {OUT => "d/\n"}, $slink_d, $unlink_d],
+
+ # FIXME: uncomment the following once ls has been fixed
+ # ['slink-dir2', '-F d', {OUT => "d\@/\n"}, $slink_d, $unlink_d],
);
my $save_temps = $ENV{SAVE_TEMPS};