ChangeLogTag:Thu Feb 8 19:25:03 2001 Carlos O'Ryan <coryan@uci.edu>

3 files changed, 96 insertions, 0 deletions

diff --git a/performance-tests/RPC/run_test.pl b/performance-tests/RPC/run_test.pl
new file mode 100755
index 00000000000..4280d2cabd0
--- /dev/null
+++ b/performance-tests/RPC/run_test.pl
@@ -0,0 +1,32 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+     & eval 'exec perl -S $0 $argv:q'
+     if 0;
+
+# $Id$
+# -*- perl -*-
+
+use lib '../../bin';
+use PerlACE::Run_Test;
+use Cwd;
+
+my $SV = new PerlACE::Process ("server");
+
+$SV->Spawn ();
+
+sleep 5;
+
+$CL = new PerlACE::Process ("client", " -i 10000 -h localhost");
+
+$CL->Spawn (60);
+
+$client = $CL->WaitKill (60);
+$server = $SV->WaitKill (5);
+
+unlink $iorfile;
+
+if ($server != 0 || $client != 0) {
+  print "ERROR: non-zero status returned by the server or client\n";
+  exit 1;
+}
+
+exit 0;
diff --git a/performance-tests/TCP/run_test.pl b/performance-tests/TCP/run_test.pl
new file mode 100755
index 00000000000..d5049d14f59
--- /dev/null
+++ b/performance-tests/TCP/run_test.pl
@@ -0,0 +1,32 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+     & eval 'exec perl -S $0 $argv:q'
+     if 0;
+
+# $Id$
+# -*- perl -*-
+
+use lib '../../bin';
+use PerlACE::Run_Test;
+use Cwd;
+
+my $SV = new PerlACE::Process ("tcp_test", "-s");
+
+$SV->Spawn ();
+
+sleep 5;
+
+$CL = new PerlACE::Process ("tcp_test", " -c localhost -i 50000 -b 64");
+
+$CL->Spawn (60);
+
+$client = $CL->WaitKill (60);
+$server = $SV->WaitKill (5);
+
+unlink $iorfile;
+
+if ($server != 0 || $client != 0) {
+  print "ERROR: non-zero status returned by the server or client\n";
+  exit 1;
+}
+
+exit 0;
diff --git a/performance-tests/UDP/run_test.pl b/performance-tests/UDP/run_test.pl
new file mode 100755
index 00000000000..4515cd8c3d8
--- /dev/null
+++ b/performance-tests/UDP/run_test.pl
@@ -0,0 +1,32 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+     & eval 'exec perl -S $0 $argv:q'
+     if 0;
+
+# $Id$
+# -*- perl -*-
+
+use lib '../../bin';
+use PerlACE::Run_Test;
+use Cwd;
+
+my $SV = new PerlACE::Process ("udp_test", "-r");
+
+$SV->Spawn ();
+
+sleep 5;
+
+$CL = new PerlACE::Process ("udp_test", " -t -n 10000 localhost");
+
+$CL->Spawn (60);
+
+$client = $CL->WaitKill (60);
+$server = $SV->WaitKill (5);
+
+unlink $iorfile;
+
+if ($server != 0 || $client != 0) {
+  print "ERROR: non-zero status returned by the server or client\n";
+  exit 1;
+}
+
+exit 0;