diff options
author | oci <oci@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-04-07 16:14:16 +0000 |
---|---|---|
committer | oci <oci@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-04-07 16:14:16 +0000 |
commit | 840946a475f197dcb0a50f3d78336e6b85298f6a (patch) | |
tree | bfbf3f1b80f065e82a6ae4dea52ea417a55bc782 /TAO/orbsvcs/tests/CosEvent | |
parent | 7d35ae0838f2e922df8d8a78dfc00301bb504e02 (diff) | |
download | ATCD-840946a475f197dcb0a50f3d78336e6b85298f6a.tar.gz |
Fri Apr 7 11:12:07 2000 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'TAO/orbsvcs/tests/CosEvent')
-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; |