diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2006-10-26 14:20:18 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2006-10-26 14:20:18 +0000 |
commit | 1e98d2d3eb3fde273a2992b7733cb4f73914f5f8 (patch) | |
tree | bbd27ac4e59923a9acd4aca0c6ffd55bb47d684c | |
parent | d4f210bdbc28466798c75cd939acadffef9b39b3 (diff) | |
download | ATCD-1e98d2d3eb3fde273a2992b7733cb4f73914f5f8.tar.gz |
run valuetype test also by default
-rwxr-xr-x | TAO/orbsvcs/tests/Event/UDP/run_test.pl | 53 |
1 files changed, 38 insertions, 15 deletions
diff --git a/TAO/orbsvcs/tests/Event/UDP/run_test.pl b/TAO/orbsvcs/tests/Event/UDP/run_test.pl index ad98e46a979..6b81e5ca083 100755 --- a/TAO/orbsvcs/tests/Event/UDP/run_test.pl +++ b/TAO/orbsvcs/tests/Event/UDP/run_test.pl @@ -10,38 +10,61 @@ use PerlACE::Run_Test; $status = 0; -foreach $i (@ARGV) { - if ($i eq '-v') { - $valuetype = '-v'; - } -} -$S = new PerlACE::Process ("sender", - "$valuetype"); -$R = new PerlACE::Process ("receiver", - "$valuetype"); +$S1 = new PerlACE::Process ("sender", + ""); +$R1 = new PerlACE::Process ("receiver", + ""); +$S2 = new PerlACE::Process ("sender", + "-v"); +$R2 = new PerlACE::Process ("receiver", + "-v"); -print STDOUT "Starting receiver\n"; -$R->Spawn (); +print STDOUT "Starting receiver with plain text\n"; +$R1->Spawn (); sleep 1; -print STDOUT "Starting sender\n"; -$S->Spawn (); +print STDOUT "Starting sender with plain text\n"; +$S1->Spawn (); sleep 1; -$consumer = $S->WaitKill (150); +$consumer = $S1->WaitKill (150); if ($consumer != 0) { print STDERR "ERROR: consumer returned $consumer\n"; $status = 1; } -$receiver = $R->WaitKill (150); +$receiver = $R1->WaitKill (150); if ($receiver != 0) { print STDERR "ERROR: receiver returned $receiver\n"; $status = 1; } +print STDOUT "Starting receiver with valuetype\n"; +$R2->Spawn (); + +sleep 1; + +print STDOUT "Starting sender with valuetype\n"; +$S2->Spawn (); + +sleep 1; + +$consumer2 = $S2->WaitKill (150); + +if ($consumer2 != 0) { + print STDERR "ERROR: consumer returned $consumer2\n"; + $status = 1; +} + +$receiver2 = $R2->WaitKill (150); + +if ($receiver2 != 0) { + print STDERR "ERROR: receiver returned $receiver2\n"; + $status = 1; +} + exit $status; |