TAO/tests/SHMIOP/run_test_collocated.pl

   1 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
   2      & eval 'exec perl -S $0 $argv:q'
   3      if 0;
   4
   5 use lib "$ENV{ACE_ROOT}/bin";
   6 use PerlACE::TestTarget;
   7 use strict;
   8
   9 my $debug_level = 0;
  10 foreach my $i (@ARGV) {
  11     if ($i eq '-debug') {
  12         $debug_level = 10;
  13     }
  14 }
  15
  16 my $target = PerlACE::TestTarget::create_target(1) || die "Create target 1 failed\n";
  17
  18 my $iorbase = "server.ior";
  19 my $server_iorfile = $target->LocalFile ($iorbase);
  20 $target->DeleteFile ($iorbase);
  21
  22 my $status = 0;
  23
  24 print "Collocated\n\n";
  25
  26 my $shm = '-ORBSvcConf static_shmiop.conf -ORBListenEndpoints shmiop://';
  27
  28 my $SV = $target->CreateProcess ("shmiop_test", "-ORBDebugLevel $debug_level $shm " .
  29                                  "-s $server_iorfile -c $server_iorfile");
  30
  31 my $server = $SV->SpawnWaitKill ($target->ProcessStartWaitInterval ());
  32
  33 if ($server != 0) {
  34     print STDERR "ERROR: Collocated test returned $server\n";
  35     $status = 1;
  36 }
  37
  38 $target->DeleteFile ($iorbase);
  39
  40 exit $status;