TAO/tests/OBV/Collocated/Forward/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 my $collocated = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  11
  12 $iorbase = "test.ior";
  13 $iorfile = $collocated->LocalFile ("test.ior");
  14 $collocated->DeleteFile ($iorbase);
  15
  16 $CO = $collocated->CreateProcess ("collocated");
  17
  18 $collocated_status = $CO->Spawn ();
  19
  20 if ($collocated_status != 0) {
  21     print STDERR "ERROR: server returned $collocated_status\n";
  22     exit 1;
  23 }
  24
  25 if ($collocated->WaitForFileTimed ($iorbase,
  26                                    $collocated->ProcessStartWaitInterval ()) == -1) {
  27     print STDERR "ERROR: cannot find file <$iorfile>\n";
  28     $CO->Kill (); $CO->TimedWait (1);
  29     exit 1;
  30 }
  31
  32 $collocated_status = $CO->WaitKill ($collocated->ProcessStopWaitInterval ());
  33
  34 if ($collocated_status != 0) {
  35     print STDERR "ERROR: collocated returned $collocated_status\n";
  36     $collocated_status = 1;
  37 }
  38
  39 $collocated->DeleteFile ($iorbase);
  40
  41 exit $collocated_status;