From: Jim Meyering <jim@meyering.net>
Date: Sat, 21 Apr 2001 08:41:38 +0000 (+0000)
Subject: tests for latest fix
X-Git-Tag: FILEUTILS-4_0_44~15
X-Git-Url: http://git.ipfire.org/gitweb/index.cgi?a=commitdiff_plain;h=30b3f9a1c1157486dac7d984b68ab167c14ecbcc;p=thirdparty%2Fcoreutils.git

tests for latest fix
---

diff --git a/tests/ls-2/tests b/tests/ls-2/tests
index d611e7238b..c2104ccf70 100755
--- a/tests/ls-2/tests
+++ b/tests/ls-2/tests
@@ -22,6 +22,11 @@ use strict;
 my $mkdir = {PRE => sub {mkdir 'd',0755 or die "d: $!\n"}};
 my $rmdir = {POST => sub {rmdir 'd' or die "d: $!\n"}};
 
+my $mkdir2 = {PRE => sub {mkdir 'd',0755 or die "d: $!\n";
+			  mkdir 'd/e',0755 or die "d/e: $!\n" }};
+my $rmdir2 = {POST => sub {rmdir 'd/e' or die "d/e: $!\n";
+			   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"}};
 
@@ -58,6 +63,14 @@ my @Tests =
 
      # FIXME: uncomment the following once ls has been fixed
      # ['slink-dir2', '-F d', {OUT => "d\@/\n"}, $slink_d, $unlink_d],
+
+     # From Stéphane Chazelas.
+     ['no-a-isdir-b', 'no-dir d',
+	 {OUT => "d:\n"},
+	 {ERR => "ls: no-dir: No such file or directory\n"},
+	 $mkdir, $rmdir, {EXIT => 1}],
+
+     ['recursive-2', '-R d', {OUT => "d:\ne\n\nd/e:\n"}, $mkdir2, $rmdir2],
     );
 
 my $save_temps = $ENV{SAVE_TEMPS};