From: pschwan <pschwan>
Date: Mon, 1 Jul 2002 15:26:52 +0000 (+0000)
Subject: A Perl script to hammer concurrently at multiple mount points
X-Git-Tag: 0.4.2~13
X-Git-Url: https://git.whamcloud.com/gitweb?a=commitdiff_plain;h=1b3ca1c257f9aca60967ddbd25df0e95822ce860;p=fs%2Flustre-release.git

A Perl script to hammer concurrently at multiple mount points
---

diff --git a/lustre/tests/create.pl b/lustre/tests/create.pl
new file mode 100644
index 0000000..c9aa192
--- /dev/null
+++ b/lustre/tests/create.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+$mtpt = shift || die;
+$mount_count = shift || die;
+$i = shift || die;
+
+while ($i--) {
+    $which = int(rand() * $mount_count) + 1;
+    $path = "$mtpt$which/";
+
+    $d = int(rand() * 5);
+    print `./mcreate $path$d`;
+
+    $which = int(rand() * $mount_count) + 1;
+    $path = "$mtpt$which/";
+
+    $d = int(rand() * 5);
+    unlink("$path$d") || print "unlink($path$d): $!\n"
+}