1 files changed, 103 insertions, 0 deletions
diff --git a/TAO/performance-tests/RTCorba/Oneways/Reliable/client_test.pl b/TAO/performance-tests/RTCorba/Oneways/Reliable/client_test.pl
new file mode 100755
index 00000000000..270aa7b8621
--- /dev/null
+++ b/TAO/performance-tests/RTCorba/Oneways/Reliable/client_test.pl
@@ -0,0 +1,103 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+
+# $Id$
+# -*- perl -*-
+
+use lib "$ENV{ACE_ROOT}/bin";
+use PerlACE::Run_Test;
+
+$iorfile = PerlACE::LocalFile ("test.ior");
+$iterations = 4000;
+$bufsize = 4000;
+$work = 10;
+$type = "";
+$all = 1;
+$other = "";
+$status = 0;
+
+# Parse the arguments
+
+@types = ("none", "transport", "server", "target", "twoway -x");
+
+@bufsizes = (10, 40, 100, 400, 1000, 2000);
+
+for ($i = 0; $i <= $#ARGV; $i++) {
+    if ($ARGV[$i] eq "-h" || $ARGV[$i] eq "-?") {
+        print "Run_Test Perl script for TAO Reliable Oneways Test\n\n";
+        print "run_test [-t test type] [-i iterations] [-m buffer size]\n";
+        print "\n";
+        print "-t test type      -- runs only one type of oneway test\n";
+        print "-i iterations     -- number of calls in each test\n";
+        print "-m buffer size    -- queue size for buffered oneways\n";
+        print "-w servant work   -- number of loops of 1000 by servant\n";
+        exit 0;
+    }
+    elsif ($ARGV[$i] eq "-i") {
+        $iterations = $ARGV[$i + 1];
+        $i++;
+    }
+    elsif ($ARGV[$i] eq "-m") {
+        $bufsize = $ARGV[$i + 1];
+        $i++;
+        last SWITCH;
+    }
+    elsif ($ARGV[$i] eq "-w") {
+        $work = $ARGV[$i + 1];
+        $i++;
+        last SWITCH;
+    }
+    elsif ($ARGV[$i] eq "-t") {
+        @types = split (',', $ARGV[$i + 1]);
+        $all = 0;
+        $i++;
+    }
+    else {
+        $other .= $ARGV[$i];
+    }
+}
+
+$CL = new PerlACE::Process ("client");
+
+if ($all == 1) {
+    foreach $bufsize (@bufsizes) {
+        print STDERR "\n***************** STARTING TEST ******************\n";
+        $CL->Arguments ("-ORBNodelay 0 -t none -i $iterations -m $bufsize");
+
+        my $client = $CL->SpawnWaitKill (60);
+        
+        if ($client != 0) {
+            print STDERR "ERROR: client returned $client\n";
+            $status = 1;
+        }
+    }
+}
+
+foreach $type (@types) {
+    my $transport = "";
+    my $shutdown = "";
+    
+    if ($type == "none" || $type == "transport") {
+        $transport = "-ORBNodelay 0";
+    }
+
+    if ($all == 0) {
+        $shutdown = "-x";
+    }
+
+    print STDERR "\n***************** STARTING TEST ******************\n";
+
+    $CL->Arguments ("$transport -t $type -i $iterations -m $bufsize -w $work $shutdown");
+
+    my $client = $CL->SpawnWaitKill (60);
+    
+    if ($client != 0) {
+        print STDERR "ERROR: client returned $client\n";
+        $status = 1;
+    }
+}
+
+unlink $iorfile;
+
+exit $status;