diff options
Diffstat (limited to 'tests/ls-2')
| -rwxr-xr-x | tests/ls-2/tests | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/ls-2/tests b/tests/ls-2/tests index bb5f39c45..71c3fa78c 100755 --- a/tests/ls-2/tests +++ b/tests/ls-2/tests @@ -1,4 +1,5 @@ #!/bin/sh +# -*- perl -*- : ${PERL=perl} : ${srcdir=.} @@ -31,6 +32,11 @@ my $slink_d = {PRE => sub {symlink '/', 'd' or die "d: $!\n"; }}; my $unlink_d = {POST => sub {unlink 'd' or die "d: $!\n"}}; +my $mkdir_d_slink = {PRE => sub {mkdir 'd',0755 or die "d: $!\n"; + symlink '/', 'd/s' or die "d/s: $!\n" }}; +my $rmdir_d_slink = {POST => sub {unlink 'd/s' or die "d/s: $!\n"; + rmdir 'd' or die "d: $!\n" }}; + sub make_j_d () { mkdir 'j', 0700 or die "creating j: $!\n"; @@ -126,6 +132,10 @@ my @Tests = unlink qw(setuid setgid); foreach my $dir (qw(owr owt sticky)) {rmdir $dir} }}, ], + + # For 5.97 and earlier, --file-type acted like --indicator-style=slash. + ['file-type', '--file-type d', {OUT => "s@\n"}, + $mkdir_d_slink, $rmdir_d_slink], ); my $save_temps = $ENV{SAVE_TEMPS}; |