From 1b3ca1c257f9aca60967ddbd25df0e95822ce860 Mon Sep 17 00:00:00 2001
From: pschwan <pschwan>
Date: Mon, 1 Jul 2002 15:26:52 +0000
Subject: [PATCH] A Perl script to hammer concurrently at multiple mount points

---
 lustre/tests/create.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 lustre/tests/create.pl

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"
+}
-- 
1.8.3.1