ACE/protocols/tests/RMCast/run_test.pl

   1 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
   2     & eval 'exec perl -S $0 $argv:q'
   3     if 0;
   4
   5 # -*- perl -*-
   6
   7 use lib "$ENV{ACE_ROOT}/bin";
   8 use PerlACE::TestTarget;
   9
  10 $status = 0;
  11
  12 my $target1 = PerlACE::TestTarget::create_target (1);
  13 my $target2 = PerlACE::TestTarget::create_target (1);
  14
  15 my $sender = $target1->CreateProcess("sender", "224.1.2.3:12345");
  16 my $receiver = $target2->CreateProcess("receiver", "224.1.2.3:12345");
  17
  18 $receiver->Spawn ();
  19
  20 # Wait for receiver to start.
  21 #
  22 sleep ($target1->ProcessStartWaitInterval());
  23
  24 $sender->Spawn ();
  25
  26 $status = $receiver->WaitKill ($target2->ProcessStopWaitInterval() + 30);
  27
  28 if ($status != 0) {
  29     print STDERR "ERROR: receiver returned $status\n";
  30     $status = 1;
  31 }
  32
  33 $sender->Kill ();
  34
  35 $target1->GetStderrLog();
  36 $target2->GetStderrLog();
  37
  38 exit $status;