1 files changed, 10 insertions, 5 deletions
diff --git a/protocols/tests/RMCast/run_test.pl b/protocols/tests/RMCast/run_test.pl
index 6c21971afe2..abee8b0594c 100755
--- a/protocols/tests/RMCast/run_test.pl
+++ b/protocols/tests/RMCast/run_test.pl
@@ -5,20 +5,22 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 # $Id$
 # -*- perl -*-
 
-use lib '../../../bin';
-use PerlACE::Run_Test;
+use lib "$ENV{ACE_ROOT}/bin";
+use PerlACE::TestTarget;
 
 $status = 0;
 
-$sender = new PerlACE::Process ("sender", "224.1.2.3:12345");
-$receiver = new PerlACE::Process ("receiver", "224.1.2.3:12345");
+my $target1 = PerlACE::TestTarget::create_target (1);
+my $target2 = PerlACE::TestTarget::create_target (1);
 
+my $sender = $target1->CreateProcess("sender", "224.1.2.3:12345");
+my $receiver = $target2->CreateProcess("receiver", "224.1.2.3:12345");
 
 $receiver->Spawn ();
 
 # Wait for receiver to start.
 #
-sleep ($PerlACE::wait_interval_for_process_creation);
+sleep ($target1->ProcessStartWaitInterval());
 
 $sender->Spawn ();
 
@@ -31,4 +33,7 @@ if ($status != 0) {
 
 $sender->Kill ();
 
+$target1->GetStderrLog();
+$target2->GetStderrLog();
+
 exit $status;