1 files changed, 115 insertions, 0 deletions
diff --git a/TAO/orbsvcs/tests/Simple_Naming/process-m-output.pl b/TAO/orbsvcs/tests/Simple_Naming/process-m-output.pl
new file mode 100755
index 00000000000..c9205bda74a
--- /dev/null
+++ b/TAO/orbsvcs/tests/Simple_Naming/process-m-output.pl
@@ -0,0 +1,115 @@
+# $Id$
+# -*- perl -*-
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+
+# This is a Perl script that processes the output of the multithreaded
+# client test.  Usage: process-m-output.pl output-file-name number-of-threads
+
+# The following checks are performed:
+# 1) Number of sucessful binds equals to the number of sucessful
+# unbinds.
+# 2) Each thread id has 1 output line for each of the following: bind,
+# resolve and unbind.
+# 3) There are no unexpected output lines (e.g., more lines than
+# expected or with unexpected content like Exceptions, seg faults).
+
+# Open the output file.
+$input_file = $ARGV[0];
+if ($input_file and $ARGV[1])
+{
+    open (DATA, $input_file);
+}
+else
+{
+    die "Usage: process-m-output.pl output-file-name number-of-threads \n";
+}
+
+$errors = 0;
+
+$binds = 0;
+$unbinds = 0;
+
+while ($line = <DATA>)
+{
+    # Process the line.
+    chomp $line;
+    @words = split (/ /, $line);
+
+    # Ignore the empty line, the "CommandLine:" line and the "WARNING:" line
+    # from the orbsvcs/orbsvcs/Shutdown_Utilities.cpp.
+    if ($#words == -1 or
+        $words[0] eq "CommandLine:" or
+        $line =~ /WARNING: /) {
+      next;
+    }
+
+    # Make sure the line contains expected output.
+    if (not ($words[0] eq "Unbound" or
+             $words[0] eq "Bound" or
+             $words[0] eq "Resolved" or
+             $words[0] eq "Unable"))
+    {
+        close (DATA);
+        die "Error is detected in the output file <$input_file> \n";
+    }
+
+    # Keep track of sucessful binds/unbinds.
+    if ($words[0] eq "Bound")
+    {
+        ++$binds;
+    }
+    if ($words[0] eq "Unbound")
+    {
+        ++$unbinds;
+    }
+
+    # Keep track of output lines for each thread.
+    $count = $threads{$words[5]};
+
+    if ($count eq "" and
+        ($words[0] eq "Bound" or $words[2] eq "bind"))
+    {
+        ++$threads{$words[5]};
+    }
+    elsif ($count eq 1 and
+        ($words[0] eq "Resolved" or $words[2] eq "resolve"))
+    {
+        ++$threads{$words[5]};
+    }
+    elsif ($count eq 2 and
+        ($words[0] eq "Unbound" or $words[2] eq "unbind"))
+    {
+        ++$threads{$words[5]};
+    }
+    else
+    {
+        close (DATA);
+        die "Wrong output for thread $word[5]\n";
+    }
+}
+close (DATA);
+# Check that each thread performed 3 operations.
+if (grep {not $_ eq 3} values %threads)
+{
+    die "Some thread has performed a wrong number of operations\n";
+}
+$number = values %threads;
+if ($number ne $ARGV[1])
+{
+    die "Not all threads performed operations\n";
+}
+
+# Check that number of binds equals to those of unbinds.
+if ($binds == $unbinds)
+{
+    print "Multithreaded output is ok \n";
+}
+else
+{
+    print "Number of sucessfule binds is different from number of
+sucessful unbinds\n";
+}
+
+exit $errors;