diff options
author | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-03-05 03:40:45 +0000 |
---|---|---|
committer | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-03-05 03:40:45 +0000 |
commit | 08a3fe8e88af30ba9ee28317a3fd84804546c1de (patch) | |
tree | b954a734172c7b80dc13e505b6e4b6be4e38e5b2 /performance-tests/UDP | |
parent | 6b7ea4b718293f489f9021221f9a3c752c6d0ace (diff) | |
download | ATCD-08a3fe8e88af30ba9ee28317a3fd84804546c1de.tar.gz |
Sun Mar 4 19:31:16 2001 Darrell Brunsch <brunsch@uci.edu>
Diffstat (limited to 'performance-tests/UDP')
-rwxr-xr-x | performance-tests/UDP/run_test.pl | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/performance-tests/UDP/run_test.pl b/performance-tests/UDP/run_test.pl index 4515cd8c3d8..638b8c18c99 100755 --- a/performance-tests/UDP/run_test.pl +++ b/performance-tests/UDP/run_test.pl @@ -7,26 +7,28 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' use lib '../../bin'; use PerlACE::Run_Test; -use Cwd; -my $SV = new PerlACE::Process ("udp_test", "-r"); +$SV = new PerlACE::Process ("udp_test", "-r"); +$CL = new PerlACE::Process ("udp_test", "-t -n 10000 localhost"); + +$status = 0; $SV->Spawn (); sleep 5; -$CL = new PerlACE::Process ("udp_test", " -t -n 10000 localhost"); - -$CL->Spawn (60); +$client = $CL->SpawnWaitKill (60); -$client = $CL->WaitKill (60); $server = $SV->WaitKill (5); -unlink $iorfile; +if ($server != 0) { + print "ERROR: server returned $server\n"; + $status = 1; +} -if ($server != 0 || $client != 0) { - print "ERROR: non-zero status returned by the server or client\n"; - exit 1; +if ($client != 0) { + print "ERROR: client returned $client\n"; + $status = 1; } -exit 0; +exit $status; |