CC-tea/coreutils
1
0
Fork 0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-04-21 03:12:48 +02:00
Code Issues Projects Releases Wiki Activity

Add two tests of existing behavior -- both will

Browse Source 
have to be changed (soon after release), once ls is fixed.
This commit is contained in:
Jim Meyering
2001-02-21 10:49:58 +00:00
parent d015986221
commit 2a08e10112
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
tests/ls-2/tests
View File

@@ -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};