diff options
author | Jim Meyering <jim@meyering.net> | 2001-02-21 10:49:58 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2001-02-21 10:49:58 +0000 |
commit | 2a08e10112a8545ef59633064e0d6e5fd369d9b7 (patch) | |
tree | 98766a87dec3d5afd8fe8ddd2d7bc1c73a9b8de0 | |
parent | d0159862214400572e0bbda9b6680f3db0094f3d (diff) | |
download | coreutils-2a08e10112a8545ef59633064e0d6e5fd369d9b7.tar.xz |
Add two tests of existing behavior -- both will
have to be changed (soon after release), once ls is fixed.
-rwxr-xr-x | tests/ls-2/tests | 10 |
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}; |