diff options
| author | Johnny Willemsen <jwillemsen@remedy.nl> | 2008-11-10 20:15:33 +0000 |
|---|---|---|
| committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2008-11-10 20:15:33 +0000 |
| commit | 2470d38060cf6d4173d5f62113d9b1ead3af9a9b (patch) | |
| tree | ba79e6d5a41675f89b9df9b4add138eee7478ad0 /TAO/tests/ORB_init | |
| parent | 67e878815f9fc90d7c3399c76b9e5fc6041b62c6 (diff) | |
| download | ATCD-2470d38060cf6d4173d5f62113d9b1ead3af9a9b.tar.gz | |
Mon Nov 10 20:14:30 UTC 2008 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/tests/ORB_init')
| -rwxr-xr-x | TAO/tests/ORB_init/run_test.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/TAO/tests/ORB_init/run_test.pl b/TAO/tests/ORB_init/run_test.pl index 72f31cb0545..2c6bd942b36 100755 --- a/TAO/tests/ORB_init/run_test.pl +++ b/TAO/tests/ORB_init/run_test.pl @@ -6,13 +6,13 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # -*- perl -*- use lib "$ENV{ACE_ROOT}/bin"; -use PerlACE::Run_Test; +use PerlACE::TestTarget; -my $class = (PerlACE::is_vxworks_test() ? 'PerlACE::ProcessVX' : - 'PerlACE::Process'); -$T = new $class ("ORB_init"); +my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n"; -$test = $T->SpawnWaitKill ($PerlACE::wait_interval_for_process_creation); +$SV = $server->CreateProcess ("ORB_init"); + +$test = $SV->SpawnWaitKill ($server->ProcessStartWaitInterval()); if ($test != 0) { print STDERR "ERROR: test returned $test\n"; |