diff options
author | Jim Meyering <jim@meyering.net> | 2006-07-20 10:30:42 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2006-07-20 10:30:42 +0000 |
commit | 492f011795cff3ba6a27ab04b02e781c7fb5513e (patch) | |
tree | 23aff2d492bb2eed0571d07cbd5d195941bf937b | |
parent | 3ddfde68978041476ed0d0768b42060d160b83b2 (diff) | |
download | coreutils-492f011795cff3ba6a27ab04b02e781c7fb5513e.tar.xz |
(file-type): New test:
For 5.97 and earlier, --file-type acted like --indicator-style=slash.
-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}; |