TAO/orbsvcs/examples/CosEC/Simple/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 $debug_level = '0';
  12
  13 foreach $i (@ARGV) {
  14     if ($i eq '-debug') {
  15         $debug_level = '10';
  16     }
  17 }
  18
  19 my $service = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  20 my $consumer = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
  21 my $supplier = PerlACE::TestTarget::create_target (3) || die "Create target 3 failed\n";
  22
  23 my $iorbase = "ec.ior";
  24 my $service_iorfile = $service->LocalFile ($iorbase);
  25 my $consumer_iorfile = $consumer->LocalFile ($iorbase);
  26 my $supplier_iorfile = $supplier->LocalFile ($iorbase);
  27 $service->DeleteFile($iorbase);
  28 $consumer->DeleteFile($iorbase);
  29 $supplier->DeleteFile($iorbase);
  30
  31 $SV = $service->CreateProcess ("Service", "-ORBdebuglevel $debug_level -o $service_iorfile");
  32 $CN = $consumer->CreateProcess ("Consumer", "-k file://$consumer_iorfile");
  33 $SP = $supplier->CreateProcess ("Supplier", "-k file://$supplier_iorfile");
  34
  35 $service_status = $SV->Spawn ();
  36
  37 if ($service_status != 0) {
  38     print STDERR "ERROR: service Spawn returned $service_status\n";
  39     exit 1;
  40 }
  41
  42 if ($service->WaitForFileTimed ($iorbase,
  43                                $service->ProcessStartWaitInterval()) == -1) {
  44     print STDERR "ERROR: service cannot find file <$service_iorfile>\n";
  45     $SV->Kill (); $SV->TimedWait (1);
  46     exit 1;
  47 }
  48
  49 if ($service->GetFile ($iorbase) == -1) {
  50     print STDERR "ERROR: service cannot retrieve file <$service_iorfile>\n";
  51     $SV->Kill (); $SV->TimedWait (1);
  52     exit 1;
  53 }
  54
  55 if ($consumer->PutFile ($iorbase) == -1) {
  56     print STDERR "ERROR: consumer cannot set file <$consumer_iorfile>\n";
  57     $SV->Kill (); $SV->TimedWait (1);
  58     exit 1;
  59 }
  60
  61 if ($supplier->PutFile ($iorbase) == -1) {
  62     print STDERR "ERROR: supplier cannot set file <$supplier_iorfile>\n";
  63     $SV->Kill (); $SV->TimedWait (1);
  64     exit 1;
  65 }
  66
  67 $consumer_status = $CN->Spawn ();
  68
  69 if ($consumer_status != 0) {
  70     print STDERR "ERROR: consumer Spawn returned $consumer_status\n";
  71     $status = 1;
  72 }
  73
  74 sleep 5;
  75
  76 $supplier_status = $SP->SpawnWaitKill ($supplier->ProcessStartWaitInterval() + 105);
  77
  78 if ($supplier_status != 0) {
  79     print STDERR "ERROR: supplier SpawnWaitKill returned $supplier_status\n";
  80     $status = 1;
  81 }
  82
  83 $consumer_status = $CN->WaitKill ($consumer->ProcessStopWaitInterval());
  84
  85 if ($consumer_status != 0) {
  86     print STDERR "ERROR: consumer WaitKill returned $consumer_status\n";
  87     $status = 1;
  88 }
  89
  90 $service_status = $SV->TerminateWaitKill ($service->ProcessStopWaitInterval());
  91
  92 if ($service_status != 0) {
  93     print STDERR "ERROR: service TerminateWaitKill returned $service_status\n";
  94     $status = 1;
  95 }
  96
  97 $service->DeleteFile($iorbase);
  98 $consumer->DeleteFile($iorbase);
  99 $supplier->DeleteFile($iorbase);
 100
 101 exit $status;