CC-tea/coreutils
1
0
Fork 0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-08-14 22:19:02 +02:00
Code Issues Projects Releases Wiki Activity

(file-type): New test:

Browse Source 
For 5.97 and earlier, --file-type acted like --indicator-style=slash.
This commit is contained in:
Jim Meyering
2006-07-20 10:30:42 +00:00
parent 3ddfde6897
commit 492f011795
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/ls-2/tests
+10
View File
@@ -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};