diff options
Diffstat (limited to 'TAO/orbsvcs/tests/CosEvent/Basic/run_test.pl')
| -rwxr-xr-x | TAO/orbsvcs/tests/CosEvent/Basic/run_test.pl | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/TAO/orbsvcs/tests/CosEvent/Basic/run_test.pl b/TAO/orbsvcs/tests/CosEvent/Basic/run_test.pl index 6b861e791de..552c87b61da 100755 --- a/TAO/orbsvcs/tests/CosEvent/Basic/run_test.pl +++ b/TAO/orbsvcs/tests/CosEvent/Basic/run_test.pl @@ -11,8 +11,23 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' unshift @INC, '../../../../../bin'; require Process; require Uniqueid; +use Cwd; -$prefix = "." . $DIR_SEPARATOR; +$cwd = getcwd(); +for($i = 0; $i <= $#ARGV; $i++) { + if ($ARGV[$i] eq '-chorus') { + $i++; + if (defined $ARGV[$i]) { + $EXEPREFIX = "rsh $ARGV[$i] arun $cwd$DIR_SEPARATOR"; + } + else { + print STDERR "The -chorus option requires the hostname of the target\n"; + exit(1); + } + } +} + +$prefix = $EXEPREFIX . "." . $DIR_SEPARATOR; $status = 0; print STDERR "\n\nShutdown EC with clients still attached\n"; @@ -49,7 +64,7 @@ if ($T->TimedWait (60) == -1) { print STDERR "\n\nPull-Push Events\n"; $T = Process::Create ($prefix . "Pull_Push_Event".$EXE_EXT, - " -ORBSvcConf svc.pull.conf"); + " -ORBSvcConf $cwd$DIR_SEPARATOR" . "svc.pull.conf"); if ($T->TimedWait (60) == -1) { print STDERR "ERROR: Test timedout\n"; $status = 1; |