TAO/tests/OBV/Indirection/run_test.pl

   1
   2 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
   3     & eval 'exec perl -S $0 $argv:q'
   4     if 0;
   5
   6 use Env (ACE_ROOT);
   7 use lib "$ACE_ROOT/bin";
   8 use PerlACE::TestTarget;
   9
  10 $iorfile = "server.ior";
  11
  12 my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  13 my $client = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
  14
  15 $server->DeleteFile($iorfile);
  16
  17 my $server_iorfile = $server->LocalFile ($iorfile);
  18
  19 $S = $server->CreateProcess("MessengerServer");
  20 $S->Spawn();
  21
  22 if ($server->WaitForFileTimed ($iorfile, $server->ProcessStartWaitInterval()) == -1) {
  23     print STDERR "ERROR: cannot find file <$server_iorfile>\n";
  24     $S->Kill();
  25     exit 1;
  26 }
  27
  28 $C = $client->CreateProcess("MessengerClient");
  29 $C->Spawn();
  30
  31 $CRET = $C->WaitKill($client->ProcessStartWaitInterval());
  32 $S->Kill();
  33
  34 # clean-up
  35
  36 $server->DeleteFile($iorfile);
  37
  38 if ($CRET != 0) {
  39     print STDERR "ERROR: Client returned <$CRET>\n";
  40     exit 1 ;
  41 }
  42
  43 exit 0;
  44
  45
  46
  47
  48
  49
  50