Whamcloud - gitweb
- add ldlm_lock_match CBPENDING flag--I should never have removed it
authorpschwan <pschwan>
Mon, 20 Jan 2003 03:52:24 +0000 (03:52 +0000)
committerpschwan <pschwan>
Mon, 20 Jan 2003 03:52:24 +0000 (03:52 +0000)
- 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

index a84787a..b737bc5 100644 (file)
@@ -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";