From e7fd11978a80ce6c610183211642d26e20cc2c10 Mon Sep 17 00:00:00 2001
From: pschwan <pschwan>
Date: Mon, 20 Jan 2003 03:52:24 +0000
Subject: [PATCH] - add ldlm_lock_match CBPENDING flag--I should never have
 removed it - change ll_revalidate2 LBUG to a RETURN(0).  We now think that
 our   understanding of this invariant is complete. - fix rename.pl defaults -
 add mkdirmany test to runtests

---
 lustre/tests/rename.pl | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/lustre/tests/rename.pl b/lustre/tests/rename.pl
index a84787a..b737bc5 100644
--- a/lustre/tests/rename.pl
+++ b/lustre/tests/rename.pl
@@ -11,8 +11,9 @@ sub usage () {
     print "         will test in /mnt/lustre only\n";
     exit;
 }
-my ($j, $k, $d, $f1, $f2, $path, $count, $silent);
-my $create = 0;
+my ($j, $k, $d, $f1, $f2, $path, $silent);
+my $count = 0;
+my $create = 10;
 
 GetOptions("silent!"=> \$silent,
            "count=i" => \$count,
@@ -35,14 +36,15 @@ if ($create == 0) {
 }
 while ($k--) {
     $path = "$mtpt$which/$k";
-    mkdir $path, 0755;
+    my $rc = mkdir $path, 0755;
+    print "mkdir $path failed: $!\n" if !$rc;
     $j = $files;
     while ($j--) {
-        `./mcreate $path/$j`
+        `./mcreate $path/$j`;
+        print "mcreate $path/$j failed\n" if $?;
     }
 }
 
-
 while ($i--) {
     my $which = "";
     if ($count > 0) {
@@ -52,8 +54,7 @@ while ($i--) {
     $f1 = int(rand() * $files);
     $f2 = int(rand() * $files);
     print "[$$] $mtpt$which/$d/$f1 $mtpt$which/$d/$f2 ...\n";
-    rename "$mtpt$which/$d/$f1", "$mtpt$which/$d/$f2";
-    print "[$$] done\n" if !$silent;
-
+    my $rc = rename "$mtpt$which/$d/$f1", "$mtpt$which/$d/$f2";
+    print "[$$] done: $rc\n" if !$silent;
 }
 print "Done.\n";
-- 
1.8.3.1