[Ocfs2-test-devel] [RFC][PATCH] ocfs2-test: add concurrent flock() test case, v2

[Coly Li]

This script is initialized by Sunil, to verify lockres mastery race in flock(). For further
information of the lockres mastery race issue, read Novell bugzilla page:
https://bugzilla.novell.com/show_bug.cgi?id=425491

Sunil, Marcos and Tristan, this version add directory path checking, could you kindly give me a SOB ?

Signed-off-by: Coly Li <coly.li at suse.de>
---
 programs/flock_tests/Makefile                 |    2 +-
 programs/flock_tests/concurrent_flock_test.pl |   54 +++++++++++++++++++++++++
 2 files changed, 55 insertions(+), 1 deletions(-)

diff --git a/programs/flock_tests/Makefile b/programs/flock_tests/Makefile
index 8b6bc5c..82659ec 100644
--- a/programs/flock_tests/Makefile
+++ b/programs/flock_tests/Makefile
@@ -15,7 +15,7 @@ DIST_FILES = $(SOURCES)

 BIN_PROGRAMS = flock_unit_test

-BIN_EXTRA = run_flock_unit_test.py
+BIN_EXTRA = run_flock_unit_test.py concurrent_flock_test.pl

 flock_unit_test: $(OBJECTS)
 	$(LINK)
diff --git a/programs/flock_tests/concurrent_flock_test.pl
b/programs/flock_tests/concurrent_flock_test.pl
new file mode 100644
index 0000000..45baad0
--- /dev/null
+++ b/programs/flock_tests/concurrent_flock_test.pl
@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+#
+# concurrent_flock_test.pl - A handy tool to test concurrent flock() on single
+#                            node
+#
+# Initialized by Sunil Mushran <sunil.mushran at oracle.com>
+# Modified by Coly Li <coly.li at suse.de>
+#
+# Usage: concurrent_flock_test.pl <dir>
+#
+# Example: concurrent_flock_test.pl /mnt/test/
+#           /mnt/test is directory within mounted ocfs2 volume
+#
+# the perl script encloses the 20 fork loop into another loop that changes the
+# filename. To startwith, touch 5000 files(test.flock%d). umount and mount
+# again. This will drop the caches. Now before running any ls, run flock.pl.
+# It will spawn 20 processes to flock() each file and wait till the 20 forks
+# have exited before letting loose another 20 for the next file. (Makesure
+# you have another node or two or more that have just mounted that volume.).
+#
+
+
+use warnings;
+use Fcntl ':flock';
+
+$| = 1;
+$dir=$ARGV[0];
+if (! $dir) {
+	print "Usage: concurrent_flock_test.pl <dir>\n";
+	exit(1);
+}
+if (! -d $dir) {
+	print "$dir is not directory.\n";
+	exit(1);
+}
+
+for (my $y = 0; $y < 5000; $y ++) {
+	$file = $dir . "/test.lock" . $y;
+
+	printf "[%s] %s\n", $$, $file;
+
+	for (my $x = 0; $x < 20; $x ++) {
+		my $pid = fork();
+		if ($pid == 0) {
+			my $fh;
+			open($fh, ">> $file") or die("Can't open '$file': $!");
+			printf "[%s] lock %s: %s\n", $$, $file,
+			flock($fh, LOCK_EX) ? 'done' : $!;
+			close($fh);
+			exit(0);
+		}
+	}
+	while (wait > 0) { ; }
+}

-- 
Coly Li
SuSE PRC Labs