diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-01-10 13:14:31 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-01-10 13:14:31 +0000 |
commit | ec356f533f81e7954bb467314a51c458fe1818a7 (patch) | |
tree | 78e161c09afaf6095ed27789d9fe6d2a1dda2903 /TAO/orbsvcs | |
parent | fda1ca4940c12024b0aaa722b95cdb30642c9010 (diff) | |
download | ATCD-ec356f533f81e7954bb467314a51c458fe1818a7.tar.gz |
Wed Jan 10 13:13:12 UTC 2007 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/orbsvcs')
4 files changed, 27 insertions, 4 deletions
diff --git a/TAO/orbsvcs/tests/AVStreams/Asynch_Three_Stage/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Asynch_Three_Stage/run_test.pl index 3742c592eea..01c969d6c31 100755 --- a/TAO/orbsvcs/tests/AVStreams/Asynch_Three_Stage/run_test.pl +++ b/TAO/orbsvcs/tests/AVStreams/Asynch_Three_Stage/run_test.pl @@ -47,7 +47,13 @@ if (PerlACE::waitforfile_timed ($nsior, 10) == -1) { print STDERR "Starting Receiver 1\n"; -$RE1->Spawn (); +$RE1_result = $RE1->Spawn (); + +if ($RE1_result != 0) { + print STDERR "ERROR: Receiver 1 returned $RE1_result\n"; + $NS->Kill (); + exit 1; +} sleep $sleeptime; diff --git a/TAO/orbsvcs/tests/AVStreams/Bidirectional_Flows/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Bidirectional_Flows/run_test.pl index efe05403c37..2b53d1e8f49 100755 --- a/TAO/orbsvcs/tests/AVStreams/Bidirectional_Flows/run_test.pl +++ b/TAO/orbsvcs/tests/AVStreams/Bidirectional_Flows/run_test.pl @@ -38,7 +38,13 @@ if (PerlACE::waitforfile_timed ($nsior, 5) == -1) { print STDERR "Starting Receiver\n"; -$SV->Spawn (); +$RE1_result = $SV->Spawn (); + +if ($RE1_result != 0) { + print STDERR "ERROR: Receiver returned $RE1_result\n"; + $NS->Kill (); + exit 1; +} sleep $sleeptime; diff --git a/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl index de19cf0ba3c..25450efcbaa 100755 --- a/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl +++ b/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl @@ -51,7 +51,13 @@ if (PerlACE::waitforfile_timed ($nsior, 10) == -1) { print STDERR "Starting Receiver 1\n"; -$RE1->Spawn (); +$RE1_result = $RE1->Spawn (); + +if ($RE1_result != 0) { + print STDERR "ERROR: Receiver 1 returned $RE1_result\n"; + $NS->Kill (); + exit 1; +} sleep $sleeptime; diff --git a/TAO/orbsvcs/tests/AVStreams/Latency/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Latency/run_test.pl index 7323a2af76e..e68dc081e27 100755 --- a/TAO/orbsvcs/tests/AVStreams/Latency/run_test.pl +++ b/TAO/orbsvcs/tests/AVStreams/Latency/run_test.pl @@ -23,7 +23,12 @@ $CTRL = new PerlACE::Process ("control", "-f file://$pingior -g file://$pongior" print STDERR "Starting Ping\n"; -$PING->Spawn (); +$PING_result = $PING->Spawn (); + +if ($PING_result != 0) { + print STDERR "ERROR: Ping returned $PING_result\n"; + exit 1; +} if (PerlACE::waitforfile_timed ($pingior, 20) == -1) { print STDERR "ERROR: cannot find file <$pingior>\n"; |